comparison Lib/IMPL/Web/TT/Control.pm @ 140:fb896377389f

to_json and escape_string functions for the templates minor changes
author wizard
date Mon, 05 Jul 2010 02:22:42 +0400
parents c8dfbbdd8005
children 4267a2ac3d46
comparison
equal deleted inserted replaced
139:5a9f64890c31 140:fb896377389f
18 sub CTOR { 18 sub CTOR {
19 my ($this,%args) = @_; 19 my ($this,%args) = @_;
20 20
21 if ($this->document) { 21 if ($this->document) {
22 # load a template 22 # load a template
23 $args{template} = $this->document->context->template($args{template}) if ($args{template} and not ref $args{template}); 23 $this->template( $this->document->context->template($args{template})) if ($args{template} and not ref $args{template});
24 } 24 }
25 #$this->template($args{template}) if $args{template}; 25 #$this->template($args{template}) if $args{template};
26 26
27 $this->id($this->nodeName . '-' . $nextId++); 27 $this->id($this->nodeName . '-' . $nextId++);
28 $this->controlClass($args{controlClass} || 'Control'); 28 $this->controlClass('Control') unless $this->controlClass;
29 } 29 }
30 30
31 sub Render { 31 sub Render {
32 my ($this) = @_; 32 my ($this) = @_;
33 33