Re: [ic] ups_cache expires

[Steve Graham <suppressed>]

> Patches are always welcome! 8-)
>
> >
> > I know this is not really an issue on 1 day cache expire, but with
> > expire set to 30+ days - it will add up.
>
> It also cuts down unnecessary traffic. +1.
>
> --
> Mike Heins


Hello,

Here is what I did to make the cache_table only store & search the 
1st 3 digits of the zip code.
I am editing QueryUPS.pm - not really sure which file I should edit 
(ups_query.tag or QueryUPS.pm), but this works.


add new variable $zip5
>>
sub calculate {
        my ($mode, $weight, $row, $opt, $tagopt, $extra) = @_;

+my $zip5;
<<

add/change following lines:
>>
   # In the U.S., UPS only wants the 5-digit base ZIP code, not ZIP+4
        $country eq 'US' and $zip =~ /^(\d{5})/ and $zip = $1;
+        $zip5 = $zip;
+       $country eq 'US' and $zip =~ /^(\d{3})/ and $zip = $1;
<<

any calls to getUPS(... need the $zip5 variable
>>>
        ($maxcost, $zone, $error)
                                = getUPS( $opt->{service}, $origin, 
$zip5, $modulo, $country);
                        if($error) {
                                do_error(       "Ship mode %s: Error 
calling UPS service %s",
                                                        $mode,
                                                        $opt->{service}, );
                                return 0;
                        }
                        $shipping += $maxcost;
                }

                undef $error;
::logDebug("calling getUPS( $opt->{service}, $origin, $zip5, $w, $country)");
                ($tmpcost, $zone, $error)
                        = getUPS( $opt->{service}, $origin, $zip5, 
$w, $country);

<<<

any comments appreciate

Thanks,
Steve Graham



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