[ic] ups_cache table IC 5.4 [solved?]

Peter peter at pajamian.dhs.org
Tue Jan 24 17:30:38 EST 2006


On 01/24/2006 02:16 PM, Steve Graham wrote:
> 
>>
>> If there is a better solutions I would appreciate any insight.
> 
> 
> How about this one: (Talking to self?)
> 
> Suggested change to QueryUPS.pm
> 
> sub calculate {
>         my ($mode, $weight, $row, $opt, $tagopt, $extra) = @_;
> 
> + my $tmp_weight;
> 
> + $tmp_weight = int($weight);
> + if ($tmp_weight < $weight) {
> + $weight = $tmp_weight + 1;
> + }
> 
>         $opt->{service}         ||= $opt->{table};

Just use POSIX::ceil:

$weight = POSIX::ceil($weight);

Peter


More information about the interchange-users mailing list