Mercurial > pub > Impl

annotate Lib/IMPL/Web/QueryHandler/PageFormat.pm @ 64:259cd3df6e53

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Doc generation Minor fixes
author wizard
date Mon, 15 Mar 2010 17:45:13 +0300
parents 76b878ad6596
children 2840c4c85db8
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
62
c64bd1bf727d Web application
wizard
parents:
diff changeset
1 package IMPL::Web::QueryHandler::PageFormat;
64
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
2 use base qw(IMPL::Web::QueryHandler IMPL::Object::Autofill);
62
c64bd1bf727d Web application
wizard
parents:
diff changeset
3
c64bd1bf727d Web application
wizard
parents:
diff changeset
4 __PACKAGE__->PassThroughArgs;
c64bd1bf727d Web application
wizard
parents:
diff changeset
5
c64bd1bf727d Web application
wizard
parents:
diff changeset
6 use IMPL::Class::Property;
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
7 use IMPL::Web::TDocument;
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
8 use Error qw(:try);
62
c64bd1bf727d Web application
wizard
parents:
diff changeset
9
64
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
10 BEGIN {
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
11 public property charsetTemplates => prop_all;
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
12 }
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
13
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
14 sub CTOR {
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
15 my ($this) = @_;
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
16
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
17 $this->charsetTemplates('utf-8') unless $this->charsetTemplates;
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
18 }
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
19
62
c64bd1bf727d Web application
wizard
parents:
diff changeset
20 sub Process {
c64bd1bf727d Web application
wizard
parents:
diff changeset
21 my ($this,$action,$nextHandler) = @_;
c64bd1bf727d Web application
wizard
parents:
diff changeset
22
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
23 my $doc = new IMPL::Web::TDocument();
62
c64bd1bf727d Web application
wizard
parents:
diff changeset
24
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
25 try {
64
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
26 $doc->loadFile ( $ENV{PATH_TRANSLATED}, $this->charsetTemplates );
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
27
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
28 $action->response->contentType('text/html');
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
29 my $hOut = $action->response->streamBody;
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
30
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
31 print $hOut $doc->Render();
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
32 } finally {
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
33 $doc->Dispose;
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
34 };
62
c64bd1bf727d Web application
wizard
parents:
diff changeset
35 }
c64bd1bf727d Web application
wizard
parents:
diff changeset
36
c64bd1bf727d Web application
wizard
parents:
diff changeset
37 1;