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

For USPS priority service, add another container type.

Browse source
This commit is contained in:
Colin Kuskie 2009-09-06 20:23:12 -07:00
parent 1e98e34128
commit ff55ab1493
4 changed files with 80 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lib/WebGUI/Shop/ShipDriver/USPS.pm
View file

@ -53,6 +53,9 @@ sub buildXML {
$xmlTop->{Package} = [];
##Do a request for each package.
my $packageIndex;
my $shipType = $self->get('shipType');
my $service = $shipType eq 'PRIORITY VARIABLE' ? 'PRIORITY'
: $shipType;
PACKAGE: for(my $packageIndex = 0; $packageIndex < scalar @packages; $packageIndex++) {
my $package = $packages[$packageIndex];
next PACKAGE unless scalar @{ $package };
@ -73,14 +76,17 @@ sub buildXML {
my $destination = $package->[0]->getShippingAddress;
my $destZipCode = $destination->get('code');
$packageData{ID} = $packageIndex;
$packageData{Service} = [ $self->get('shipType') ];
$packageData{Service} = [ $service ];
$packageData{ZipOrigination} = [ $self->get('sourceZip') ];
$packageData{ZipDestination} = [ $destZipCode ];
$packageData{Pounds} = [ $pounds ];
$packageData{Ounces} = [ $ounces ];
if ($self->get('shipType') eq 'PRIORITY') {
if ($shipType eq 'PRIORITY') {
$packageData{Container} = [ 'FLAT RATE BOX' ];
}
elsif ($shipType eq 'PRIORITY VARIABLE') {
#$packageData{Container} = [ 'VARIABLE' ];
}
$packageData{Size} = [ 'REGULAR' ];
$packageData{Machinable} = [ 'true' ];
push @{ $xmlTop->{Package} }, \%packageData;
@ -218,10 +224,11 @@ sub definition {
my $definition = shift || [];
my $i18n = WebGUI::International->new($session, 'ShipDriver_USPS');
tie my %shippingTypes, 'Tie::IxHash';
##Note, these keys are required XML keywords in the USPS XML API.
$shippingTypes{'PRIORITY'} = $i18n->get('priority');
$shippingTypes{'EXPRESS' } = $i18n->get('express');
$shippingTypes{'PARCEL' } = $i18n->get('parcel post');
##Note, these keys are used by buildXML
$shippingTypes{'PRIORITY VARIABLE'} = $i18n->get('priority variable');
$shippingTypes{'PRIORITY'} = $i18n->get('priority');
$shippingTypes{'EXPRESS' } = $i18n->get('express');
$shippingTypes{'PARCEL' } = $i18n->get('parcel post');
tie my %fields, 'Tie::IxHash';
%fields = (
instructions => {

6
lib/WebGUI/i18n/English/ShipDriver_USPS.pm
View file

@ -76,6 +76,12 @@ our $I18N = {
context => q|Label for a type of shipping from the USPS.|,
},
'priority variable' => {
message => q|Priority, Custom box|,
lastUpdated => 1203569511,
context => q|Label for a type of shipping from the USPS.|,
},
'express' => {
message => q|Express, Regular size|,
lastUpdated => 1203569511,