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

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);