[seti page_title][L]Interchange Item Selector[/L][/seti] [set icon_name]icon_item.gif[/set] [set meta_header] [/set] @_UI_STD_HEAD_@ [calc] if($CGI->{value}) { $CGI->{origvalue} = $CGI->{value}; $CGI->{value} =~ s/\s+$//; $CGI->{value} =~ s/^\s+//; $CGI->{value} =~ s/\s+/\n/g; } $CGI->{tstring} = 'ui_preload_' . $CGI->{table} . "_" . $CGI->{col}; $CGI->{rstring} = 'ui_preload:' . $CGI->{table} . ":" . $CGI->{col}; my $k = $Config->{Database}{$Config->{ProductFiles}[0]}{KEY} || 'sku'; $CGI->{sstring} = qq( rf=$k,$Config->{DescriptionField},category tf=category,$Config->{DescriptionField} ); return; [/calc] [search-region more=1 arg=" ra=yes st=db ml=1000 [cgi sstring] " ] [set tstring_rename] [calc] my @keys = grep /^item/ && $CGI->{$_}, keys %$CGI; for(@keys) { my $sku = $_; next unless $CGI->{$_} += 0; $sku =~ s/^item//; push @i, $sku; push @q, $CGI->{$_}; } if(@i) { $CGI->{mv_order_item} = join "\0", @i; $CGI->{mv_order_quantity} = join "\0", @q; $CGI->{mv_todo} = 'refresh'; } return; [/calc] [/set]
[form-session-id] [loop list="[cgi hiddens]"] [/loop] [search-list] [item-sub lineit] shift; my $row = shift; my ($code, $desc, $cat) = @$row; my $out = ''; if($cat ne $precat) { $out .= "" x (3 - $i % 4); $out .= ""; $precat = $cat; $i = 0; } $out .= < $code - $desc (-)
EOF $i++; $out .= '
' unless $i % 4; return $out; [/item-sub] [item-exec lineit][/item-exec] [/search-list] [calc] return "" unless ++$i % 4; return; [/calc]
     
 
$cat
     
[more-list] more: [more] [/more-list]
[/search-region] @_UI_STD_FOOTER_@