[if-mm !advanced orderstats] [calc] $CGI->{affiliate} = $Session->{username}; return; [/calc] [/if-mm] [set page_title]Order detail report[/set] [set icon_name]admin/icon_stats.gif[/set] [set help_name]orderstats.view[/set] @_UI_STD_HEAD_@ [calc] if ($comm_field = $Tag->var('UI_COMMISSION_FIELD')) { $Scratch->{comm_select} = ", $comm_field"; $Scratch->{comm_states} = [split (/\s+/, '__UI_COMMISSION_STATES__')]; if (@{$Scratch->{comm_states}}) { $Scratch->{comm_select} .= ', status'; } $Scratch->{cols} = 8; } else { $Scratch->{comm_select} = ''; $Scratch->{cols} = 7; } return; [/calc] [if scratch comm_select] [/if] [calc] if($Session->{arg}) { $Scratch->{date_limit} = "AND order_date like '$Session->{arg}%'"; } elsif ($CGI->{ui_begin_date}) { for (qw/ ui_begin_date ui_end_date /) { $CGI->{$_} = $Tag->filter( { op => 'date_change', body => $CGI->{$_} }); } $Scratch->{date_limit} = < '$CGI->{ui_begin_date}' AND order_date < '$CGI->{ui_end_date}Z' EOF } else { $Scratch->{date_limit} = "AND order_date like '$Scratch->{today}%'"; } $Scratch->{synd_limit} = ''; $Scratch->{campaign_field} = 'campaign'; $Scratch->{parent_field} = ''; return unless $CGI->{affiliate}; if ($parent_field = $Tag->var('UI_AFFILIATE_PARENT_FIELD')) { $Scratch->{synd_limit} = "AND (affiliate = '$CGI->{affiliate}' OR $parent_field = '$CGI->{affiliate}')"; $Scratch->{campaign_field} = $parent_field; $Scratch->{comm_select} .= ', parent_comm'; $Scratch->{parent_field} = $parent_field; } else { $Scratch->{synd_limit} = "AND affiliate = '$CGI->{affiliate}'"; $Scratch->{synd_limit} .= "AND campaign = '$CGI->{campaign}'" if $CGI->{campaign}; } return; [/calc] [query hashref=main st=db table=transactions sql=" select order_number, affiliate, [scratch campaign_field], total_cost, payment_method, state, city, status, order_date[scratch comm_select] from transactions WHERE deleted != '1' [scratch date_limit] [scratch synd_limit] order by order_number "][/query] [perl tables="store"] return <{main}; EOF foreach $line (@{$Tmp->{main}}) { $total_sales += $line->{total_cost}; $amount = sprintf '%.2f', $line->{total_cost}; $url = $Tag->area('__UI_BASE__/order_view', $line->{order_number}); if ($Scratch->{comm_select}) { if (! @{$Scratch->{comm_states}} || grep {$_ eq $line->{status}} @{$Scratch->{comm_states}}) { if ($Scratch->{parent_field} && $line->{$Scratch->{parent_field}} eq $CGI->{affiliate}) { $commission = $line->{parent_comm}; } else { $commission = sprintf '%.2f', $line->{commission}; } } else { $commission = '0.00'; } $commcell = "\n"; } else { $commcell = ''; } $out .= < $commcell EOF } $total_sales = sprintf '$%.2f', $total_sales; $out .= < EOF [/perl]
Order Affiliate Campaign Address Date/Time Amount Commission Status

Bad query specified, caused error.

\n" . $Tag->currency({}, $commission) . "\n $line->{order_number} $line->{affiliate}  $line->{$Scratch->{campaign_field}}  $line->{city}, $line->{state} $line->{order_date} $amount $line->{status}
GRAND TOTAL         $total_sales  
@_UI_STD_FOOTER_@