2c1005522b
Credit Card failures now bounce user back to checkout screen with error there Added Check commerce plugin and removed select box from Cash plugin. Users now don't have to chose twice. Added label to each payment plugin. ITransact module now defaults to "Credit Card" for display purposes.
84 lines
1.9 KiB
Perl
84 lines
1.9 KiB
Perl
package WebGUI::Commerce::Payment::Check;
|
|
|
|
=head1 LEGAL
|
|
|
|
-------------------------------------------------------------------
|
|
WebGUI is Copyright 2001-2007 Plain Black Corporation.
|
|
-------------------------------------------------------------------
|
|
Please read the legal notices (docs/legal.txt) and the license
|
|
(docs/license.txt) that came with this distribution before using
|
|
this software.
|
|
-------------------------------------------------------------------
|
|
http://www.plainblack.com info@plainblack.com
|
|
-------------------------------------------------------------------
|
|
|
|
=head1 NAME
|
|
|
|
Package WebGUI::Commerce::Payment::Check
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Payment plug-in for check transactions.
|
|
|
|
=cut
|
|
|
|
use strict;
|
|
use WebGUI::HTMLForm;
|
|
use WebGUI::Commerce::Payment;
|
|
use WebGUI::Commerce::Item;
|
|
use Tie::IxHash;
|
|
use WebGUI::International;
|
|
use WebGUI::SQL;
|
|
use base 'WebGUI::Commerce::Payment::Cash';
|
|
|
|
#-------------------------------------------------------------------
|
|
sub getPaymentMethod {
|
|
my $self = shift;
|
|
unless($self->{_paymentMethod}) {
|
|
$self->{_paymentMethod} = "check";
|
|
}
|
|
return $self->{_paymentMethod};
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub i18n {
|
|
my $self = shift;
|
|
unless (exists $self->{_i18n}) {
|
|
$self->{_i18n} = WebGUI::International->new($self->session,'CommercePaymentCheck');
|
|
}
|
|
return $self->{_i18n};
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 init ( namespace )
|
|
|
|
Constructor for the Check plugin.
|
|
|
|
=head3 session
|
|
|
|
A copy of the session object
|
|
|
|
=head3 namespace
|
|
|
|
The namespace of the plugin.
|
|
|
|
=cut
|
|
|
|
sub init {
|
|
my ($class, $self);
|
|
$class = shift;
|
|
my $session = shift;
|
|
my $namespace = shift || 'Check';
|
|
$self = $class->SUPER::init($session,$namespace);
|
|
return $self;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub name {
|
|
return 'Check';
|
|
}
|
|
|
|
|
|
1;
|
|
|