[ic] ups_cache
Peter
peter at pajamian.dhs.org
Thu Sep 15 01:00:19 UTC 2011
On 15/09/11 09:55, Steve Graham wrote:
> oops...
>
> This is better:
>
> CACHE: {
> $db = dbref($ctable)
> or last CACHE;
> my $tname = $db->name();
> $cache = 1;
> + $weight = ($weight == int $weight) ? $weight :
> int($weight + 1);
> %cline = (
> weight => $weight,
> origin => $origin,
> country => $country,
> zip => $zip,
> shipmode => $opt->{service},
> );
use POSIX qw{ceil};
...
$weight = ceil($weight);
Peter
More information about the interchange-users
mailing list