Ready for 7.10.29 development.

lib/WebGUI/Asset/Template/HTMLTemplate.pm

@@ -0,0 +1,76 @@
+package WebGUI::Asset::Template::HTMLTemplate;
+
+=head1 LEGAL
+
+ -------------------------------------------------------------------
+  WebGUI is Copyright 2001-2009 Plain Black Corporation.
+ -------------------------------------------------------------------
+  Please read the legal notices (docs/legal.txt) and the license
+  (docs/license.txt) that came with this distribution before using
+  this software.
+ -------------------------------------------------------------------
+  http://www.plainblack.com                     info@plainblack.com
+ -------------------------------------------------------------------
+
+=cut
+
+use strict;
+use base 'WebGUI::Asset::Template::Parser';
+use WebGUI::Exception;
+use HTML::Template;
+
+
+#-------------------------------------------------------------------
+
+=head2 getName ( )
+
+Returns the human readable name of this parser.
+
+=cut
+
+sub getName {
+	my $self = shift;
+	return "HTML::Template";
+}
+
+
+#-------------------------------------------------------------------
+
+=head2 process ( template, vars )
+
+Evaluate a template replacing template commands for HTML.
+
+=head3 template
+
+A scalar variable containing the template.
+
+=head3 vars
+
+A hash reference containing template variables and loops. 
+
+=cut
+
+sub process {
+    my $self = shift;
+    my $template = shift;
+    my $vars = $self->addSessionVars(shift);
+    $self->downgrade($vars);
+    my $t;
+    eval {
+        $t = HTML::Template->new(
+            scalarref=>\$template,
+            global_vars=>1,
+            loop_context_vars=>1,
+            die_on_bad_params=>0,
+            no_includes=>1,
+            strict=>0
+        );
+    };
+    if ($@) {
+        WebGUI::Error::Template->throw( error => $@ );
+    }
+    $t->param(%{$vars});
+    return $t->output;
+}
+
+1;