[ic] ups_cache

Steve Graham icdev at mrlock.com
Wed Sep 14 21:55:21 UTC 2011


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},
                        );



Comments? 




More information about the interchange-users mailing list