Minor bug fix to Delete().

3c26fffb · Leigh B. Stoller · c593400d · 3c26fffb
Commit 3c26fffb authored Jul 05, 2006 by Leigh B. Stoller
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

db/Experiment.pm.in db/Experiment.pm.in +2 -1

No files found.
--- a/db/Experiment.pm.in
+++ b/db/Experiment.pm.in
@@ -386,7 +386,8 @@ sub Delete($;$)
    my $rsrcidx = $self->rsrcidx();
    DBQueryWarn("DELETE from experiment_resources ".
-		"WHERE idx=$rsrcidx");
+		"WHERE idx='$rsrcidx'")
+	if (defined($rsrcidx) && $rsrcidx);
    DBQueryWarn("DELETE from testbed_stats ".
 		"WHERE exptidx=$exptidx");