[interchange-cvs] interchange - jon modified lib/Vend/Interpolate.pm

interchange-core@interchange.redhat.com interchange-core@interchange.redhat.com
Thu May 16 23:15:59 2002


User:      jon
Date:      2002-05-17 03:15:19 GMT
Modified:  lib/Vend Interpolate.pm
Log:
Remove some unused stuff.

Revision  Changes    Path
2.64      +3 -6      interchange/lib/Vend/Interpolate.pm


rev 2.64, prev_rev 2.63
Index: Interpolate.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Interpolate.pm,v
retrieving revision 2.63
retrieving revision 2.64
diff -u -u -r2.63 -r2.64
--- Interpolate.pm	29 Apr 2002 14:47:02 -0000	2.63
+++ Interpolate.pm	17 May 2002 03:15:19 -0000	2.64
@@ -1,6 +1,6 @@
 # Vend::Interpolate - Interpret Interchange tags
 # 
-# $Id: Interpolate.pm,v 2.63 2002/04/29 14:47:02 mheins Exp $
+# $Id: Interpolate.pm,v 2.64 2002/05/17 03:15:19 jon Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -27,7 +27,7 @@
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = substr(q$Revision: 2.63 $, 10);
+$VERSION = substr(q$Revision: 2.64 $, 10);
 
 @EXPORT = qw (
 
@@ -5556,7 +5556,7 @@
 
 	my($field, $code, $i, $total, $cost, $multiplier, $formula, $error_message);
 
-	my $ref = $Vend::Cfg;
+#	my $ref = $Vend::Cfg;
 #
 #	if(defined $Vend::Cfg->{Shipping_criterion}->{$mode}) {
 #		$ref = $Vend::Cfg;
@@ -5767,9 +5767,6 @@
 			}
 
 			$cost = tag_ups($type,$geo,$total,$zselect,$o);
-			FIGURE: {
-				last FIGURE unless $cost;
-			}
 			$final += $cost;
 			last SHIPIT unless $o->{continue};
 		}