131 lines
3.9 KiB
Perl
131 lines
3.9 KiB
Perl
package WebGUI::Operation::TransactionLog;
|
|
|
|
use strict;
|
|
use WebGUI::Commerce::Transaction;
|
|
use WebGUI::Asset::Template;
|
|
use WebGUI::Operation;
|
|
use WebGUI::Form;
|
|
use WebGUI::Paginator;
|
|
|
|
=head1 NAME
|
|
|
|
Package WebGUI::Operation::TransactionLog
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Operations for dealing with transactions from the WebGUI Commerce System.
|
|
|
|
=cut
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 www_viewPurchaseHistory ( errorMessage )
|
|
|
|
Templated output of all Commerce transactions by this user. Allows the user to cancel any recurring
|
|
transactions.
|
|
|
|
=head3 errorMessage
|
|
|
|
This error message will be added to the template variables.
|
|
|
|
=cut
|
|
|
|
sub www_viewPurchaseHistory {
|
|
my $session = shift;
|
|
my (@historyLoop, %var, %properties);
|
|
$var{errorMessage} = shift;
|
|
my $p = WebGUI::Paginator->new($session, $session->url->page("op=viewPurchaseHistory"));
|
|
|
|
my @history = reverse @{WebGUI::Commerce::Transaction->new($session)->transactionsByUser($session->user->userId)};
|
|
$p->setDataByArrayRef(\@history);
|
|
$p->appendTemplateVars(\%var);
|
|
for my $transaction (@{$p->getPageData}) {
|
|
%properties = %{$transaction->get};
|
|
$properties{initDate} = $session->datetime->epochToHuman($properties{initDate});
|
|
$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 => $items,
|
|
cancelUrl => $session->url->page('op=cancelRecurringTransaction;tid='.$properties{transactionId}),
|
|
canCancel => ($properties{recurring} && ($properties{status} eq 'Completed')),
|
|
});
|
|
}
|
|
|
|
$var{purchaseHistoryLoop} = \@historyLoop;
|
|
my $templateId = $session->setting->get('commercePurchaseHistoryTemplateId');
|
|
return $session->style->userStyle(WebGUI::Asset::Template->new($session,$templateId)->process(\%var));
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 www_cancelRecurringTransaction ( )
|
|
|
|
Cancels a transaction if it is recurring. If not, an error message is returned.
|
|
The transaction to cancel is passed in via a form field entry in the session variable,
|
|
$session->form->process("tid").
|
|
|
|
=cut
|
|
|
|
sub www_cancelRecurringTransaction {
|
|
my $session = shift;
|
|
my ($transaction, $error, $message);
|
|
|
|
my $i18n = WebGUI::International->new($session, "TransactionLog");
|
|
|
|
$transaction = WebGUI::Commerce::Transaction->new($session, $session->form->process("tid"));
|
|
if ($transaction->isRecurring) {
|
|
$error = $transaction->cancelTransaction;
|
|
$message = $i18n->get('cancel error').$error if ($error);
|
|
} else {
|
|
$message = $i18n->get('cannot cancel');
|
|
}
|
|
|
|
return www_viewPurchaseHistory($session, $message);
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 www_deleteTransaction ( )
|
|
|
|
Deletes a transaction, as specified by $session->form->process("tid").
|
|
Afterward, it calls www_listTransactions
|
|
|
|
=cut
|
|
|
|
sub www_deleteTransaction {
|
|
my $session = shift;
|
|
my $transactionId;
|
|
|
|
return $session->privilege->insufficient unless ($session->user->isInGroup(3));
|
|
|
|
$transactionId = $session->form->process("tid");
|
|
|
|
WebGUI::Commerce::Transaction->new($session, $transactionId)->delete;
|
|
|
|
return WebGUI::Operation::execute($session,'listTransactions');
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_deleteTransactionItem {
|
|
my $session = shift;
|
|
return $session->privilege->insufficient unless ($session->user->isInGroup(3));
|
|
|
|
WebGUI::Commerce::Transaction->new($session, $session->form->process("tid"))->deleteItem($session->form->process("iid"), $session->form->process("itype"));
|
|
|
|
return WebGUI::Operation::execute($session,'listTransactions');
|
|
}
|
|
|
|
1;
|
|
|