diff Lib/IMPL/Web/QueryHandler/PageFormat.pm @ 129:e4f15cbc3f1a

Fixed utf-8 problem
author wizard
date Tue, 15 Jun 2010 20:12:58 +0400
parents 0dce0470a3d8
children 44977efed303
line wrap: on
line diff
--- a/Lib/IMPL/Web/QueryHandler/PageFormat.pm	Tue Jun 15 02:41:07 2010 +0400
+++ b/Lib/IMPL/Web/QueryHandler/PageFormat.pm	Tue Jun 15 20:12:58 2010 +0400
@@ -46,6 +46,7 @@
 		
 		$doc->LoadFile ( File::Spec->catfile($this->templatesBase,@path), $this->templatesCharset, $this->templatesBase );
 		$doc->AddVar( result => $nextHandler->() );
+		$doc->AddVar( app => $action->application );
 		$doc->AddVar( absoluteUrl => sub { "$prefixRoot/$_[0]" } );
 		$doc->AddVar( relativeUrl => sub { join '/', $prefixRoot, @pathContainer,$_[0] } );
 		{