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

[interchange-core@interchange.redhat.com]

User:      heins
Date:      2002-06-11 04:33:55 GMT
Modified:  lib/Vend Config.pm
Log:
	* Add nascent SQL_Ledger directive, probably will be replaced
	  by Route and Vend::Accounting.

	* Remove duplicate test.

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


rev 2.46, prev_rev 2.45
Index: Config.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Config.pm,v
retrieving revision 2.45
retrieving revision 2.46
diff -u -r2.45 -r2.46
--- Config.pm	10 Jun 2002 20:34:40 -0000	2.45
+++ Config.pm	11 Jun 2002 04:33:54 -0000	2.46
@@ -1,6 +1,6 @@
 # Vend::Config - Configure Interchange
 #
-# $Id: Config.pm,v 2.45 2002/06/10 20:34:40 racke Exp $
+# $Id: Config.pm,v 2.46 2002/06/11 04:33:54 mheins Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -44,7 +44,7 @@
 use Vend::Parse;
 use Vend::Util;
 
-$VERSION = substr(q$Revision: 2.45 $, 10);
+$VERSION = substr(q$Revision: 2.46 $, 10);
 
 my %CDname;
 
@@ -128,6 +128,7 @@
 					SOAP			1
 					Mail			1
 					DatabaseDefault	1
+					SQL_Ledger		1
 				));
 
 my %DumpSource = (qw(
@@ -484,6 +485,7 @@
 	['PriceDefault',	 undef,              'price'],
 	['PriceField',		 undef,              'price'],
 	['Shipping',         'locale',           ''],
+	['SQL_Ledger',	 	 'hash',     	 	 ''],
 	['AutoVariable',	 'autovar',     	 ''],
 
 	];
@@ -1950,7 +1952,7 @@
 sub parse_hash {
 	my($item,$settings) = @_;
 	if (! $settings) {
-		return $HashDefaultBlank{$item} ? '' : {} if ! $settings;
+		return $HashDefaultBlank{$item} ? '' : {};
 	}
 
 	my $c;