0b1e077f69
Added pluggable template parser docs. From the dev list, changed HTMLTemplateExpr to translate all dots in template variables to underscores, since EXPR's don't do dots, just like TemplateToolkit.
92 lines
2.5 KiB
Perl
Executable file
92 lines
2.5 KiB
Perl
Executable file
package WebGUI::Asset::Template::HTMLTemplateExpr;
|
|
|
|
=head1 LEGAL
|
|
|
|
-------------------------------------------------------------------
|
|
WebGUI is Copyright 2001-2006 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 HTML::Template::Expr;
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
sub _rewriteVars { # replace dots with underscrores in keys (except in keys that aren't usable as variables (URLs etc.))
|
|
my $vars = shift;
|
|
foreach my $key (keys %$vars){
|
|
my $newKey = $key;
|
|
$newKey =~ s/\./_/g if $newKey !~ /\//;
|
|
if(ref $vars->{$key} eq 'HASH'){
|
|
$vars->{$newKey} = _rewriteVars($vars->{$key});
|
|
delete $vars->{$key} if($key ne $newKey);
|
|
}else{
|
|
if($key ne $newKey){
|
|
$vars->{$newKey} = $vars->{$key};
|
|
delete $vars->{$key};
|
|
}
|
|
}
|
|
}
|
|
return $vars;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 getName ( )
|
|
|
|
Returns the human readable name of this parser.
|
|
|
|
=cut
|
|
|
|
sub getName {
|
|
my $self = shift;
|
|
return "HTML::Template::Expr";
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=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 $class = shift;
|
|
my $template = shift;
|
|
my $vars = $class->addSessionVars(shift);
|
|
my $t;
|
|
eval {
|
|
$t = HTML::Template::Expr->new(scalarref=>\$template,
|
|
global_vars=>1,
|
|
loop_context_vars=>1,
|
|
die_on_bad_params=>0,
|
|
no_includes=>1,
|
|
strict=>0);
|
|
};
|
|
unless ($@) {
|
|
$t->param(%{_rewriteVars($vars)});
|
|
return $t->output;
|
|
} else {
|
|
$class->session->errorHandler->error("Error in template. ".$@);
|
|
return WebGUI::International->new($class->session,'Asset_Template')->get('template error').$@;
|
|
}
|
|
}
|
|
|
|
1;
|