[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