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

a lot of session fixes... I'm sure this breaks something somewhere though.

Browse source
This commit is contained in:
Matthew Wilson 2006-03-10 19:59:43 +00:00
parent 279233b367
commit 0c177bacb1
10 changed files with 38 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Commerce/Shipping/ByPrice.pm
View file

@ -62,8 +62,8 @@ sub configurationForm {
sub init {
my ($class, $self);
$class = shift;
$self = $class->SUPER::init('ByPrice');
my $session = shift;
$self = $class->SUPER::init($session,'ByPrice');
return $self;
}
@ -77,8 +77,8 @@ Returns the internationalized name for this shipping plugin.
=cut
sub name {
my ($session) = @_;
my $i18n = WebGUI::International->new($session, 'CommerceShippingByPrice');
my ($self) = @_;
my $i18n = WebGUI::International->new($self->session, 'CommerceShippingByPrice');
return $i18n->get('title');
}

8
lib/WebGUI/Commerce/Shipping/ByWeight.pm
View file

@ -70,8 +70,8 @@ Constructor
sub init {
my ($class, $self);
$class = shift;
$self = $class->SUPER::init('ByWeight');
my $session = shift;
$self = $class->SUPER::init($session,'ByWeight');
return $self;
}
@ -85,8 +85,8 @@ Returns the internationalized name for this shipping plugin.
=cut
sub name {
my ($session) = @_;
my $i18n = WebGUI::International->new($session, 'CommerceShippingByWeight');
my $self = shift;
my $i18n = WebGUI::International->new($self->session, 'CommerceShippingByWeight');
return $i18n->get('title');
}

12
lib/WebGUI/Commerce/Shipping/PerTransaction.pm
View file

@ -16,7 +16,7 @@ use strict;
#-------------------------------------------------------------------
=head2 calc ( $session )
=head2 calc ( $self )
Calculate the shipping price for this plugin.
@ -33,7 +33,7 @@ sub calc {
#-------------------------------------------------------------------
=head2 configurationForm ( $session )
=head2 configurationForm ( $self )
Configuration form for this shipping method.
@ -65,8 +65,8 @@ Constructor
sub init {
my ($class, $self);
$class = shift;
$self = $class->SUPER::init('PerTransaction');
my $session = shift;
$self = $class->SUPER::init($session,'PerTransaction');
return $self;
}
@ -80,8 +80,8 @@ Returns the internationalized name for this shipping plugin.
=cut
sub name {
my ($session) = @_;
my $i18n = WebGUI::International->new($session, 'CommerceShippingPerTransaction');
my ($self) = shift;
my $i18n = WebGUI::International->new($self->session, 'CommerceShippingPerTransaction');
return $i18n->get('title');
}