# HG changeset patch
# User cin
# Date 1400510032 -14400
# Node ID b79081b70a7a56cf941d370d6d245715316a30fc
# Parent  16ff604298c7e7a15b2d07beb751e4a1d82cb778
fixed error handler templates env

diff -r 16ff604298c7 -r b79081b70a7a Lib/IMPL/Web/Handler/ErrorHandler.pm
--- a/Lib/IMPL/Web/Handler/ErrorHandler.pm	Thu May 15 18:24:28 2014 +0400
+++ b/Lib/IMPL/Web/Handler/ErrorHandler.pm	Mon May 19 18:33:52 2014 +0400
@@ -8,7 +8,8 @@
 		WebException => 'IMPL::Web::Exception',
 		ArgumentException => '-IMPL::InvalidArgumentException',
 		IOException => '-IMPL::IOException',
-		HttpResponse => 'IMPL::Web::HttpResponse'
+		HttpResponse => 'IMPL::Web::HttpResponse',
+		Security => 'IMPL::Security'
 	},
 	base => {
 		'IMPL::Object' => undef,
@@ -45,7 +46,16 @@
 	if (my $err = $@) {
 	    
 		my $vars = {
-			error => $err
+			error => $err,
+			result      => $result,
+	        request     => sub { $action },
+	        app         => $action->application,
+	        location    => $action->context->{resourceLocation},
+	        resource    => $action->context->{resource},
+	        document    => {},
+	        session     => sub { Security->context },
+	        user        => sub { Security->principal },
+	        security    => sub { $action->security }
 		};
 		
 		my $status = "500 Internal Server Error";