Hover help for Matrix. Internationalized all labels and text as well.

Internationalized entries for Commerce settings that were missed before.
Added some POD.
This commit is contained in:
Colin Kuskie 2005-12-22 23:18:55 +00:00
parent 9bc967a042
commit 3a6284d0f4
6 changed files with 339 additions and 75 deletions

View file

@ -357,7 +357,7 @@ sub www_deleteCartItem {
#-------------------------------------------------------------------
sub www_editCommerceSettings {
my (%tabs, $tabform, $jscript, $currentPlugin, $ac, $jscript, $i18n,
my (%tabs, $tabform, $currentPlugin, $ac, $jscript, $i18n,
$paymentPlugin, @paymentPlugins, %paymentPlugins, @failedPaymentPlugins, $plugin,
$shippingPlugin, @shippingPlugins, %shippingPlugins, @failedShippingPlugins);
return WebGUI::Privilege::adminOnly() unless (WebGUI::Grouping::isInGroup(3));
@ -561,16 +561,16 @@ sub www_listTransactions {
my $i18n = WebGUI::International->new('TransactionLog');
my $transactionOptions = {
'' => 'Any',
'Pending' => 'Pending',
'Completed' => 'Completed',
'' => $i18n->get('any'),
'Pending' => $i18n->get('pending'),
'Completed' => $i18n->get('completed'),
};
my $shippingOptions = {
'' => 'Any',
'Shipped' => 'Shipped',
'NotShipped' => 'Not yet shipped',
'Delivered' => 'Delivered',
'' => $i18n->get('any'),
'Shipped' => $i18n->get('shipped'),
'NotShipped' => $i18n->get('not shipped'),
'Delivered' => $i18n->get('delivered'),
};
my $initStart = WebGUI::FormProcessor::date('initStart');

View file

@ -10,7 +10,28 @@ use WebGUI::Form;
use WebGUI::Privilege;
use WebGUI::Grouping;
=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 (@history, @historyLoop, %var, %properties);
@ -35,6 +56,15 @@ sub www_viewPurchaseHistory {
}
#-------------------------------------------------------------------
=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}{tid}.
=cut
sub www_cancelRecurringTransaction {
my ($transaction, $error, $message);
@ -52,6 +82,14 @@ sub www_cancelRecurringTransaction {
}
#-------------------------------------------------------------------
=head2 www_deleteTransaction ( )
Deletes a transaction, as specified by $session{form}{tid}.
Afterward, it calls www_listTransactions
=cut
sub www_deleteTransaction {
my $transactionId;