From 2c1ea05ebd04bd5daa71b19903f7a6ee680fa2d6 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Wed, 12 Apr 2006 21:50:35 +0000
Subject: [PATCH] fixed a bug with the delete() method

---
 lib/WebGUI/Session/Scratch.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Session/Scratch.pm b/lib/WebGUI/Session/Scratch.pm
index f69c74898..e539d6738 100644
--- a/lib/WebGUI/Session/Scratch.pm
+++ b/lib/WebGUI/Session/Scratch.pm
@@ -61,7 +61,7 @@ sub delete {
 	my $name = shift;
 	return undef unless ($name);
 	delete $self->{_data}{$name};
-	$self->session->db->deleteRow("userSessionScratch","sessionId",$self->{_sessionId});
+	$self->session->db->write("delete from userSessionScratch where name=? and sessionId=?", [$name, $self->{_sessionId}]);
 }