Mercurial > pub > Impl

comparison Lib/IMPL/Web/QueryHandler/PageFormat.pm @ 121:92c850d0bdb9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Minor changes Fixed bug with templates base in the PageFormat module Added an ability to remove current security context with a specified
author wizard
date Tue, 08 Jun 2010 03:38:10 +0400
parents 1722ca51537c
children 0dce0470a3d8
comparison
equal deleted inserted replaced
120:41e9d9ea3db5 121:92c850d0bdb9
39 } 39 }
40 local $ENV{PATH_INFO} = $pathInfo || $this->defaultTarget; 40 local $ENV{PATH_INFO} = $pathInfo || $this->defaultTarget;
41 41
42 my @path = split /\//, ($ENV{PATH_INFO} || '') or die new IMPL::Exception("PATH_INFO is empty and no defaultTarget specified" ); 42 my @path = split /\//, ($ENV{PATH_INFO} || '') or die new IMPL::Exception("PATH_INFO is empty and no defaultTarget specified" );
43 43
44 $doc->LoadFile ( File::Spec->catfile($this->templatesBase,@path), $this->templatesCharset ); 44 $doc->LoadFile ( File::Spec->catfile($this->templatesBase,@path), $this->templatesCharset, $this->templatesBase );
45 $doc->AddVar( result => $nextHandler->() ); 45 $doc->AddVar( result => $nextHandler->() );
46 $doc->AddVar( absoluteUrl => sub { "$prefixRoot/$_[0]" } ); 46 $doc->AddVar( absoluteUrl => sub { "$prefixRoot/$_[0]" } );
47 { 47 {
48 local $@; 48 local $@;
49 $doc->AddVar( user => IMPL::Security::Context->current->principal ); 49 $doc->AddVar( user => IMPL::Security::Context->current->principal );