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

[interchange-cvs at icdevgroup.org]

User:      heins
Date:      2005-01-30 16:36:29 GMT
Modified:  lib/Vend Config.pm
Log:
* Fix default value for new directive.

Revision  Changes    Path
2.153     +5 -3      interchange/lib/Vend/Config.pm


rev 2.153, prev_rev 2.152
Index: Config.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Config.pm,v
retrieving revision 2.152
retrieving revision 2.153
diff -u -r2.152 -r2.153
--- Config.pm	29 Jan 2005 18:30:01 -0000	2.152
+++ Config.pm	30 Jan 2005 16:36:29 -0000	2.153
@@ -1,6 +1,6 @@
 # Vend::Config - Configure Interchange
 #
-# $Id: Config.pm,v 2.152 2005/01/29 18:30:01 mheins Exp $
+# $Id: Config.pm,v 2.153 2005/01/30 16:36:29 mheins Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -49,7 +49,7 @@
 use Vend::File;
 use Vend::Data;
 
-$VERSION = substr(q$Revision: 2.152 $, 10);
+$VERSION = substr(q$Revision: 2.153 $, 10);
 
 my %CDname;
 my %CPname;
@@ -553,7 +553,7 @@
 	['PriceDefault',	 undef,              'price'],
 	['PriceField',		 undef,              'price'],
 	['DiscountSpaces',	 'yesno',            'no'],
-	['DiscountSpaceVar', 'word',             'no'],
+	['DiscountSpaceVar', 'word',             'mv_discount_space'],
 	['Jobs',		 	 'hash',     	 	 ''],
 	['Shipping',         'locale',           ''],
 	['Accounting',	 	 'locale',     	 	 ''],
@@ -2412,7 +2412,9 @@
 	DiscountSpaces => sub {
 #::logDebug("Doing DiscountSpaces dispatch...");
 	   if ($CGI::values{$Vend::Cfg->{DiscountSpaceVar}}) {
+#::logDebug("$Vend::Cfg->{DiscountSpaceVar} is set=...");
            $Vend::DiscountSpace = $CGI::values{$Vend::Cfg->{DiscountSpaceVar}};
+#::logDebug("$Vend::Cfg->{DiscountSpaceVar} is set=$Vend::DiscountSpace...");
 		   $::Discounts
 				= $Vend::Session->{discount}
 				= $Vend::Session->{discount_space}{$Vend::DiscountSpace}