[ic] Database

[Mike Heins]

Quoting Mark Johnson (markj@redhat.com):
> [seti cross_file][perl tables=`join " ", @{$Config->{ProductFiles}}`]
>     ^         # This is not general, only for flypage
>              my $key = q{[item-code]};
>  
>              for(@{$Config->{ProductFiles}}) {
>                      return $_ if $Db{$_}->record_exists($key);
>              }
>              return "NONE";
>      [/perl][/seti]
>                  ^

Let's all think about this. What is the object? Place this in 
the scratch space. No need for a tag....

              for(@{$Config->{ProductFiles}}) {
		  next unless $Db{$_}->record_exists($key);
		  $Scratch->{cross_file} = $_;
		  return;
              }
	      $Scratch->{cross_file} = "NONE";
	      return;

-- 
Red Hat, Inc., 131 Willow Lane, Floor 2, Oxford, OH  45056
phone +1.513.523.7621 fax 7501 <mheins@redhat.com>

Being against torture ought to be sort of a bipartisan thing.
-- Karl Lehenbauer