From c60613ac2c6d12d4a5c67e1f35d170bec447beb9 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Thu, 12 Aug 2004 14:36:17 +0000
Subject: [PATCH] adding getScratch

---
 docs/changelog/6.x.x.txt |  2 ++
 lib/WebGUI/Session.pm    | 21 +++++++++++++++++++++
 2 files changed, 23 insertions(+)

diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt
index 23c8d1494..f05c4e6ca 100644
--- a/docs/changelog/6.x.x.txt
+++ b/docs/changelog/6.x.x.txt
@@ -44,6 +44,8 @@
  - BugFix: [ 999799 ] Fixed Package deletion/copy bug in 6.1.1
  - BugFix: [ 997885 ] Root move left bug. 
  - Changed 'lft' and 'rgt' database field names to 'nestedSetLeft' and 'nestedSetRight'. (Martin Kamerbeek)
+ - Added WebGUI::Session::getScratch().
+
 
 6.1.1
  - bugfix [ 991313 ] Manage Translations doesn't work
diff --git a/lib/WebGUI/Session.pm b/lib/WebGUI/Session.pm
index f88d8b848..d4c259fff 100644
--- a/lib/WebGUI/Session.pm
+++ b/lib/WebGUI/Session.pm
@@ -296,6 +296,27 @@ sub end {
 }
 
 
+#-------------------------------------------------------------------
+
+=head2 getScratch ( varName ) 
+
+Retrieves the current value of a scratch variable.
+
+=over
+
+=item varName
+
+The name of the variable set with setScratch().
+
+=back
+
+=cut
+
+sub getScratch {
+	my $var = shift;
+	return $session{scratch}{$var};
+}
+
 #-------------------------------------------------------------------
 
 =head2 open ( webguiRoot [ , configFile ] )