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

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

Sorry, the code does work, there was a simple error in my template  
(drrr)

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

There's still some problems with this approach. One being that any  
other filters you attempt to use, don't work. I think. I'm still  
trying to 'rastle it into my code. It makes almost more sense to just  
use this simple idea *as* a filter, instead of using it as a separate  
module. Would make it work easier with H::T::Expr as well. The problem  
is the filter saves the name/values you need to add to param()  
sometime, later. I can't quite figure a nice way to do this, without  
global vars.

I have this very weird feeling I'm having a conversation that's been  
repeated a few... hundred times, already.

On wards!

Justin




On Aug 10, 2009, at 12:05 AM, Justin Skazat wrote:

> 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
>>
>
>
> ------------------------------------------------------------------------------
> Let Crystal Reports handle the reporting - Free Crystal Reports 2008  
> 30-Day
> trial. Simplify your report design, integration and deployment - and  
> focus on
> what you do best, core application coding. Discover what's new with
> Crystal Reports now.  http://p.sf.net/sfu/bobj-july
> _______________________________________________
> Html-template-users mailing list
> Htm...@li...
> https://lists.sourceforge.net/lists/listinfo/html-template-users
>