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

[interchange-cvs at icdevgroup.org]

User:      heins
Date:      2008-11-05 22:38:52 GMT
Modified:  lib/Vend Ship.pm
Log:
* Fix problem with new-style shipping configuration reading a mixed-case
  option.

Revision  Changes    Path
2.29                 interchange/lib/Vend/Ship.pm


rev 2.29, prev_rev 2.28
Index: Ship.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Ship.pm,v
retrieving revision 2.28
retrieving revision 2.29
diff -u -r2.28 -r2.29
--- Ship.pm	11 Apr 2008 08:44:20 -0000	2.28
+++ Ship.pm	5 Nov 2008 22:38:52 -0000	2.29
@@ -1,6 +1,6 @@
 # Vend::Ship - Interchange shipping code
 # 
-# $Id: Ship.pm,v 2.28 2008-04-11 08:44:20 danb Exp $
+# $Id: Ship.pm,v 2.29 2008-11-05 22:38:52 mheins Exp $
 #
 # Copyright (C) 2002-2008 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -48,8 +48,10 @@
 use constant QUERY => 6;
 use constant OPT   => 7;
 
+my %Verbatim = ( qw/ PriceDivide 1 /);
 my %Ship_remap = ( qw/
 							CRITERION   CRIT
+							PRICEDIVIDE PriceDivide
 							CRITERIA    CRIT
 							MAXIMUM     MAX
 							MINIMUM     MIN
@@ -286,7 +288,7 @@
 				}
 				else {
 					$line[OPT] = {} unless $line[OPT];
-					$k = lc $k;
+					$k = lc $k unless $Verbatim{$k};
 					$line[OPT]->{$k} = $v;
 				}
 			};