Re: [htmltmpl] Setting a variable from within a template?

[Justin S. <ju...@sk...>]

I may be missing something terribly obvious, but the version of  
HTML::Template::Set that you pasted doesn't really work:



#!/usr/bin/perl
use strict;
my $tmpl = '<!-- tmpl_set name="foo" value="bar" --><h1><!-- tmpl_var  
foo--></h1>';
my 	$template = HTML::Template::Set->new(
scalarref => \$tmpl,
);
print $template->output;
						
Gives you an error:

HTML::Template->new() : fatal error occured during filter call: "foo"  
at test.pl line 6
  at test.pl line 6


The version of HTML::Template::Set that's on CPAN right now is from  
2004 and is a lot, and I mean a LOT different (and complex). I liked  
your version better, but it doesn't seem to be doing the right thing,  
sadly.

Justin




On Jul 23, 2009, at 9:40 AM, Roger Burton West wrote:

> On Thu, Jul 23, 2009 at 03:56:36PM +0100, Stuart Moore wrote:
>> Is there any way to set a variable within a template?
>
> No. I tend to use my HTML::Template::Set extension, which is very  
> basic
> but gets the job done. I think this is the latest version. It allows  
> you to:
>
> <tmpl_set name=varname value=varvalue>
>
> Roger
>
>
>
>
> package HTML::Template::Set;
>
> use HTML::Template;
>
> use base qw(HTML::Template);
>
> sub new {
>
>  my %set_params;
>
>  my $set_filter = sub {
>    my $text_ref=shift;
>    my $match='<(?:\!--\s*)?tmpl_set\s*name=(.*?)\s*value=(.*?)\s*>';
>    my @taglist=$$text_ref =~ m/$match/gi;
>    while (@taglist) {
>      my ($t,$v)=(shift @taglist,shift @taglist);
>      $set_params{$t}=$v;
>    }
>    $$text_ref =~ s/$match/<tmpl_if name=never><tmpl_var name=$1><\/ 
> tmpl_if>/gi;
>  };
>
>  my $proto = shift;
>  my $class = ref($proto) || $proto;
>  my $self=HTML::Template->new(filter => $set_filter,
>                               @_);
>  bless ($self, $class);
>  $self->param(%set_params);
>  return $self;
> }
>
> 1;
>
>
> ------------------------------------------------------------------------------
> _______________________________________________
> Html-template-users mailing list
> Htm...@li...
> https://lists.sourceforge.net/lists/listinfo/html-template-users
>