Mercurial > pub > Impl

annotate Lib/IMPL/Web/View/TTContext.pm @ 390:de1f875e8875

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added reverse matching lookup to TypeKeyedCollection (find closest descendant)
author cin
date Wed, 12 Feb 2014 18:02:03 +0400
parents ced5937ff21a
children 2c14f66efa08
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
343
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
1 package IMPL::Web::View::TTContext;
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
2 use strict;
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
3 use Template::Base;
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
4 use Carp qw(carp);
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
5 use File::Spec();
86b470004d47 added lables loading
cin
parents: 348
diff changeset
6 use IMPL::Resources::Format qw(FormatMessage);
86b470004d47 added lables loading
cin
parents: 348
diff changeset
7 use IMPL::Resources::Strings();
343
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
8
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
9 use IMPL::Exception();
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
10 use IMPL::lang qw(is typeof hashApply hashMerge);
343
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
11 use IMPL::declare {
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
12 require => {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
13 Document => '-Template::Document',
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
14 TypeKeyedCollection => 'IMPL::TypeKeyedCollection',
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
15 ArgException => '-IMPL::InvalidArgumentException',
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
16 Resources => 'IMPL::Resources',
371
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
17 Loader => 'IMPL::Code::Loader',
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
18 MetadataBase => '-IMPL::Web::View::Metadata::BaseMeta',
380
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
19 Metadata => 'IMPL::Web::View::Metadata::ObjectMeta',
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
20 StringMap => 'IMPL::Resources::StringLocaleMap'
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
21 },
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
22 base => [
343
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
23 'Template::Context' => '@_'
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
24 ]
343
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
25 };
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
26
347
cin
parents: 346
diff changeset
27 BEGIN {
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
28 no strict 'refs';
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
29 # modules is a global (for the whole document) templates cache
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
30 # tt_cache is a local (for the current context only) templtes cache
347
cin
parents: 346
diff changeset
31 foreach my $prop (qw(
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
32 root
347
cin
parents: 346
diff changeset
33 base
cin
parents: 346
diff changeset
34 tt_ext
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
35 tt_cache
347
cin
parents: 346
diff changeset
36 parent
cin
parents: 346
diff changeset
37 prefix
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
38 cache
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
39 includes
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
40 modules
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
41 aliases
356
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
42 id
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
43 metadata
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
44 model
380
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
45 templateInfo
347
cin
parents: 346
diff changeset
46 )) {
cin
parents: 346
diff changeset
47 my $t = $prop;
cin
parents: 346
diff changeset
48
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
49 *{__PACKAGE__ . '::' . $prop} = sub {
347
cin
parents: 346
diff changeset
50 my $this = shift;
cin
parents: 346
diff changeset
51 return @_ ? $this->stash->set($t, @_) : $this->stash->get($t);
cin
parents: 346
diff changeset
52 }
cin
parents: 346
diff changeset
53 }
cin
parents: 346
diff changeset
54 }
cin
parents: 346
diff changeset
55
343
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
56 sub clone {
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
57 my $this = shift;
347
cin
parents: 346
diff changeset
58 my $params = shift;
343
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
59
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
60 $this->localise();
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
61
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
62 my $args = { %{$this} };
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
63
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
64 $this->delocalise();
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
65
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
66 my $class = ref($this);
343
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
67
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
68 delete $args->{CONFIG};
9bdccdf1f50b Added a templates context
cin
parents:
diff changeset
69
347
cin
parents: 346
diff changeset
70 my $clone = $class->new($args);
cin
parents: 346
diff changeset
71
cin
parents: 346
diff changeset
72 $clone->stash->update($params) if $params;
cin
parents: 346
diff changeset
73
cin
parents: 346
diff changeset
74 return $clone;
345
cin
parents: 343
diff changeset
75 }
cin
parents: 343
diff changeset
76
356
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
77 sub get_next_id {
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
78 my ($this) = @_;
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
79
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
80 my $id = $this->stash->get('document.nextId') || 0;
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
81 $this->stash->set('document.nextId', $id + 1);
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
82 return "w-$id";
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
83 }
97131d500f16 TTView: added identifiers support
cin
parents: 355
diff changeset
84
345
cin
parents: 343
diff changeset
85 sub find_template {
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
86 my ($this,$name, $nothrow) = @_;
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
87
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
88 my $cache = $this->tt_cache;
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
89
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
90 $this->tt_cache($cache = {}) unless $cache;
345
cin
parents: 343
diff changeset
91
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
92 if(my $tpl = $cache->{$name}) {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
93 return $tpl;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
94 }
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
95
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
96 my @inc = ($this->base, @{$this->includes || []});
380
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
97 #my @inc = @{$this->includes || []};
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
98
345
cin
parents: 343
diff changeset
99 my $ext = $this->tt_ext || "";
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
100
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
101 my $file;
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
102
345
cin
parents: 343
diff changeset
103 foreach my $dir (@inc) {
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
104 $file = $dir ? "$dir/$name" : $name;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
105
380
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
106 my @parts = split(/\/+/,$file);
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
107
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
108 my $templateName = pop @parts;
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
109
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
110 my $base = join('/',@parts);
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
111
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
112 $file = $ext ? "$file.$ext" : $file;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
113
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
114 if (exists($this->modules->{$file})) {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
115 my $info = $this->modules->{$file};
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
116 return $cache->{$name} = $info
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
117 if $info;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
118 } else {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
119 if( my $tt = eval { $this->template($file) } ) {
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
120 my $class;
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
121 if ($class = $tt->class) {
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
122 $class = $this->aliases->{$class} || $class;
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
123 Loader->safe->Require($class);
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
124 }
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
125 my $info = {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
126 base => $base,
380
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
127 name => $templateName,
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
128 template => $tt,
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
129 initialized => 0,
380
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
130 class => $class,
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
131 file => $file
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
132 };
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
133 $this->modules->{$file} = $info;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
134 return $cache->{$name} = $info;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
135 } else {
353
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 352
diff changeset
136 my $err = $@;
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 352
diff changeset
137
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 352
diff changeset
138 for(my $t = $err; is($t,'Template::Exception'); $t = $t->info ) {
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 352
diff changeset
139 die $err unless $t->type eq Template::Constants::ERROR_FILE;
feeb3bc4a818 corrected error handling while loading templates
cin
parents: 352
diff changeset
140 }
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
141 $this->modules->{$file} = undef;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
142 }
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
143 }
345
cin
parents: 343
diff changeset
144 }
cin
parents: 343
diff changeset
145
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
146 $this->throw(Template::Constants::ERROR_FILE, "$name: not found")
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
147 unless $nothrow;
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
148 return;
345
cin
parents: 343
diff changeset
149 }
cin
parents: 343
diff changeset
150
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
151 sub display_for {
347
cin
parents: 346
diff changeset
152 my $this = shift;
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
153 my $path = shift;
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
154 my ($template, $args);
347
cin
parents: 346
diff changeset
155
cin
parents: 346
diff changeset
156 if (ref $_[0] eq 'HASH') {
cin
parents: 346
diff changeset
157 $args = shift;
cin
parents: 346
diff changeset
158 } else {
cin
parents: 346
diff changeset
159 $template = shift;
cin
parents: 346
diff changeset
160 $args = shift;
cin
parents: 346
diff changeset
161 }
cin
parents: 346
diff changeset
162
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
163 my $prefix = $this->prefix;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
164
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
165 my $info;
371
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
166 my $meta = $this->resolve_model($path,$args)
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
167 or return "[not found '$path']";
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
168
371
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
169 $info->{prefix} = join('.', grep($_, $prefix, $path));
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
170 $info->{model} = $meta->model;
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
171 $info->{metadata} = $meta;
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
172
355
8dfb9df07d02 added support for the custom resolvers for the TTView
sergey
parents: 354
diff changeset
173 $template ||= $info->{template};
371
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
174 $template = $template ? $this->find_template($template) : $this->find_template_for($info->{metadata});
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
175
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
176 return $this->render(
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
177 $template,
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
178 hashApply(
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
179 $info,
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
180 $args
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
181 )
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
182 );
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
183 }
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
184
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
185 sub display_model {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
186 my $this = shift;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
187 my $model = shift;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
188 my ($template, $args);
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
189
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
190 if (ref $_[0] eq 'HASH') {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
191 $args = shift;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
192 } else {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
193 $template = shift;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
194 $args = shift;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
195 }
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
196
371
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
197 #copy
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
198 $args = { %{$args || {}} };
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
199
371
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
200 $args->{prefix} = join('.',grep($_,$this->prefix,$args->{path}))
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
201 unless defined $args->{prefix};
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
202
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
203 if (is($model,MetadataBase)) {
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
204 $args->{model} = $model->model;
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
205 $args->{metadata} = $model;
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
206 } else {
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
207 $args->{model} = $model;
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
208 $args->{metadata} = Metadata->GetMetadataForModel($model);
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
209 }
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
210
371
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
211 $template = $template ? $this->find_template($template) : $this->find_template_for($args->{metadata});
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
212
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
213 return $this->render(
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
214 $template,
371
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
215 $args
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
216 );
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
217 }
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
218
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
219 # обеспечивает необходимый уровень изоляции между контекстами
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
220 # $code - код, который нужно выполнить в новом контексте
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
221 # $env - хеш с переменными, которые будут переданы в новый контекст
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
222 # в процессе будет создан клон корневого контекста, со всеми его свойствами
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
223 # затем новый контекст будет локализован и в него будут добавлены новые переменные из $env
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
224 # созданный контекст будет передан параметром в $code
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
225 sub invoke_environment {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
226 my ($this,$code,$env) = @_;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
227
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
228 $env ||= {};
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
229
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
230 my $ctx = ($this->root || $this)->clone();
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
231
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
232 my @includes = @{$this->includes || []};
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
233
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
234 if ($this->base) {
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
235 unshift @includes, $this->base;
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
236 }
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
237
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
238 my $out = eval {
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
239 $ctx->localise(
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
240 hashApply(
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
241 {
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
242 includes => \@includes,
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
243 aliases => $this->aliases || {},
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
244 root => $this->root || $ctx,
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
245 modules => $this->modules || {},
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
246 cache => TypeKeyedCollection->new(),
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
247 display_for => sub {
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
248 $ctx->display_for(@_);
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
249 },
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
250 render => sub {
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
251 $ctx->render(@_);
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
252 },
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
253 display_model => sub {
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
254 $ctx->display_model(@_);
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
255 },
380
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
256 tt_cache => {},
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
257 labels => sub {
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
258 $ctx->load_labels(@_);
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
259 }
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
260 },
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
261 $env
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
262 )
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
263 );
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
264
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
265 &$code($ctx);
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
266 };
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
267
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
268 my $e = $@;
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
269 $ctx->delocalise();
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
270
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
271 die $e if $e;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
272
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
273 return $out;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
274 }
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
275
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
276 # использует указанный шаблон для создания фрагмента документа
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
277 # шаблон может быть как именем, так и хешем, содержащим информацию
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
278 # о шаблоне.
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
279 # отдельно следует отметить, что данный метод создает новый контекст
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
280 # для выполнения шаблона в котором задает переменные base, parent, id
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
281 # а также создает переменные для строковых констант из labels
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
282 # хеш с переменными $args будет передан самому шаблону в момент выполнения
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
283 # если у шаблона указан класс элемента управления, то при выполнении шаблона
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
284 # будет создан экземпляр этого класса и процесс выполнения шаблона будет
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
285 # делегирован методу Render этого экземпляра.
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
286 sub render {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
287 my ($this,$template,$args) = @_;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
288
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
289 $args ||= {};
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
290
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
291 my $info = ref $template ? $template : $this->find_template($template);
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
292
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
293 if (ref($info) ne 'HASH') {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
294 carp "got an invalid template object: $info (" . ref($info) . ")";
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
295 $info = {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
296 template => $info,
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
297 base => $this->base,
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
298 initialized => 1
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
299 };
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
300 }
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
301
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
302 return $this->invoke_environment(
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
303 sub {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
304 my $ctx = shift;
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
305
351
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
306 unless($info->{initialized}) {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
307 if(my $init = $info->{template}->blocks->{INIT}) {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
308 $info->{initialized} = 1;
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
309 eval {
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
310 $ctx->visit($info->{template}->blocks);
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
311 $ctx->include($init);
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
312 };
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
313 $ctx->leave();
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
314 }
cfd7570c2af2 working on TTView: created TTView class for rendering models
cin
parents: 349
diff changeset
315 }
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
316
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
317 if (my $class = $info->{class}) {
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
318 $class->new($ctx,$info->{template},$args)->Render({});
352
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
319 } else {
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
320 return $ctx->include($info->{template},$args);
675cd1829255 working on TTView: added control classes support
cin
parents: 351
diff changeset
321 }
380
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
322 },
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
323 {
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
324 base => $info->{base},
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
325 parent => $this,
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
326 id => $this->get_next_id,
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
327 templateInfo => $info
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
328 }
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
329 )
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
330 }
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
331
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
332 sub resolve_model {
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
333 my ($this,$prefix) = @_;
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
334
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
335 die ArgException->new(prefix => "the prefix must be specified")
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
336 unless defined $prefix;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
337
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
338 my $meta = $this->metadata;
371
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
339 unless($meta) {
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
340 $meta = Metadata->GetMetadataForModel($this->model);
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
341 $this->metadata($meta);
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
342 }
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
343
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
344 foreach my $part (grep length($_), split(/\.|\[(\d+)\]/, $prefix)) {
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
345 last unless $meta;
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
346 if ($part =~ /^\d+$/) {
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
347 $meta = $meta->GetItem($part);
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
348 } else {
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
349 $meta = $meta->GetProperty($part);
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
350 }
354
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
351 }
9330835535b9 fixed view double rendering
cin
parents: 353
diff changeset
352
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
353 return $meta;
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
354 }
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
355
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
356 sub find_template_for {
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
357 my ($this,$meta, $nothrow) = @_;
347
cin
parents: 346
diff changeset
358
371
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
359 die ArgException->new(meta => 'An invalid metadata is supplied')
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
360 unless is($meta,MetadataBase);
d5c8b955bf8d refactoring
cin
parents: 370
diff changeset
361
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
362 return $this->find_template($meta->template)
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
363 if ($meta->template);
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
364
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
365 my $type = $meta->modelType;
347
cin
parents: 346
diff changeset
366
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
367 return $this->find_template('templates/plain') unless $type;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
368
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
369 if (my $template = $this->cache->Get($type)) {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
370 return $template;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
371 } else {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
372
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
373 no strict 'refs';
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
374
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
375 my @isa = $type;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
376
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
377 while (@isa) {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
378 my $sclass = shift @isa;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
379
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
380 (my $name = $sclass) =~ s/:+/_/g;
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
381 my ($shortName) = ($sclass =~ m/(\w+)$/);
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
382
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
383 $template = $this->find_template("templates/$name",1) || $this->find_template("templates/$shortName",1);
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
384
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
385 if ($template) {
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
386 $this->cache->Set($sclass,$template);
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
387 return $template;
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
388 }
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
389
381
ced5937ff21a Custom getters/setters support method names in theirs definitions
cin
parents: 380
diff changeset
390 #todo $meta->GetISA to implement custom hierachy
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
391 push @isa, @{"${sclass}::ISA"};
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
392 }
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
393
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
394 }
370
cbf4febf0930 ObjectMeta, Tests, migrating to the new metadata model.
sergey
parents: 359
diff changeset
395 $this->throw(Template::Constants::ERROR_FILE, "can't find a template for the model $type")
359
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
396 unless $nothrow;
833e663796c4 TTView: added view variable to pass rendering context between controls
sergey
parents: 356
diff changeset
397
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
398 return;
347
cin
parents: 346
diff changeset
399 }
cin
parents: 346
diff changeset
400
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
401 sub get_real_file {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
402 my ($this,$fname) = @_;
86b470004d47 added lables loading
cin
parents: 348
diff changeset
403
380
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
404 return unless length $fname;
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
405
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
406 my @path = split(/\/+/,$fname);
86b470004d47 added lables loading
cin
parents: 348
diff changeset
407
86b470004d47 added lables loading
cin
parents: 348
diff changeset
408 foreach my $provider (@{$this->load_templates || []}) {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
409 foreach my $dir (@{$provider->paths || []}) {
86b470004d47 added lables loading
cin
parents: 348
diff changeset
410 my $realName = File::Spec->catfile($dir,@path);
86b470004d47 added lables loading
cin
parents: 348
diff changeset
411 return $realName if -f $realName;
86b470004d47 added lables loading
cin
parents: 348
diff changeset
412 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
413 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
414 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
415
86b470004d47 added lables loading
cin
parents: 348
diff changeset
416 sub load_labels {
380
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
417 my ($this,$data) = @_;
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
418
380
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
419 die ArgException->new("A hash reference is required")
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
420 unless ref($data) eq 'HASH';
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
421
380
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
422 my $stringMap = StringMap->new($data);
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
423
380
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
424 $this->stash->update({
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
425 map {
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
426 my $id = $_;
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
427 $id,
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
428 sub {
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
429 $stringMap->GetString($id,@_);
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
430 };
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
431 } keys %$data
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
432 });
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
433
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
434 my $ti = $this->templateInfo || {};
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
435
380
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
436 if (my $fullName = $this->get_real_file($ti->{file})) {
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
437 my ($vol,$dir,$fname) = File::Spec->splitpath($fullName);
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
438
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
439 my $name = $this->templateInfo->{name};
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
440
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
441 my $localePath = File::Spec->catpath($vol, File::Spec->catdir($dir,'locale'),'');
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
442
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
443 $stringMap->name($name);
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
444 $stringMap->paths($localePath);
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
445 }
1eca08048ba9 TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
cin
parents: 371
diff changeset
446 return;
349
86b470004d47 added lables loading
cin
parents: 348
diff changeset
447 }
86b470004d47 added lables loading
cin
parents: 348
diff changeset
448
345
cin
parents: 343
diff changeset
449 1;
cin
parents: 343
diff changeset
450
cin
parents: 343
diff changeset
451 __END__
cin
parents: 343
diff changeset
452
cin
parents: 343
diff changeset
453 =pod
cin
parents: 343
diff changeset
454
cin
parents: 343
diff changeset
455 =head1 NAME
cin
parents: 343
diff changeset
456
cin
parents: 343
diff changeset
457 C<IMPL::Web::View::TTContext> - доработанная версия контекста
cin
parents: 343
diff changeset
458
cin
parents: 343
diff changeset
459 =head1 DESCRIPTION
cin
parents: 343
diff changeset
460
cin
parents: 343
diff changeset
461 Расширяет функции C<Template::Context>
cin
parents: 343
diff changeset
462
cin
parents: 343
diff changeset
463 =begin plantuml
cin
parents: 343
diff changeset
464
cin
parents: 343
diff changeset
465 @startuml
cin
parents: 343
diff changeset
466
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
467 object RootContext {
345
cin
parents: 343
diff changeset
468 document
346
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
469 globals
345
cin
parents: 343
diff changeset
470 }
cin
parents: 343
diff changeset
471
cin
parents: 343
diff changeset
472 object DocumentContext {
346
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
473 base
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
474 extends
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
475 }
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
476
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
477 object ControlContext {
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
478 base
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
479 extends
345
cin
parents: 343
diff changeset
480 }
cin
parents: 343
diff changeset
481
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
482 RootContext o-- DocumentContext
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
483 RootContext o-- ControlContext
345
cin
parents: 343
diff changeset
484
346
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
485 Document -- DocumentContext
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
486 Control - ControlContext
345
cin
parents: 343
diff changeset
487
348
f116cd9fe7d9 working on TTView: pre-alpha version
cin
parents: 347
diff changeset
488 Loader . RootContext: <<creates>>
346
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
489 Loader . Document: <<creates>>
f05634287ac7 working on the view concept
cin
parents: 345
diff changeset
490 Loader -up- Registry
345
cin
parents: 343
diff changeset
491
cin
parents: 343
diff changeset
492 @enduml
cin
parents: 343
diff changeset
493
cin
parents: 343
diff changeset
494 =end plantuml
cin
parents: 343
diff changeset
495
cin
parents: 343
diff changeset
496 =head1 MEMBERS
cin
parents: 343
diff changeset
497
cin
parents: 343
diff changeset
498 =head2 C<[get,set]base>
cin
parents: 343
diff changeset
499
cin
parents: 343
diff changeset
500 Префикс пути для поиска шаблонов
cin
parents: 343
diff changeset
501
cin
parents: 343
diff changeset
502 =head2 C<template($name)>
cin
parents: 343
diff changeset
503
cin
parents: 343
diff changeset
504 Сначала пытается загрузить шаблон используя префикс C<base>, затем без префикса.
cin
parents: 343
diff changeset
505
cin
parents: 343
diff changeset
506 =head2 C<clone()>
cin
parents: 343
diff changeset
507
cin
parents: 343
diff changeset
508 Создает копию контекста, при этом C<stash> локализуется, таким образом
cin
parents: 343
diff changeset
509 клонированный контекст имеет собственное пространство имен, вложенное в
cin
parents: 343
diff changeset
510 пространство родительского контекста.
cin
parents: 343
diff changeset
511
cin
parents: 343
diff changeset
512 =cut