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

i18n for Cash plugin

Browse source 
Fix broken link inside Operation/AdSpace.pm
Add a method to be used for developing apps with i18n before
i18n is ready.  This will eventually be used as part of a system
to automatically create i18n files from Perl source.
This commit is contained in:
Colin Kuskie 2006-04-18 18:01:42 +00:00
parent ac55cc1e41
commit f6b336a824
4 changed files with 193 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lib/WebGUI/Commerce/Payment/Cash.pm
View file

@ -14,7 +14,7 @@ package WebGUI::Commerce::Payment::Cash;
=head1 NAME
Package WebGUI::Payment::ITransact
Package WebGUI::Payment::Cash
=head1 DESCRIPTION
@ -44,7 +44,7 @@ sub checkoutForm {
my ($self, $u, $f, %months, %years, $i18n);
$self = shift;
$i18n = WebGUI::International->new($self->session, 'CommercePaymentITransact');
$i18n = WebGUI::International->new($self->session, 'CommercePaymentCash');
$u = WebGUI::User->new($self->session,$self->session->user->userId);
@ -52,12 +52,12 @@ sub checkoutForm {
$f->selectBox(
-name=>"paymentMethod",
-label=>"Payment Method",
-label=>$i18n->get("payment method"),
-value=>[$self->session->form->process("paymentMethod")],
-defaultValue=>['cash'],
-options=> { 'cash' => 'Cash',
'check' => 'Check',
'other' => 'Other'
-options=> { 'cash' => $i18n->get('cash'),
'check' => $i18n->get('check'),
'other' => $i18n->get('other'),
}
);
@ -362,7 +362,7 @@ sub checkoutForm {
sub configurationForm {
my ($self, $f, $i18n);
$self = shift;
$i18n = WebGUI::International->new($self->session, 'CommercePaymentITransact');
$i18n = WebGUI::International->new($self->session, 'CommercePaymentCash');
$f = WebGUI::HTMLForm->new($self->session);
@ -375,8 +375,8 @@ sub configurationForm {
$f->yesNo(
-name => $self->prepend('completeTransaction'),
-value => $self->get('completeTransaction') || 1,
-label => 'Complete Transaction on Submit?',
-hoverHelp => 'When set to \'yes\', the transaction is completed when the user submits payment details. When set to \'no\', the transaction is set to pending and must be manually set to complete. This may be useful if you wish to allow site visitors to select the Cash Payment method, but would like to wait for payment to clear before completing the transaction.'
-label => $i18n->get('complete transaction'),
-hoverHelp => $i18n->get('complete transaction description'),
);
return $self->SUPER::configurationForm($f->printRowsOnly);
@ -428,7 +428,9 @@ sub errorCode {
#-------------------------------------------------------------------
sub name {
return "Cash";
my ($self) = shift;
my $i18n = WebGUI::International->new($self->session, "CommercePaymentCash");
return $i18n->get('module name');
}
#-------------------------------------------------------------------
@ -444,7 +446,7 @@ sub normalTransaction {
$normal = shift;
if ($normal) {
my $i18n = WebGUI::International->new($self->session, 'CommercePaymentITransact');
my $i18n = WebGUI::International->new($self->session, 'CommercePaymentCash');
$self->{_transactionParams} = {
AMT => sprintf('%.2f', $normal->{amount}),
DESCRIPTION => $normal->{description} || $i18n->get('no description'),
@ -506,7 +508,7 @@ sub validateFormData {
my ($self, @error, $i18n, $currentYear, $currentMonth);
$self = shift;
$i18n = WebGUI::International->new($self->session,'CommercePaymentITransact');
$i18n = WebGUI::International->new($self->session,'CommercePaymentCash');
push (@error, $i18n->get('invalid firstName')) unless ($self->session->form->process("firstName"));
push (@error, $i18n->get('invalid lastName')) unless ($self->session->form->process("lastName"));