[interchange-cvs] interchange - heins modified dist/lib/UI/profiles/db_maintenance

[interchange-cvs at icdevgroup.org]

User:      heins
Date:      2004-03-14 15:30:56 GMT
Modified:  dist/lib/UI/profiles db_maintenance
Log:
* Fix bug reported by Chen Naor -- second table with foreign key was not working
  for delete because of improperly localized variable.

Revision  Changes    Path
2.2       +4 -4      interchange/dist/lib/UI/profiles/db_maintenance


rev 2.2, prev_rev 2.1
Index: db_maintenance
===================================================================
RCS file: /var/cvs/interchange/dist/lib/UI/profiles/db_maintenance,v
retrieving revision 2.1
retrieving revision 2.2
diff -u -r2.1 -r2.2
--- db_maintenance	14 Jan 2003 02:25:53 -0000	2.1
+++ db_maintenance	14 Mar 2004 15:30:56 -0000	2.2
@@ -137,15 +137,15 @@
 				}
 				if($col) {
 					next unless length ($key);
-					$key = $db->quote($key, $col);
-					my $num = $db->query("delete from $t where $col = $key");
+					my $k = $db->quote($key, $col);
+					my $num = $db->query("delete from $t where $col = $k");
 					if($num > 0) {
 						push @out, errmsg(
 									"deleted %s records from %s where %s = %s",
 									$num,
 									$t,
 									$col,
-									$key,
+									$k,
 									);
 					}
 					else {
@@ -153,7 +153,7 @@
 										"No records in %s where %s = %s",
 										$t,
 										$col,
-										$key,
+										$k,
 										);
 					}
 				}