Mercurial > pub > Impl

annotate Lib/IMPL/Web/View/TTContext.pm @ 400:ef37ec102dab

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