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

USPS Insurance estimation code and tests. Basically working.

Browse source
This commit is contained in:
Colin Kuskie 2009-10-09 16:28:20 -07:00
parent 1f1f3c38ae
commit 829c8ce9d8
2 changed files with 81 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -221,22 +221,25 @@ The set of shippable units, which are required to do quantity and cost lookups.
sub _calculateInsurance {
my ($self, @shippableUnits) = @_;
my $cost = 0;
return $cost unless $self->get('addInsurance') && $self->get('insuranceRates');
my $insuranceCost = 0;
return $insuranceCost unless $self->get('addInsurance') && $self->get('insuranceRates');
my @insuranceTable = map { my ($value,$cost) = split /:/, $_; [$value, $cost]; }
split /\r?\n/, $self->get('insuranceRates');
##Sort by decreasing value for easy post processing
@insuranceTable = sort { $b->[0] <=> $a->[0] } @insuranceTable;
my $insuranceCost = 0;
foreach my $package (@shippableUnits) {
my $value = 0;
ITEM: foreach my $item (@{ $package }) {
$cost += $item->getSku->getPrice() * $item->get('quantity');
$value += $item->getSku->getPrice() * $item->get('quantity');
}
my $pricePoint;
POINT: foreach $pricePoint (@insuranceTable) {
last POINT if $cost <= $pricePoint->[0];
POINT: foreach my $point (@insuranceTable) {
if ($value > $point->[0]) {
$pricePoint = $point;
last POINT;
}
}
$insuranceCost += $pricePoint->[1];
$insuranceCost += defined $pricePoint ? $pricePoint->[1] : 0;
}
return $insuranceCost;
}