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

getting rid of even more stuf i forgot of in the commerce system

Browse source
This commit is contained in:
JT Smith 2008-05-28 18:57:25 +00:00
parent 4712ba2823
commit 4cfafd7c23
13 changed files with 16 additions and 1012 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Operation/Settings.pm
View file

@ -470,7 +470,6 @@ sub definition {
groupIdAdminActiveSessions
groupIdAdminAdSpace
groupIdAdminCache
groupIdAdminCommerce
groupIdAdminCron
groupIdAdminDatabaseLink
groupIdAdminGraphics
@ -479,13 +478,10 @@ sub definition {
groupIdAdminHelp
groupIdAdminLDAPLink
groupIdAdminLoginHistory
groupIdAdminProductManager
groupIdAdminProfileSettings
groupIdAdminReplacements
groupIdAdminSpectre
groupIdAdminStatistics
groupIdAdminSubscription
groupIdAdminTransactionLog
groupIdAdminUser
groupIdAdminUserAdd
groupIdAdminVersionTag

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

@ -1,146 +0,0 @@
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 canView ( session [, user] )
Returns true if the user can administrate this operation. user defaults to
the current user.
=cut
sub canView {
my $session = shift;
my $user = shift || $session->user;
return $user->isInGroup( $session->setting->get("groupIdAdminTransactionLog") );
}
#-------------------------------------------------------------------
=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 canView($session);
$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 canView($session);
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;