Mercurial > pub > Impl
view Lib/IMPL/Web/TT/Control.pm @ 121:92c850d0bdb9
Minor changes
Fixed bug with templates base in the PageFormat module
Added an ability to remove current security context with a specified
author | wizard |
---|---|
date | Tue, 08 Jun 2010 03:38:10 +0400 |
parents | 0475eb382085 |
children | a7efb3117295 |
line wrap: on
line source
package IMPL::Web::TT::Control; use base qw(IMPL::Web::TT::Collection); use IMPL::Class::Property; __PACKAGE__->PassThroughArgs; BEGIN { public property controlClass => prop_all; public property template => prop_all; public property id => prop_all; } my $nextId = 1; sub CTOR { my ($this,%args) = @_; if ($this->document) { # load a template $args{template} = $this->document->context->template($args{template}) if ($args{template} and not ref $args{template}); } $this->template($args{template}) if $args{template}; $this->id($this->nodeName . '-' . $nextId++); $this->controlClass($args{controlClass} || 'Control'); } sub Render { my ($this) = @_; if ($this->document) { if ($this->template) { return $this->document->context->include($this->template,{ this => $this }) ; } elsif ($this->document->presenter) { return $this->document->presenter->print($this); } else { return $this->toString().": ".$this->controlClass() . ": ".$this->path; } } } 1;