[ic] Database

[Mark Johnson]

[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]
                 ^

"joachim.richter" wrote:
> 
> Hi Mike,
> 
> thanks for the help, however we cant seem to get the output into a scratch field [cross_file]
> are we totally mistaken or are we overseeing something ?
> 
> [set 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][/set]
> 
> if we scratch the cross_file we actually get the perl code back ?? [scratch cross_file]
> 
> thanks and a good weekend
> 
> joe
> US Video Center Medien GmbH
> Heimsheimer Str 22
> 70499 Stuttgart
> 
> Tel 0711 880252 0
> Fax 0711 880252 22
> Email joachim.richter@usvideocenter.de
> 
> _______________________________________________
> Interchange-users mailing list
> Interchange-users@lists.akopia.com
> http://lists.akopia.com/mailman/listinfo/interchange-users

-- 
Mark Johnson
Senior Developer - Professional Services
Red Hat, Inc.
E-Business Solutions
markj@redhat.com
703-456-2912