adding getScratch

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

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 ] )