[comment] ui_template: Yes ui_template_name: leftonly [/comment] [tmp members_only]1[/tmp] [tmp page_title]__COMPANY__ -- [L]Returns[/L][/tmp] [control reset=1] [control-set] [component]search_box_small[/component] [/control-set] [control-set] [component]product_tree[/component] [/control-set] [control reset=1] @_LEFTONLY_TOP_@
[query st=db arrayref=orders sql="SELECT code,status,nitems,subtotal,shipping,handling,total_cost,payment_method,order_date FROM transactions WHERE username = '[data base=session field=username filter=sql]' ORDER by code "][/query] [mvasp tables=transactions] <% my $uid = $Session->{username}; if (! $uid) { $Document->write (qq{

### You are not logged in.

}); return; } my $orders = $Tmp->{orders}; if(! $orders or scalar @$orders == 0) { $Document->write( "

No orders found for $uid.

"); return; } HTML <<'EOF'; [L]Please select an order below to continue with the return process.[/L] [form-session-id]

EOF my $header_template = <<'EOF';
[L]ORDER ID[/L] | [L]DATE[/L] | [L]TOTAL[/L] | [L]STATUS[/L]
EOF my $line_template = <<'EOF'; <TR">
EOF my %hash; my @fields = qw/order_number status nitems subtotal shipping handling total_cost payment_method order_date/; my $row; my %summary; my $first; my $record; HTML $header_template; foreach $record (@$orders) { my $line = $line_template; @hash{@fields} = @$record; $hash{detail_url} = $Tag->area( { href => 'query/order_return', arg => $hash{order_number}, }); if($hash{status} =~ /\d/) { my @ids = grep /\S/, split /\s+/, $hash{status}; $hash{status} = ''; for(@ids) { $hash{status} .= <<EOF; UPS $_ EOF } } else { $hash{status} = <<EOF; $hash{status} EOF } for(qw/subtotal shipping total_cost/) { $hash{$_} = $Tag->currency ({ body=> $hash{$_} }); } if($hash{handling}) { $hash{handling} = "
(handling " . $Tag->currency ({ body=> $hash{handling} }) . ")"; } else { $hash{handling} = ''; } $line =~ s/\$(\w+)/$hash{$1}/g; HTML $line; } HTML "
$order_number | $order_date | $total_cost | $status

"; %> [/mvasp]
[seti export][tag export transactions transactions.txt][/tag][/seti] [seti export][tag export orderline orderline.txt][/tag][/seti] @_LEFTONLY_BOTTOM_@