From 0df9fb747a290e33e6f865eca8db28698a358c38 Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Wed, 11 May 2011 18:02:02 -0500
Subject: [PATCH] provide session to template toolkit plugins

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

diff --git a/lib/WebGUI/Asset/Template/TemplateToolkit.pm b/lib/WebGUI/Asset/Template/TemplateToolkit.pm
index 55c41250d..a0b445465 100644
--- a/lib/WebGUI/Asset/Template/TemplateToolkit.pm
+++ b/lib/WebGUI/Asset/Template/TemplateToolkit.pm
@@ -81,7 +81,11 @@ sub process {
             POST_CHOMP   => 1,               # cleanup whitespace 
             EVAL_PERL    => 0,               # evaluate Perl code blocks
         });
-        unless ($t->process( \$template, _rewriteVars($vars),\$output)) {
+        $vars = _rewriteVars($vars);
+        # store the session so plugins can access it.
+        # underscore prefix prevents direct access from templates
+        $vars->{_session} = $self->session;
+        unless ($t->process( \$template, $vars,\$output)) {
             my $e = $t->error;
             $self->session->log->error($e);
             die $e;