[comment]
ui_template: Yes
ui_template_name: leftonly
[/comment]
[tmp members_only]1[/tmp]
[tmp page_title]__COMPANY__ -- [L]Order History[/L][/tmp]
[control reset=1]
[control-set]
[component]search_box_small[/component]
[/control-set]
[control-set]
[component]category_vertical[/component]
[/control-set]
[control-set]
[component]cart_tiny[/component]
[/control-set]
[control reset=1]
@_LEFTONLY_TOP_@
[tmp ugly_dbm][/tmp]
[calc]
return if $Config->{Database}{transactions}{Class} =~ /DBI/;
$Scratch->{ugly_dbm} = 1;
return;
[/calc]
[if scratch ugly_dbm]
[index table=transactions export-only=1]
[index table=orderline export-only=1]
[/if]
[query
table=transactions
arrayref=orders
sql="SELECT
code,status,tracking_number,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 ("You are not logged in.");
return;
}
my $orders = $Tmp->{orders};
if(! $orders or scalar @$orders == 0) {
$Document->write( "No pending orders for $uid.");
return;
}
HTML '
[L]Date[/L] | [L]Order ID[/L] | [L]Quantity[/L] | [L]Payment Method[/L] | [L]Subtotal[/L] | [L]Shipping[/L] [L]Handling[/L] |
[L]Total[/L] | [L]Status[/L] |
$order_date | $order_number | $nitems | $payment_method | $subtotal | $shipping$handling | $total_cost | $status |