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

[interchange-cvs at icdevgroup.org]

User:      jon
Date:      2003-07-28 14:13:28 GMT
Modified:  lib/Vend Order.pm
Log:
Don't throw away UseModifier cart modifiers on every cart update.
They can still be updated via CGI mv_item_option if it's set.

This is actually a 2+ year old patch Mike did for Florist.com, which never
made it into the main codebase, but IMO needed to.

Revision  Changes    Path
2.59      +5 -2      interchange/lib/Vend/Order.pm


rev 2.59, prev_rev 2.58
Index: Order.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Order.pm,v
retrieving revision 2.58
retrieving revision 2.59
diff -u -u -r2.58 -r2.59
--- Order.pm	27 Jul 2003 19:47:58 -0000	2.58
+++ Order.pm	28 Jul 2003 14:13:28 -0000	2.59
@@ -1,6 +1,6 @@
 # Vend::Order - Interchange order routing routines
 #
-# $Id: Order.pm,v 2.58 2003/07/27 19:47:58 mheins Exp $
+# $Id: Order.pm,v 2.59 2003/07/28 14:13:28 jon Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -29,7 +29,7 @@
 package Vend::Order;
 require Exporter;
 
-$VERSION = substr(q$Revision: 2.58 $, 10);
+$VERSION = substr(q$Revision: 2.59 $, 10);
 
 @ISA = qw(Exporter);
 
@@ -2112,6 +2112,9 @@
 		foreach $i (0 .. $#$cart) {
 #::logDebug("updating line $i modifiers: " . ::uneval($cart->[$i]));
 #::logDebug(qq{CGI value=$CGI::values{"$h$i"}});
+			next if
+				!   defined $CGI::values{"$h$i"}
+				and defined $cart->[$i]{$h};
 			$modifier = $CGI::values{"$h$i"}
 					  || (defined $cart->[$i]{$h} ? '' : undef);
 #::logDebug("line $i modifier $h now $modifier");