From abb8dde6c80bca997f37318ef1d035bdb664eed6 Mon Sep 17 00:00:00 2001
From: Len Kranendonk <len@webgui-svn>
Date: Wed, 28 Jul 2004 09:00:34 +0000
Subject: [PATCH] added deleteAllScratch routine

---
 lib/WebGUI/Session.pm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/lib/WebGUI/Session.pm b/lib/WebGUI/Session.pm
index ec8eb9fd6..5d0b85f38 100644
--- a/lib/WebGUI/Session.pm
+++ b/lib/WebGUI/Session.pm
@@ -49,6 +49,7 @@ TIP: The $session variable is a case-insensitive hash. The contents of the has v
  use WebGUI::Session;
  WebGUI::Session::close();
  WebGUI::Session::convertVisitorToUser($sessionId,$userId);
+ WebGUI::Session::deleteAllScratch($name);
  WebGUI::Session::deleteScratch($name);
  WebGUI::Session::end($sessionId);
  WebGUI::Session::open($webguiRoot,$configFilename);
@@ -223,6 +224,29 @@ sub convertVisitorToUser {
 
 #-------------------------------------------------------------------
 
+=head2 deleteAllScratch ( name )
+
+Deletes a scratch variable for all users. This function should be used with care.
+
+=over
+
+=item name
+
+The name of the scratch variable.
+
+=back
+
+=cut
+
+sub deleteAllScratch {
+        my ($name) = @_;
+        return "" if ($name eq "");
+        WebGUI::SQL->write("delete from userSessionScratch where name=".quote($name));
+        $session{scratch}{$name} = "";
+}
+
+#-------------------------------------------------------------------
+
 =head2 deleteScratch ( name )
 
 Deletes a scratch variable.