Mercurial > pub > Impl

comparison Lib/IMPL/Web/QueryHandler/PageFormat.pm @ 77:9d24db321029

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Refactoring Web::TT docs
author wizard
date Fri, 02 Apr 2010 20:18:46 +0400
parents 2840c4c85db8
children 964587c5183c
comparison
equal deleted inserted replaced
76:b1652a158b2b 77:9d24db321029
2 use base qw(IMPL::Web::QueryHandler IMPL::Object::Autofill); 2 use base qw(IMPL::Web::QueryHandler IMPL::Object::Autofill);
3 3
4 __PACKAGE__->PassThroughArgs; 4 __PACKAGE__->PassThroughArgs;
5 5
6 use IMPL::Class::Property; 6 use IMPL::Class::Property;
7 use IMPL::Web::TDocument; 7 use IMPL::Web::TT::Document;
8 use File::Spec; 8 use File::Spec;
9 use Error qw(:try); 9 use Error qw(:try);
10 10
11 BEGIN { 11 BEGIN {
12 public property templatesCharset => prop_all; 12 public property templatesCharset => prop_all;
21 } 21 }
22 22
23 sub Process { 23 sub Process {
24 my ($this,$action,$nextHandler) = @_; 24 my ($this,$action,$nextHandler) = @_;
25 25
26 my $doc = new IMPL::Web::TDocument(); 26 my $doc = new IMPL::Web::TT::Document();
27 27
28 try { 28 try {
29 my @path = split /\//, $ENV{PATH_TRANSLATED}; 29 my @path = split /\//, $ENV{PATH_TRANSLATED};
30 30
31 $doc->loadFile ( File::Spec->catfile($this->templatesBase,@path), $this->templatesCharset ); 31 $doc->LoadFile ( File::Spec->catfile($this->templatesBase,@path), $this->templatesCharset );
32 32
33 $action->response->contentType('text/html'); 33 $action->response->contentType('text/html');
34 my $hOut = $action->response->streamBody; 34 my $hOut = $action->response->streamBody;
35 35
36 print $hOut $doc->Render(); 36 print $hOut $doc->Render();