[interchange-cvs] interchange - ton modified lib/Vend/Ship/Postal.pm

[interchange-cvs at icdevgroup.org]

User:      ton
Date:      2005-12-27 10:36:16 GMT
Modified:  lib/Vend/Ship Postal.pm
Log:
	Renamed function tag_postal to calculate.
	The typo prevented calculation of shipping
	cost for multiple boxes (weight > aggregate)
	causing a crash (internal server error).

Revision  Changes    Path
1.5       +3 -3      interchange/lib/Vend/Ship/Postal.pm


rev 1.5, prev_rev 1.4
Index: Postal.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Ship/Postal.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- Postal.pm	8 Nov 2005 18:14:47 -0000	1.4
+++ Postal.pm	27 Dec 2005 10:36:15 -0000	1.5
@@ -1,6 +1,6 @@
 # Vend::Ship - Interchange shipping code
 # 
-# $Id: Postal.pm,v 1.4 2005/11/08 18:14:47 jon Exp $
+# $Id: Postal.pm,v 1.5 2005/12/27 10:36:15 ton Exp $
 #
 # Copyright (C) 2002-2005 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -99,9 +99,9 @@
 			my $w = $weight;
 			while($w > $modulo) {
 				$w -= $modulo;
-				$cost += tag_postal($type, $modulo, $country, $opt);
+				$cost += calculate($type, $modulo, $country, $opt);
 			}
-			$cost += tag_postal($type, $w, $country, $opt);
+			$cost += calculate($type, $w, $country, $opt);
 			return $cost;
 		}
 	}