IF in a loop using HTML::Template

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks!
Using CGI::Application and I am trying to have an IF inside of the "tml_loop" and its giving me this error:

 There has been an error: HTML::Template : Attempt to set nonexistent 
+parameter 'test' - this parameter name doesn't match any declarations
+ in the template file : (die_on_bad_params => 1)
[download]

I am trying to only show the buttons option if this sub named my_calls sets the value of "test" to true or "1". I dont understand why I am getting the error since I have the <TMPL_IF NAME="test"> tag in the .tmpl file. Could it be that the data coming from the database to populate the "data" tag loop is not yet ready?
The sample part of the Perl file

# temp.pl
...
sub my_calls {

    my $self  = shift;
    my $q     = $self->query;
    my $name  = $q->param('name');
    
    my $sql  = "select * from my_taable where name = ?";

    my $alldata = $self->_get_data($sql, $name);
    my $template = $self->load_tmpl('mytemp.tmpl');
       $template->param('data', $alldata );
    
       $template->param('test' => 1);
       
    return $template->output();
    
} 
...
[download]

And the portion of the .tmpl file

# mytemp.tmpl
...
<form action="" method="post">
  <tmpl_loop name=data>
  
    <tr>
      <td align="center">
          <input type="checkbox" class="checkbox" name="confirm" value
+="n" <tmpl_var name=checked>>&nbsp;
      </td>
      <td align="center">
        <span id="id_<tmpl_var name=order>"> <tmpl_var name=number> </
+span>
      </td>
          
      <TMPL_IF NAME="test"> 
        <table border="1" width="170" cellspacing="0" cellpadding="0">
          <tr>
            <td>
              <input name="btnSave_<tmpl_var name=id>"   type="button"
+ value="Save"   id="btnSave_<tmpl_var name=id>"">
              <input name="btnEdit_<tmpl_var name=id>"   type="button"
+ value="Edit"   id="btnEdit_<tmpl_var name=id>"">
              <input name="btnDelete_<tmpl_var name=id>" type="button"
+ value="Delete" id="btnDelete_<tmpl_var name=id>"">           
            </td>
          </tr>
        </table>
     </TMPL_IF>
     
      </td>
    </tr>

  </tmpl_loop>
</form>
...
[download]

Comment on IF in a loop using HTML::Template Select or Download Code

Replies are listed 'Best First'.
Re: IF in a loop using HTML::Template by kielstirling (Scribe) on Mar 20, 2013 at 19:58 UTC
In your template when you look for the param 'test' you are in the data loop. tmpl_loops take a arrayref of hashref ie, `$tmpl->param(data=>[{test=>1, foo=>1, bar=>1}]);` [download] My understanding is that you can't refer to params outside of the loop. Like you are doing with the test param. -Kiel	[reply] [d/l]
Re^2: IF in a loop using HTML::Template by Anonymous Monk on Mar 20, 2013 at 20:35 UTC
Is there any documentation on this issue somewhere?	[reply]
Re^3: IF in a loop using HTML::Template by kielstirling (Scribe) on Mar 20, 2013 at 20:48 UTC
From the POD ... Inside a <TMPL_LOOP>, the only variables that are usable are the ones from the <TMPL_LOOP>. The variables in the outer blocks are not visible within a template loop. For the computer-science geeks among you, a <TMPL_LOOP> introduces a new scope much like a perl subroutine call. If you want your variables to be global you can use global_vars option to new() described below. HTML::Template -Kiel	[reply]
Re^4: IF in a loop using HTML::Template by Anonymous Monk on Mar 20, 2013 at 21:40 UTC
Re^5: IF in a loop using HTML::Template by saberworks (Curate) on Mar 21, 2013 at 00:41 UTC
Re^4: IF in a loop using HTML::Template by Anonymous Monk on Mar 21, 2013 at 01:54 UTC
Re^4: IF in a loop using HTML::Template by Anonymous Monk on Mar 21, 2013 at 12:40 UTC
Re: IF in a loop using HTML::Template by Anonymous Monk on Mar 20, 2013 at 19:13 UTC
I dont understand why I am getting the error since I have the `TMPL_IF NAME="test">` tag in the .tmpl file. Maybe you're loading the wrong template, who knows, so turn on debugging, and figure it out #!/usr/bin/perl -- use strict; use warnings; use HTML::Template; my $template = HTML::Template->new( die_on_bad_params => 1, #~ scalarref => \'<tmpl_if spectacles>glasses<tmpl_else>stars</tmp +l_if> ', scalarref => \'<tmpl_if name="spectacles">glasses<tmpl_else>stars< +/tmpl_if> ', debug => 1, #~ stack_debug => 1, ); $template->param( spectacles => 0 ); print $template->output; $template->param( spectacles => 1 ); print $template->output; print "\n"; __END__ ### HTML::Template Debug ### In _parse: ### HTML::Template Debug ### /fake/path/for/non/file/template : line 1 + : TMPL_IF spectacles start ### HTML::Template Debug ### /fake/path/for/non/file/template : line 1 + : ELSE ### HTML::Template Debug ### /fake/path/for/non/file/template : line 1 + : /TMPL_IF end ### HTML::Template Debug ### In output ### HTML::Template Debug ### In output stars glasses [download] See Basic debugging checklist, brian's Guide to Solving Any Perl Problem	[reply] [d/l] [select]
Re^2: IF in a loop using HTML::Template by Anonymous Monk on Mar 20, 2013 at 19:20 UTC
I don't understand your point, definitely not loading the wrong template, using CGI::Application for this as well. You can see on the code that "test" has been declared in the .tmpl and called in the perl file. The template gets called as: `my $template = $self->load_tmpl('mytemp.tmpl');` [download]	[reply] [d/l]
Re^3: IF in a loop using HTML::Template by Anonymous Monk on Mar 20, 2013 at 19:24 UTC
I don't understand your point, Turn on debugging , and figure out where the problem is. The code you posted is not complete, I can't run it and figure it out for you.	[reply]
Re^4: IF in a loop using HTML::Template by Anonymous Monk on Mar 20, 2013 at 19:49 UTC