From 3c26fffb061b7cb182d0507c4c7860a237546f7e Mon Sep 17 00:00:00 2001
From: "Leigh B. Stoller" <stoller@flux.utah.edu>
Date: Wed, 5 Jul 2006 23:46:29 +0000
Subject: [PATCH] Minor bug fix to Delete().

---
 db/Experiment.pm.in | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/db/Experiment.pm.in b/db/Experiment.pm.in
index ec6b887d6..368f151f8 100644
--- 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");
-- 
GitLab