diff Lib/IMPL/Web/QueryHandler/PageFormat.pm @ 107:0e72ad99eef7

Updated Web::TT
author wizard
date Thu, 13 May 2010 03:46:29 +0400
parents 964587c5183c
children 1722ca51537c
line wrap: on
line diff
--- a/Lib/IMPL/Web/QueryHandler/PageFormat.pm	Wed May 12 17:52:12 2010 +0400
+++ b/Lib/IMPL/Web/QueryHandler/PageFormat.pm	Thu May 13 03:46:29 2010 +0400
@@ -37,6 +37,7 @@
 		
 		$doc->LoadFile ( File::Spec->catfile($this->templatesBase,@path), $this->templatesCharset );
 		$doc->AddVar( result => $nextHandler->() );
+		$doc->AddVar( absoluteUrl => sub { "/$_[0]" } );
 		{
 			local $@;
 			$doc->AddVar( user => eval { IMPL::Security::Context->current->principal; } );