[interchange-cvs] interchange - heins modified lib/Vend/Ship.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Wed Nov 5 22:38:52 UTC 2008
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;
}
};
More information about the interchange-cvs
mailing list