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

Finish out the FlatRate driver, with tests and i18n.

Browse source 
Fix bugs found in ShipDriver by building a driver.
This commit is contained in:
Colin Kuskie 2008-02-25 22:36:10 +00:00
parent 6d856d1b58
commit 640554ea14
4 changed files with 160 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

38
lib/WebGUI/Shop/ShipDriver.pm
View file

@ -131,23 +131,24 @@ sub definition {
unless ref $session eq 'WebGUI::Session';
my $definition = shift || [];
my $i18n = WebGUI::International->new($session, 'ShipDriver');
tie my %properties, 'Tie::IxHash';
%properties = (
name => 'Shipper Driver',
fields => {
label => {
fieldType => 'text',
label => $i18n->get('label'),
hoverHelp => $i18n->get('label help'),
defaultValue => undef,
},
enabled => {
fieldType => 'yesNo',
label => $i18n->get('enabled'),
hoverHelp => $i18n->get('enabled help'),
defaultValue => 1,
},
tie my %fields, 'Tie::IxHash';
%fields = (
label => {
fieldType => 'text',
label => $i18n->get('label'),
hoverHelp => $i18n->get('label help'),
defaultValue => undef,
},
enabled => {
fieldType => 'yesNo',
label => $i18n->get('enabled'),
hoverHelp => $i18n->get('enabled help'),
defaultValue => 1,
},
);
my %properties = (
name => 'Shipper Driver',
fields => \%fields,
);
push @{ $definition }, \%properties;
return $definition;
@ -245,7 +246,7 @@ subclass, instead specified in definition with the name "name".
sub getName {
my $self = shift;
my $definition = WebGUI::Shop::ShipDriver->definition($self->session);
my $definition = $self->definition($self->session);
return $definition->[0]->{name};
}
@ -302,7 +303,8 @@ Setter for user configurable options in the ship objects.
=head4 $options
A list of properties to assign to this ShipperDriver. See C<definition> for details.
A list of properties to assign to this ShipperDriver. See C<definition> for details. The options are
flattened into JSON and stored in the database as text. There is no content checking performed.
=cut

60
lib/WebGUI/Shop/ShipDriver/FlatRate.pm
View file

@ -2,6 +2,7 @@ package WebGUI::Shop::ShipDriver::FlatRate;
use strict;
use base qw/WebGUI::Shop::ShipDriver/;
use Carp qw/croak/;
=head1 NAME
@ -60,36 +61,37 @@ sub definition {
croak "Definition requires a session object"
unless ref $session eq 'WebGUI::Session';
my $definition = shift || [];
my $i18n = WebGUI::International->new($session, 'ShipDriver');
tie my %properties, 'Tie::IxHash';
%properties = (
name => 'Flat Rate',
fields => {
flatFee => {
fieldType => 'float',
label => $i18n->get('flatFee'),
hoverHelp => $i18n->get('flatFee help'),
defaultValue => 0,
},
percentageOfPrice => {
fieldType => 'float',
label => $i18n->get('percentageOfPrice'),
hoverHelp => $i18n->get('percentageOfPrice help'),
defaultValue => 0,
},
pricePerWeight => {
fieldType => 'float',
label => $i18n->get('pricePerWeight'),
hoverHelp => $i18n->get('pricePerWeight help'),
defaultValue => 0,
},
pricePerItem => {
fieldType => 'float',
label => $i18n->get('pricePerItem'),
hoverHelp => $i18n->get('pricePerItem help'),
defaultValue => 0,
},
my $i18n = WebGUI::International->new($session, 'ShipDriver_FlatRate');
tie my %fields, 'Tie::IxHash';
%fields = (
flatFee => {
fieldType => 'float',
label => $i18n->get('flatFee'),
hoverHelp => $i18n->get('flatFee help'),
defaultValue => 0,
},
percentageOfPrice => {
fieldType => 'float',
label => $i18n->get('percentageOfPrice'),
hoverHelp => $i18n->get('percentageOfPrice help'),
defaultValue => 0,
},
pricePerWeight => {
fieldType => 'float',
label => $i18n->get('pricePerWeight'),
hoverHelp => $i18n->get('pricePerWeight help'),
defaultValue => 0,
},
pricePerItem => {
fieldType => 'float',
label => $i18n->get('pricePerItem'),
hoverHelp => $i18n->get('pricePerItem help'),
defaultValue => 0,
},
);
my %properties = (
name => 'Flat Rate',
fields => \%fields,
);
push @{ $definition }, \%properties;
return $class->SUPER::definition($session, $definition);