[interchange-cvs] interchange - racke modified lib/Vend/Data.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Tue Sep 9 20:45:00 EDT 2003


User:      racke
Date:      2003-09-09 23:45:32 GMT
Modified:  lib/Vend Data.pm
Log:
update_data: removed unused variables and
corrected variable references in debug statements

Revision  Changes    Path
2.31      +4 -5      interchange/lib/Vend/Data.pm


rev 2.31, prev_rev 2.30
Index: Data.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Data.pm,v
retrieving revision 2.30
retrieving revision 2.31
diff -u -r2.30 -r2.31
--- Data.pm	9 Aug 2003 15:14:11 -0000	2.30
+++ Data.pm	9 Sep 2003 23:45:32 -0000	2.31
@@ -1,6 +1,6 @@
 # Vend::Data - Interchange databases
 #
-# $Id: Data.pm,v 2.30 2003/08/09 15:14:11 mheins Exp $
+# $Id: Data.pm,v 2.31 2003/09/09 23:45:32 racke Exp $
 # 
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -1811,7 +1811,6 @@
 	my $table		= $CGI::values{mv_data_table};
 	my $prikey		= $CGI::values{mv_data_key};
 	my $decode		= is_yes($CGI::values{mv_data_decode});
-	my ($ref, $db, $database);
 
 	my $en_col;
 #::logDebug("data_enable=$::Scratch->{mv_data_enable}, checking");
@@ -2087,12 +2086,12 @@
 		@multis = sort { $a <=> $b } @multis;
 	}
 
-#::logDebug("update_data:db=$db key=$prikey VALUES=" . ::uneval(\%CGI::values));
-#::logDebug("update_data:db=$db key=$prikey data=" . ::uneval(\%data));
+#::logDebug("update_data:db=$base_db key=$prikey VALUES=" . ::uneval(\%CGI::values));
+#::logDebug("update_data:db=$base_db key=$prikey data=" . ::uneval(\%data));
 	my $select_key;
  SETDATA: {
 	for($i = 0; $i < @{$data{$prikey}}; $i++) {
-#::logDebug("iteration of update_data:db=$db key=$prikey data=" . ::uneval(\%data));
+#::logDebug("iteration of update_data:db=$base_db key=$prikey data=" . ::uneval(\%data));
 		@k = (); @v = ();
 		for(keys %data) {
 #::logDebug("iteration of field $_");







More information about the interchange-cvs mailing list