[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};
}