html-template-users — Discussion of HTML::Template and related modules

[htmltmpl] Associate (bug?)

[Brad B. <bm...@ma...>]

In my experiments with nested templates, I tried
some trickery using associate to avoid the extra
param() calls.  However, I've come across an unexpected
result (at least, unexpected to me).

The code below shows two templates (tmpl1 and tmpl2)
each of which associate another template (borrow1 and
borrow2, respectively).

Apparently, the param() call only sets a value in a
template if there is a corresponding TMPL_VAR--even
with die_on_bad_params turned on. Is this intended?

My expectation is that the param would be set in the
object regardless, so that another call to param()
to *get* the value would succeed.

I tried adding global_vars => 1 after line 26, thinking
that might be needed, but the result was the same.

I'm at version 2.8.

Regards,

Brad

     1  #!/usr/local/bin/perl
     2
     3  use strict;
     4  use warnings;
     5  use HTML::Template;
     6
     7  my $text = qq'This is a <TMPL_VAR NAME="color"> bird.\n';
     8
     9  # ----  try 1
    10  my $has = '<TMPL_VAR NAME="color">';
    11  my $borrow1 = HTML::Template->new(
    12      scalarref         => \$has,
    13      );
    14  $borrow1->param( color => 'blue' );
    15
    16  my $tmpl1 = HTML::Template->new(
    17      scalarref => \$text,
    18      associate => $borrow1,
    19      );
    20
    21  print "try1: " . $tmpl1->output();
    22
    23  # ----  try 2
    24  my $hasnot = 'dummy';
    25  my $borrow2 = HTML::Template->new(
    26      scalarref         => \$hasnot,
    27      die_on_bad_params => 0,
    28      );
    29  $borrow2->param( color => 'blue' );
    30
    31  my $tmpl2 = HTML::Template->new(
    32      scalarref => \$text,
    33      associate => $borrow2,
    34      );
    35
    36  print "try2: " . $tmpl2->output();
    37
    38  __END__
    39  try1: This is a blue bird.
    40  try2: This is a  bird.

Re: [htmltmpl] Nested templates

[Brad B. <bm...@ma...>]

Yes, that solves a slightly different problem
than my (admittedly somewhat pointless) example,
but it doesn't address the nesting that I'm
after.  I don't do it a lot, but there are key
points where I want to, and I like to be able
to count on it working.  I'd like there to be
an option to new() that says, "Do repeated
substitutions until there aren't any more".

I suspect that would still incur a 'compile'
step each time, but I'd hope it could avoid
the copy from output() and the repeated param()
calls.

Thanks,

Brad


On Wed, Nov 25, 2009 at 10:58 AM, Alex Teslik <al...@ac...> wrote:
> On Tue, 24 Nov 2009 21:24:30 -0500, Brad Baxter wrote
>>
>> Is there a better way?
>
> I would just do:
>
> #!/usr/local/bin/perl
>
> use strict;
> use warnings;
> use HTML::Template;
>
> my $template = qq|
> This is a <tmpl_var color> bird.
> This is a <tmpl_if is_blue>BLUE</tmpl_if> bird.
> This is a <tmpl_if is_blue>**BLUE**</tmpl_if> bird.
> |;
>
> # all the logic of what the color will be goes here
> my $color = 'blue';
>
> my $tmpl = HTML::Template->new(
>   scalarref         => \$template,
>   strict            => 0,
>   die_on_bad_params => 0,
>   case_sensitive    => 1,
> );
>
> $tmpl->param(
>               color   => $color,
>               is_blue => $color eq 'blue' ? 1 : 0,
>            );
>
> print $tmpl->output();
>
> So many advantages. The logic is completely separate from the presentation. If you send the template
> to a speaker of a different language, they can localize that with no problems. The code is much
> shorter at 29 lines vs. 42 lines, and its much more clear to a future maintainer what is happening
> without any brain gymnastics.
>
> HTH,
> Alex
>



-- 
Brad Baxter
----------------------------------------------------------------------

Re: [htmltmpl] Nested templates

[Brad B. <bm...@ma...>]

Yes, that's better.  It replaces a copy and compare (and
extra loop) as you say with a regx match.  I still have
a copy, object creation, and repeated param settings that
bother me, but I suspect this is the best I'm going to get
without a significant change to H::T.

Thanks,

Brad

On Tue, Nov 24, 2009 at 9:48 PM, Mathew Robertson
<mat...@ne...> wrote:
> <snip>
>
> that seems somewhat complicated - you could use a regex in the while loop,
> as in:
>
> while ($text =~ /<TMPL_/) { ... }
>
> instead of using a loop variable or breaking out of the loop.  In particular
> it would save you having to do any string comparisons and would avoid the
> extra loop iteration.
>
> Mathew Robertson
>
>



-- 
Brad Baxter
----------------------------------------------------------------------

Re: [htmltmpl] Nested templates

[Alex T. <al...@ac...>]

On Tue, 24 Nov 2009 21:24:30 -0500, Brad Baxter wrote
> Hi all,
> 
> I once tried to implement nested templates with HTML::Template.
> Below is an example of what I came up with:
> 
>      1  #!/usr/local/bin/perl
>      2
>      3  use strict;
>      4  use warnings;
>      5  use HTML::Template;
>      6
>      7  my $text = <<__;
>      8  This is a <TMPL_VAR NAME="color"> bird.
>      9  This is a <TMPL_VAR NAME="<TMPL_VAR NAME="color">"> bird.
>     10  This is a <TMPL_VAR NAME="<TMPL_VAR NAME="<TMPL_VAR
> NAME="color">">"> bird.
>     11  __
>     12
>     13  my $output = '';
>     14  my $sref = \$text;
>     15  my $count;
>     16
>     17  while (1) {
>     18      $count++;
>     19
>     20      my $tmpl = HTML::Template->new(
>     21          scalarref         => $sref,
>     22          strict            => 0,
>     23          die_on_bad_params => 0,
>     24          case_sensitive    => 1,
>     25          );
>     26
>     27      $tmpl->param( color => 'blue' );
>     28      $tmpl->param( blue => 'BLUE' );
>     29      $tmpl->param( BLUE => '**BLUE**' );
>     30
>     31      $text = $tmpl->output();
>     32
>     33      print "\n$count:\n$text";  # debug
>     34
>     35      last if $output eq $text;  # no changes since last time
>     36      $output = $text;
>     37
>     38  }
>     39
>     40  print "\nfinal: \n$output";
>     41
>     42  __END__
> 
> 1:
> This is a blue bird.
> This is a <TMPL_VAR NAME="blue"> bird.
> This is a <TMPL_VAR NAME="<TMPL_VAR NAME="blue">"> bird.
> 
> 2:
> This is a blue bird.
> This is a BLUE bird.
> This is a <TMPL_VAR NAME="BLUE"> bird.
> 
> 3:
> This is a blue bird.
> This is a BLUE bird.
> This is a **BLUE** bird.
> 
> 4:
> This is a blue bird.
> This is a BLUE bird.
> This is a **BLUE** bird.
> 
> final:
> This is a blue bird.
> This is a BLUE bird.
> This is a **BLUE** bird.
> 
> I would like a better way of doing this.  The calls to
> new() on line 20, the copies on lines 31 and 36, and
> the compares on line 36 just seem all a bit much for
> what ought (I think) to be more like
> 
> 1 while s/from/to/g;
> 
> Is there a better way?

I would just do:

#!/usr/local/bin/perl

use strict;
use warnings;
use HTML::Template;

my $template = qq|
This is a <tmpl_var color> bird.
This is a <tmpl_if is_blue>BLUE</tmpl_if> bird.
This is a <tmpl_if is_blue>**BLUE**</tmpl_if> bird.
|;

# all the logic of what the color will be goes here
my $color = 'blue';

my $tmpl = HTML::Template->new(
   scalarref         => \$template,
   strict            => 0,
   die_on_bad_params => 0,
   case_sensitive    => 1,
);

$tmpl->param(
               color   => $color,
               is_blue => $color eq 'blue' ? 1 : 0,
            );

print $tmpl->output();

So many advantages. The logic is completely separate from the presentation. If you send the template
to a speaker of a different language, they can localize that with no problems. The code is much
shorter at 29 lines vs. 42 lines, and its much more clear to a future maintainer what is happening
without any brain gymnastics.

HTH,
Alex

Re: [htmltmpl] Nested templates

[Michael P. <mp...@pl...>]

On 11/24/2009 09:24 PM, Brad Baxter wrote:

> Is there a better way?

I've done this by using a different name for each pass. So something like:

   <pass2_var name="<tmpl_var name=foo>">

So you run it through HTML::Template once to get the output and then
    s/<pass2_/<tmpl_/gi;
And then run it again.

-- 
Michael Peters
Plus Three, LP

Re: [htmltmpl] Nested templates

[Mathew R. <mat...@ne...>]

<snip>

that seems somewhat complicated - you could use a regex in the while 
loop, as in:

while ($text =~ /<TMPL_/) { ... }

instead of using a loop variable or breaking out of the loop.  In 
particular it would save you having to do any string comparisons and 
would avoid the extra loop iteration.

Mathew Robertson

[htmltmpl] Nested templates

[Brad B. <bm...@ma...>]

Hi all,

I once tried to implement nested templates with HTML::Template.
Below is an example of what I came up with:

     1  #!/usr/local/bin/perl
     2
     3  use strict;
     4  use warnings;
     5  use HTML::Template;
     6
     7  my $text = <<__;
     8  This is a <TMPL_VAR NAME="color"> bird.
     9  This is a <TMPL_VAR NAME="<TMPL_VAR NAME="color">"> bird.
    10  This is a <TMPL_VAR NAME="<TMPL_VAR NAME="<TMPL_VAR
NAME="color">">"> bird.
    11  __
    12
    13  my $output = '';
    14  my $sref = \$text;
    15  my $count;
    16
    17  while (1) {
    18      $count++;
    19
    20      my $tmpl = HTML::Template->new(
    21          scalarref         => $sref,
    22          strict            => 0,
    23          die_on_bad_params => 0,
    24          case_sensitive    => 1,
    25          );
    26
    27      $tmpl->param( color => 'blue' );
    28      $tmpl->param( blue => 'BLUE' );
    29      $tmpl->param( BLUE => '**BLUE**' );
    30
    31      $text = $tmpl->output();
    32
    33      print "\n$count:\n$text";  # debug
    34
    35      last if $output eq $text;  # no changes since last time
    36      $output = $text;
    37
    38  }
    39
    40  print "\nfinal: \n$output";
    41
    42  __END__

1:
This is a blue bird.
This is a <TMPL_VAR NAME="blue"> bird.
This is a <TMPL_VAR NAME="<TMPL_VAR NAME="blue">"> bird.

2:
This is a blue bird.
This is a BLUE bird.
This is a <TMPL_VAR NAME="BLUE"> bird.

3:
This is a blue bird.
This is a BLUE bird.
This is a **BLUE** bird.

4:
This is a blue bird.
This is a BLUE bird.
This is a **BLUE** bird.

final:
This is a blue bird.
This is a BLUE bird.
This is a **BLUE** bird.

I would like a better way of doing this.  The calls to
new() on line 20, the copies on lines 31 and 36, and
the compares on line 36 just seem all a bit much for
what ought (I think) to be more like

1 while s/from/to/g;

Is there a better way?

Apologies if this has been beat to death in the past ...

Regards,

Brad

Re: [htmltmpl] Escaping unicode

[Tobias N. <tn...@mo...>]

Thank you both for your answers!

Michael Peters wrote:
> On 11/13/2009 08:26 AM, Tobias Nissen wrote:
>> For the data to be escaped before feeding it to H::T, I'd have to
>> add a lot of code, therefore I'd like to avoid this approach. Is
>> there any way I can tell H::T to escape Unicode data I feed to it
>> with param()?
> 
> You could create a function if you were using HTML::Template::Expr or 
> you could subclass HTML::Template and change param to first filter
> the unicode chars for you. Then pass it off to the base class to do
> the rest. Would be an extremely simple subclass.

Indeed...

  package MyHT;
  use base 'HTML::Template';
  sub param { return SUPER::param(escape(@_)) }
  sub escape { ... escape magic ... }
  1;

Or something like that.

>> If not, then the next best thing would be to create a patched
>> version of H::T for my purposes with a method like param_escape()
>> or sth like that, right?
> 
> No, please don't do that. Don't run with a patched version unless 
> absolutely necessary. Instead go with a subclass.

You're right, that's the better approach. And at first it seemed like
the right approach for my problem, because I didn't want to walk
through complex data structures to escape characters. I thought it
would be enough to call a simple escaping function[0] for each value
(in (key, value)) param() gets passed. But it turned out to be
insufficient, since I was already passing data structures consisting of
arrays /and/ hashes. Hence I had to walk through the whole shebang...
At that moment a wrapper would just have meant more code, so now I'm
just calling

  $ht_params = escape_unicode_for_rtf($ht_params) if $format eq 'rtf';

before passing the parameters to param(). If there were other formats
(and not just RTF) where unicode sequences were to escape, then I'd use
a wrapper to enhance code readability, I think.

[0] i.e. one that takes every argument and escapes unicode sequences in
it. This would work for arrays, hashes and scalars. But that's it then.

Re: [htmltmpl] Escaping unicode

[Dawid J. <djs...@gm...>]

Definitely would second Michael on not running a patched version.

There is only 1, yes only 1 circumstance in which you run a patched version.

And that in that circumstance you will know it is the right thing to do.

Kingdom Houses Management (+44) 0208 281 1572 kin...@gm... / 
in...@ki... Kingdom Houses, 5 The Rise, Snaresbrook, London E11 
1QA 
www.kingdomhouses.co.uk --------------------------------------------------------------------------------
----- Original Message ----- 
From: "Michael Peters" <mp...@pl...>
To: "Tobias Nissen" <tn...@mo...>
Cc: <htm...@li...>
Sent: Friday, November 13, 2009 2:13 PM
Subject: Re: [htmltmpl] Escaping unicode


> On 11/13/2009 08:26 AM, Tobias Nissen wrote:
>
>> For the data to be escaped before feeding it to H::T, I'd have to add
>> a lot of code, therefore I'd like to avoid this approach. Is there any
>> way I can tell H::T to escape Unicode data I feed to it with param()?
>
> You could create a function if you were using HTML::Template::Expr or
> you could subclass HTML::Template and change param to first filter the
> unicode chars for you. Then pass it off to the base class to do the
> rest. Would be an extremely simple subclass.
>
>> If not, then the next best thing would be to create a patched version of
>> H::T for my purposes with a method like param_escape() or sth like that,
>> right?
>
> No, please don't do that. Don't run with a patched version unless
> absolutely necessary. Instead go with a subclass.
>
> -- 
> Michael Peters
> Plus Three, LP
>
> ------------------------------------------------------------------------------
> 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 

Re: [htmltmpl] Escaping unicode

[Michael P. <mp...@pl...>]

On 11/13/2009 08:26 AM, Tobias Nissen wrote:

> For the data to be escaped before feeding it to H::T, I'd have to add
> a lot of code, therefore I'd like to avoid this approach. Is there any
> way I can tell H::T to escape Unicode data I feed to it with param()?

You could create a function if you were using HTML::Template::Expr or 
you could subclass HTML::Template and change param to first filter the 
unicode chars for you. Then pass it off to the base class to do the 
rest. Would be an extremely simple subclass.

> If not, then the next best thing would be to create a patched version of
> H::T for my purposes with a method like param_escape() or sth like that,
> right?

No, please don't do that. Don't run with a patched version unless 
absolutely necessary. Instead go with a subclass.

-- 
Michael Peters
Plus Three, LP

[htmltmpl] Escaping unicode

[Tobias N. <tn...@mo...>]

Hi!

I'm using HTML::Template to generate RTF-documents which works pretty
good with plain ASCII. But since with RTF Unicode characters have to be
escaped (like \u0123, Unicode::Escape exists for this), I have to
either escape it before I feed it to HTML::Template or I have to
convince H::T to escape it on-the-fly. The filter option sounds
promising, but it touches the template before the tags are parsed.

For the data to be escaped before feeding it to H::T, I'd have to add
a lot of code, therefore I'd like to avoid this approach. Is there any
way I can tell H::T to escape Unicode data I feed to it with param()?
If not, then the next best thing would be to create a patched version of
H::T for my purposes with a method like param_escape() or sth like that,
right?

Best regards!
Tobias

[htmltmpl] loop_context_vars and nested loops

[cfaust-dougot <cf...@do...>]

Hi,
 
I was wondering if it's at all possible to get utilize the loop_context_vars of a parent loop within a nested loop?
 
For example, something like this?
 
<TMPL_LOOP NAME="LoopOne">
 <TMPL_LOOP NAME="NestedLoop">
  <TMPL_IF NAME="__ParentFirst__">This would be true for the duration of NestedLoop for the 1st loop of LoopOne</TMPL_IF>
 </TMPL_LOOP>
</TMPL_LOOP>
 
 
TIA!!

Re: [htmltmpl] Nested TMPL_LOOPs

[Jason D. <ja...@di...>]

Disregard, I realized that it's choking when 'uri_loop' is undef.

Thanks,
Jason

On Sat, Sep 19, 2009 at 03:04:42PM -0400, Jason Dixon wrote:
> Wondering if there's a limit to the number of recursive TMPL_LOOPs it
> can handle.  I have a structure 3 levels deep and it works for the first
> nest, but not to the last level.  Here's a dump of the data:
> 
> http://pastebin.com/m630138aa
> 
> And here is the template structure:
> 
> http://pastebin.com/m5d6383a2
> 
> It works fine for the first level of VARs as well as everything inside
> 'month_loop', but it fails on 'uri_loop' with the following error:
> 
> [Sat Sep 19 14:43:24 2009] [error] PerlRun: `HTML::Template->output() :
> fatal error in loop output : HTML::Template->output() : fatal error in
> loop output : HTML::Template::param() : attempt to set parameter
> 'uri_loop' with a scalar - parameter is not a TMPL_VAR! at
> /usr/local/libdata/perl5/site_perl/HTML/Template.pm line 3068\n at
> /usr/local/libdata/perl5/site_perl/HTML/Template.pm line 3069\n at
> /blogsum/index.cgi line 63\n'
> 
> The structure looks clean to me, so I'm not sure what I might be
> overlooking.  Any suggestions?
> 
> Thanks,
> 
> -- 
> Jason Dixon
> DixonGroup Consulting
> http://www.dixongroup.net/
> 
> ------------------------------------------------------------------------------
> Come build with us! The BlackBerry® Developer Conference in SF, CA
> is the only developer event you need to attend this year. Jumpstart your
> developing skills, take BlackBerry mobile applications to market and stay 
> ahead of the curve. Join us from November 9-12, 2009. Register now!
> http://p.sf.net/sfu/devconf
> _______________________________________________
> Html-template-users mailing list
> Htm...@li...
> https://lists.sourceforge.net/lists/listinfo/html-template-users

-- 
Jason Dixon
DixonGroup Consulting
http://www.dixongroup.net/

[htmltmpl] Nested TMPL_LOOPs

[Jason D. <ja...@di...>]

Wondering if there's a limit to the number of recursive TMPL_LOOPs it
can handle.  I have a structure 3 levels deep and it works for the first
nest, but not to the last level.  Here's a dump of the data:

http://pastebin.com/m630138aa

And here is the template structure:

http://pastebin.com/m5d6383a2

It works fine for the first level of VARs as well as everything inside
'month_loop', but it fails on 'uri_loop' with the following error:

[Sat Sep 19 14:43:24 2009] [error] PerlRun: `HTML::Template->output() :
fatal error in loop output : HTML::Template->output() : fatal error in
loop output : HTML::Template::param() : attempt to set parameter
'uri_loop' with a scalar - parameter is not a TMPL_VAR! at
/usr/local/libdata/perl5/site_perl/HTML/Template.pm line 3068\n at
/usr/local/libdata/perl5/site_perl/HTML/Template.pm line 3069\n at
/blogsum/index.cgi line 63\n'

The structure looks clean to me, so I'm not sure what I might be
overlooking.  Any suggestions?

Thanks,

-- 
Jason Dixon
DixonGroup Consulting
http://www.dixongroup.net/

Re: [htmltmpl] Data -> template (brain -> Perl)

[Sam T. <sa...@tr...>]

On Fri, Sep 11, 2009 at 11:06 AM, Robert <si...@gm...> wrote:

> I am using XML::Simple to get some "simple" XML data.
>
> $template->param( DATA => sub {
>        for my $list ( @{ $data->{list} } ) {
>            print "<p>$list->{name}[0]</p><p>$list->{description}[0]</p>";
>        }
>    }
> );
>
> That prints the data to the template at the top...it doesn't go into the
> DATA var. Do I need to do the for loop outside of the $template-param?
>

Don't print() the data, instead build up a string and return() it.

-sam

Re: [htmltmpl] Data -> template (brain -> Perl)

[Robert <si...@gm...>]

On Fri, 11 Sep 2009 11:12:57 -0400, Brad Baxter wrote:

> Bob,
> 
> You need to 'return' the data rather than 'print'ing it.
> 
> Brad
> 

Yup, figured that out about 2 minutes after I posted. :-\

Bob

Re: [htmltmpl] Data -> template (brain -> Perl)

[Brad B. <bm...@ma...>]

Bob,

You need to 'return' the data rather than 'print'ing it.

Brad

On Fri, Sep 11, 2009 at 11:06 AM, Robert <si...@gm...> wrote:
> I am using XML::Simple to get some "simple" XML data.
>
> $template->param( DATA => sub {
>        for my $list ( @{ $data->{list} } ) {
>            print "<p>$list->{name}[0]</p><p>$list->{description}[0]</p>";
>        }
>    }
> );
>
> That prints the data to the template at the top...it doesn't go into the
> DATA var. Do I need to do the for loop outside of the $template-param?
>
> Bob
>
>
> ------------------------------------------------------------------------------
> 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
>



-- 
Brad Baxter
----------------------------------------------------------------------

[htmltmpl] Data -> template (brain -> Perl)

[Robert <si...@gm...>]

I am using XML::Simple to get some "simple" XML data.

$template->param( DATA => sub {
        for my $list ( @{ $data->{list} } ) {
            print "<p>$list->{name}[0]</p><p>$list->{description}[0]</p>";
        }
    }
);

That prints the data to the template at the top...it doesn't go into the 
DATA var. Do I need to do the for loop outside of the $template-param?

Bob

Re: [htmltmpl] ANNOUNCE: Dada Mail 3.0 Released

[Robert H <si...@gm...>]

On 6/25/08 4:36 AM, Justin Simoni wrote:
> Thought people may be interested in this - this is the first Major (2 -
>   >  3) release of the program since 2000. Not to say I've been
> lollygagging for that long or anythin'. The, "Advanced Email
> Templating System" fancy-talk is HTML::Template in action.
>

Very nice...I am currently running a mailman listserv. Would there be 
any issues in running Dada Mail on the same server?

Also, would there be a benefit in my moving off of mailman to Dada Mail?

Bob

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
>

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
>

[htmltmpl] HTML::Template - assessed on perlmonks

[Terrence B. <sch...@gm...>]

In light of Terence Parr's paper
<http://www.cs.usfca.edu/~parrt/papers/mvc.templates.pdf>,
I've made a number of comments which have included HTML::Template:

 - it's not entangled <http://perlmonks.org/?node_id=785454>
- push-style templating and large files <http://perlmonks.org/?node_id=785419>

-- metaperl

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

[Roger B. W. <ro...@fi...>]

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;

[htmltmpl] Setting a variable from within a template?

[Stuart M. <st...@st...>]

Is there any way to set a variable within a template?

I'm looking to do something similar to

<TMPL_SETVAR TITLE="My Page's Title">
<TMPL_INCLUDE 'header.tmpl'>

To include a header template that has all the <HEAD> tags in (amongst
other stuff).

I can't see any way to do this - except possibly using some cunning
stuff with HTML::Template::Expr, and even then it's not clear exactly
how I'd do it.

I'm prepared to write some kind of patch myself that would do it, but
I thought it was worth checking if there was an existing method I'd
overlooked. I've tried searching the mailing list, but no joy.
(Apologies if I missed something)

Stuart Moore

Re: [htmltmpl] Writting a Test::More for HTML::Template

[Jason P. <ja...@jo...>]

I've heard good things about HTML::Template::Dumper:

http://search.cpan.org/~tmurray/HTML-Template-Dumper-0.1/lib/HTML/Template/Dumper.pm

- Jason

Matias Alejo Garcia wrote:
> 
> Hello,
> 
> I am writing some tests for a web site. I would like to check that all 
> parameters in a given template have been set to a value (or to undef).
> 
> I wonder is anyone could give me a lead about how to implement this in a 
> good way. Thanks a lot!
> 
> matías
> 
> -- 
> Ing. Matías Alejo García
> Gerente de Producto Confronte.com
> Clarín Global
> http://confronte.com | http://blog.matiu.com.ar | +54(11) 4546-5397
> 
> 
> ------------------------------------------------------------------------
> 
> ------------------------------------------------------------------------------
> Enter the BlackBerry Developer Challenge  
> This is your chance to win up to $100,000 in prizes! For a limited time, 
> vendors submitting new applications to BlackBerry App World(TM) will have 
> the opportunity to enter the BlackBerry Developer Challenge. See full prize 
> details at: http://p.sf.net/sfu/blackberry
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> Html-template-users mailing list
> Htm...@li...
> https://lists.sourceforge.net/lists/listinfo/html-template-users