diff Lib/IMPL/Web/View/TTControl.pm @ 301:aeeb57a12046

*IMPL::Web::View: templates inheritance support
author cin
date Mon, 25 Mar 2013 02:04:18 +0400
parents bf3af33b9003
children 673581380e79
line wrap: on
line diff
--- a/Lib/IMPL/Web/View/TTControl.pm	Fri Mar 22 01:05:11 2013 +0400
+++ b/Lib/IMPL/Web/View/TTControl.pm	Mon Mar 25 02:04:18 2013 +0400
@@ -42,7 +42,7 @@
     
     $this->attributes({});
     
-    if(reftype($attrs) eq 'HASH') {
+    if(ref($attrs) eq 'HASH') {
 	    while (my($key,$value) = each %$attrs) {
 	        $this->SetAttribute($key,$value);
 	    }
@@ -80,7 +80,7 @@
     $args = {} unless ref $args eq 'HASH';
     
     return $this->context->include(
-        $this->template,
+        $this->template->block,
         {
             %$args,
             this => $this,