Mercurial > pub > Impl
comparison Lib/IMPL/Web/View/TTDocument.pm @ 303:a5eb64c6e6f7
TTDocument.GetTemplate corrected to work with document blocks
author | cin |
---|---|
date | Mon, 08 Apr 2013 02:18:47 +0400 |
parents | aeeb57a12046 |
children | 2ff513227cb4 |
comparison
equal
deleted
inserted
replaced
302:673581380e79 | 303:a5eb64c6e6f7 |
---|---|
86 | 86 |
87 $this->context->localise(); | 87 $this->context->localise(); |
88 $documentContext = _clone_context( $this->context ); | 88 $documentContext = _clone_context( $this->context ); |
89 | 89 |
90 $this->context->stash->set(require => $require); | 90 $this->context->stash->set(require => $require); |
91 $this->context->stash->set(document => sub { $self }); | 91 $this->context->stash->set(document => sub { $self }); |
92 | 92 |
93 my $text = eval { | 93 my $text = eval { |
94 | 94 |
95 if ($this->layout) { | 95 if ($this->layout) { |
96 my $tlayout = $this->loader->layout($this->layout); | 96 my $tlayout = $this->loader->layout($this->layout); |
133 } else { | 133 } else { |
134 return $text; | 134 return $text; |
135 } | 135 } |
136 } | 136 } |
137 | 137 |
138 sub GetTemplate { | |
139 my ($this,$name) = @_; | |
140 | |
141 $this->template->blocks->{$name}; | |
142 } | |
143 | |
138 sub _clone_context { | 144 sub _clone_context { |
139 my $args = { %{shift || {}} }; | 145 my $args = { %{shift || {}} }; |
140 delete $args->{CONFIG}; | 146 delete $args->{CONFIG}; |
141 | 147 |
142 return Template::Context->new($args); | 148 return Template::Context->new($args); |