From c51b8e5bcd24387a56bd00645f022e4d2b86d271 Mon Sep 17 00:00:00 2001
From: Yung Han Khoe <yung@webgui-svn>
Date: Tue, 5 Dec 2006 16:33:16 +0000
Subject: [PATCH] Added scratch variables to all templates.

---
 lib/WebGUI/Asset/Template/Parser.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/WebGUI/Asset/Template/Parser.pm b/lib/WebGUI/Asset/Template/Parser.pm
index 2a04b9f4a..b9e60b1fe 100755
--- a/lib/WebGUI/Asset/Template/Parser.pm
+++ b/lib/WebGUI/Asset/Template/Parser.pm
@@ -50,6 +50,12 @@ sub addSessionVars {
 					:$forms->{$field};
 		}
 	}
+        my $scratch = $self->session->scratch->{_data};
+        foreach my $field (keys %$scratch) {
+                if ($scratch->{$field}) {
+                        $vars->{"session.scratch.".$field} = $scratch->{$field};
+                }
+        }
 	$vars->{"webgui.version"} = $WebGUI::VERSION;
 	$vars->{"webgui.status"} = $WebGUI::STATUS;
 	return $vars;