Re: [ic] bug in Business::UPS for international shipping

[Dan Browning <suppressed>]

At 04:20 PM 8/30/2002 -0400, you wrote:

>     There is a bug in Business::UPS relating to international shipping.  I
> know that this affects the XPD shipping mode at a minimum, I don't know if
> it affects other modes.
>     The problem is that Business::UPS assumes that the UPS server always
> returns the total shipping cost in column 11.  This is not a correct
> assumption.  When the shipping destination is to certain overseas postal
> codes, UPS adds on (substantial) additional charges, in which case column 11
> becomes a subtotal and the actual total is reflected in column 13.
>     To remedy this I modified UPS.pm as follows:
>
>      else {
>        # Good results
>        my $total_shipping = $ret[10];
>        my $ups_zone = $ret[6];
>        return ($total_shipping,$ups_zone,undef);
>       }
>
>     to:
>
>      } else {
>                        # Good results
>                        my $total_shipping=0;
>                        if ($#ret>12) {
>                                $total_shipping = $ret[12];
>                        } else {
>                                $total_shipping = $ret[10];
>                        }
>                        my $ups_zone = $ret[6];
>                        return ($total_shipping,$ups_zone,undef);
>       }
>
>
>
> Jeff

That is greatly appreciated, Jeff.  Have you already reported the issue to 
the author, Mark Solomon <suppressed>?

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| Dan Browning, Kavod Technologies      <suppressed> |
| (360) 882-7872 x7, 6700 NE 162nd Ave, Suite 210, Vancouver, WA |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Lowery's Law:
        If it jams -- force it.  If it breaks, it needed replacing
anyway.

_______________________________________________
interchange-users mailing list
suppressed
http://www.icdevgroup.org/mailman/listinfo/interchange-users