oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Some fixes in viewPurchaseHistory operation

Browse source
This commit is contained in:
Doug Bell 2006-11-22 06:38:25 +00:00
parent 96b6559250
commit 3ca4bf725a
3 changed files with 36 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lib/WebGUI/Operation/TransactionLog.pm
View file

@ -37,13 +37,24 @@ sub www_viewPurchaseHistory {
$var{errorMessage} = shift;
@history = @{WebGUI::Commerce::Transaction->new($session)->transactionsByUser($session->user->userId)};
foreach (@history) {
%properties = %{$_->get};
for my $transaction (@history) {
%properties = %{$transaction->get};
$properties{initDate} = $session->datetime->epochToHuman($properties{initDate});
$properties{completionDate} = $session->datetime->epochToHuman($properties{completionDate}) if ($properties{completionDate});
$properties{completionDate} = $session->datetime->epochToHuman($properties{completionDate})
if ($properties{completionDate});
# Format dollar amounts
$properties{amount} = sprintf("%.2f",$properties{amount});
$properties{shippingCost} = sprintf("%.2f",$properties{shippingCost});
my $items = $transaction->getItems;
for my $item (@$items) {
$item->{amount} = sprintf("%.2f",$item->{amount});
}
push(@historyLoop, {
(%properties),
itemLoop => $_->getItems,
itemLoop => $items,
cancelUrl => $session->url->page('op=cancelRecurringTransaction;tid='.$properties{transactionId}),
canCancel => ($properties{recurring} && ($properties{status} eq 'Completed')),
});