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);