Mercurial > pub > Impl

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed utf-8 problem
author wizard
date Tue, 15 Jun 2010 20:12:58 +0400
parents 0dce0470a3d8
children 44977efed303
comparison
equal deleted inserted replaced
128:08753833173d 129:e4f15cbc3f1a
44 my @pathContainer = @path; 44 my @pathContainer = @path;
45 pop @pathContainer; 45 pop @pathContainer;
46 46
47 $doc->LoadFile ( File::Spec->catfile($this->templatesBase,@path), $this->templatesCharset, $this->templatesBase ); 47 $doc->LoadFile ( File::Spec->catfile($this->templatesBase,@path), $this->templatesCharset, $this->templatesBase );
48 $doc->AddVar( result => $nextHandler->() ); 48 $doc->AddVar( result => $nextHandler->() );
49 $doc->AddVar( app => $action->application );
49 $doc->AddVar( absoluteUrl => sub { "$prefixRoot/$_[0]" } ); 50 $doc->AddVar( absoluteUrl => sub { "$prefixRoot/$_[0]" } );
50 $doc->AddVar( relativeUrl => sub { join '/', $prefixRoot, @pathContainer,$_[0] } ); 51 $doc->AddVar( relativeUrl => sub { join '/', $prefixRoot, @pathContainer,$_[0] } );
51 { 52 {
52 local $@; 53 local $@;
53 $doc->AddVar( user => IMPL::Security::Context->current->principal ); 54 $doc->AddVar( user => IMPL::Security::Context->current->principal );