[ic] UPSE Online, special handling charge, adder
Daniel Browning
db at endpoint.com
Fri Aug 21 00:59:38 UTC 2009
On Thursday 20 August 2009 5:43:49 pm DB wrote:
> I finally got around to trying this and it indeed works. Thanks!
You're welcome!
> I'm now wondering how this could be modified to add the
> UPS_OVERSIZED_FEE for each item in the cart
Here's one (untested) suggestion:
Sub custom_shipping <<EOS
sub {
my ($final, $mode, $opt, $o) = @_;
my $additional_fees = 0;
my $oversized_fee = $Variable->{UPS_OVERSIZED_FEE};
for my $item (@$Items) {
next unless $item->{oversized};
my $quantity = $item->{quantity} || 1;
my $item_fee = $quantity * $oversized_fee;
$additional_fees += $item_fee;
}
$final += $additional_fees;
return $final;
}
EOS
--
Daniel Browning
End Point Corporation
http://www.endpoint.com/
More information about the interchange-users
mailing list