CVS: blootbot/src db_dbm.pl,1.8,1.9

[Tim R. <tim...@us...>]

Update of /cvsroot/blootbot/blootbot/src
In directory usw-pr-cvs1:/tmp/cvs-serv9650/src

Modified Files:
	db_dbm.pl 
Log Message:
cleanup

Index: db_dbm.pl
===================================================================
RCS file: /cvsroot/blootbot/blootbot/src/db_dbm.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- db_dbm.pl	31 Oct 2002 22:09:38 -0000	1.8
+++ db_dbm.pl	1 Nov 2002 22:16:55 -0000	1.9
@@ -151,7 +151,7 @@
 	my $str = $format[$_];
 	next unless (grep /^$str$/, split(/\,/, $select));
 	$array[$_] ||= '';
-	&DEBUG("dG: pushing '$array[$_]'.");
+	&DEBUG("dG: pushing $format[$_]=>'$array[$_]'.");
 	push(@retval, $array[$_]);
     }
 
@@ -333,9 +333,9 @@
 ##### $select is misleading???
 # Usage: &searchTable($table, $returnkey, $primkey, $str);
 sub searchTable {
+    my ($table, $primkey, $key, $str) = @_;
     &FIXME("STUB: searchTable($table, $primkey, $key, $str)");
     return;
-    my ($table, $primkey, $key, $str) = @_;
     &DEBUG("searchTable($table, $primkey, $key, $str)");
 
     if (!scalar &dbGetColInfo($table)) {