[calc] if ( $CGI->{showarchive} ) { delete $Values->{showpending}; $Values->{showarchive} = 1; $Scratch->{archive_sense} = 'eq'; $Scratch->{archive_img} = 'left.gif'; $Scratch->{archive_nm} = 'unarchive'; $Scratch->{archive_label} = 'archived'; } elsif($CGI->{showpending}) { delete $Values->{showarchive}; $Values->{showpending} = 1; $Scratch->{archive_sense} = 'ne'; $Scratch->{archive_img} = 'right.gif'; $Scratch->{archive_nm} = 'archive'; $Scratch->{archive_label} = 'pending'; } elsif(! $Values->{showarchive} and ! $Values->{showpending}) { delete $Values->{showarchive}; $Values->{showpending} = 1; $Scratch->{archive_sense} = 'ne'; $Scratch->{archive_img} = 'right.gif'; $Scratch->{archive_nm} = 'archive'; $Scratch->{archive_label} = 'pending'; } return; [/calc] [set icon_name]icon_orders.gif[/set] [seti page_title] [if value showarchive] [L]Orders[/L]: [L]Archived Orders[/L] [set help_name]order.main.archived[/set] [else] [L]Orders[/L]: [L]Pending Orders[/L] [set help_name]order.main.pending[/set] [/else] [/if] [/seti] [set ui_class]Orders[/set] [tmp page_perm]order=l[/tmp] @_UI_STD_HEAD_@ [value name=mv_data_table set=transactions hide=1] [if-mm !tables] [set ui_error] [L]Not authorized for order administration. Contact administrator?[/L] [/set] [bounce page="__UI_BASE__/error"] [/if-mm] [tmp can_delete][if-mm advanced order=d]1[/if-mm][/tmp] [include include/order_delete_archive] [calc] if ($CGI->{mv_like_spec}) { my @f = split /\0/, $CGI->{mv_like_field}; my @s = split /\0/, $CGI->{mv_like_spec}; my @q = 'ra=yes'; my $found; for(my $i = 0; $i < @f; $i++) { next unless length $s[$i]; $found++; push @q, "lf=$f[$i]"; push @q, "ls=$s[$i]"; } if($found) { $CGI->{ui_text_qualification} = join "\n", @q; } else { $CGI->{ui_text_qualification} = "" } } return if $CGI->{ui_text_qualification}; return unless $Config->{Database}{transactions}{LARGE}; $Scratch->{ui_location} = $Tag->area( { href => '__UI_BASE__/flex_select', form => q( mv_data_table=transactions page_title=Order select page_banner=Order select ui_searchpage=__UI_BASE__/order ), }, ); return; [/calc] [if scratch ui_location] [comment]Comes from above include[/comment] [bounce href=`delete $Scratch->{ui_location}`] [/if] [update values] [if scratch message]
[scratchd message][/if]
[L]or[/L] |