annotate Lib/IMPL/Web/TT/Control.pm @ 171:59e5fcb59d86

Исправления, изменена концепция веб-форм
author sourcer
date Mon, 06 Jun 2011 03:30:36 +0400
parents 4267a2ac3d46
children d1676be8afcc
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
1 package IMPL::Web::TT::Control;
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
2
166
4267a2ac3d46 Added Class::Template,
wizard
parents: 140
diff changeset
3 use parent qw(IMPL::Web::TT::Collection);
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
4
171
59e5fcb59d86 Исправления, изменена концепция веб-форм
sourcer
parents: 166
diff changeset
5
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
6 use IMPL::Class::Property;
122
a7efb3117295 Fixed bug in IMPL::DOM::Navigator::selectNodes
wizard
parents: 117
diff changeset
7 use IMPL::DOM::Property qw(_dom);
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
8
107
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
9 __PACKAGE__->PassThroughArgs;
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
10
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
11 BEGIN {
108
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
12 public property controlClass => prop_all;
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
13 public property template => prop_all;
107
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
14 public property id => prop_all;
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
15 }
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
16
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
17 my $nextId = 1;
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
18
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
19 sub CTOR {
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
20 my ($this,%args) = @_;
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
21
109
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
22 if ($this->document) {
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
23 # load a template
140
fb896377389f to_json and escape_string functions for the templates
wizard
parents: 126
diff changeset
24 $this->template( $this->document->context->template($args{template})) if ($args{template} and not ref $args{template});
109
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
25 }
126
c8dfbbdd8005 Several bug fixes
wizard
parents: 122
diff changeset
26 #$this->template($args{template}) if $args{template};
109
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
27
107
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
28 $this->id($this->nodeName . '-' . $nextId++);
140
fb896377389f to_json and escape_string functions for the templates
wizard
parents: 126
diff changeset
29 $this->controlClass('Control') unless $this->controlClass;
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
30 }
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
31
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
32 sub Render {
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
33 my ($this) = @_;
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
34
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
35 if ($this->document) {
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
36 if ($this->template) {
117
0475eb382085 Controls support (RC1)
wizard
parents: 109
diff changeset
37 return $this->document->context->include($this->template,{ this => $this }) ;
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
38 } elsif ($this->document->presenter) {
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
39 return $this->document->presenter->print($this);
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
40 } else {
117
0475eb382085 Controls support (RC1)
wizard
parents: 109
diff changeset
41 return $this->toString().": ".$this->controlClass() . ": ".$this->path;
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
42 }
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
43 }
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
44 }
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
45 1;