DBI, HTML::Template and loops

[Anonymous Monk]

Hello Monks,

I am new to perl, and I have been taking pieces and parts from other scripts I have found in an effort to try and get comfortable with perl. I am trying to query a database and display the information that I get on a webpage using HTML::Template.

Here is what I am using to get the data:

my $sth = $dbh->prepare( "SELECT alpha FROM main WHERE alpha LIKE '%$s
+earch_ip %'" );
$sth->execute();
my ($complete_match) = $sth->fetchrow_array;

That gets my information out of the database, but how do I get that into HTML::Template? I have tried this:

$template->param(cm => $complete_match);
print $CGI->header( );
print $CGI->title("returned data!");
print $template->output;

That gives me the follwoing error:

HTML::Template::param() : attempt to set parameter 'cm' with a scalar - parameter is not a TMPL_VAR! at /var/www/asd/www.pl line 60

If someone could point me in the right direction, it would be much appreciated.

Thank you very much.

[bradcathey]

$complete_match must be a ref to a AoH (array of hashes) for a <tmpl_loop>

Consider:

my $complete_match = $sth->fetchall_arrayref({});
$template->param(someloop=>$complete_match);

HTML:
<tmpl_loop someloop>
   <tmpl_var column1><tmpl_var column 2> etc...
</tmpl_loop>

Update: That error can also be caused by naming your form element the same name as your tmpl_loop name. They have to be different.

[borisz]

Your template must include

<tmpl_var cm>
...

also take a look at placeholders for you SQL statements and at the die_on_bad_params option for HTML::Template

[ghenry]

Yes, for placeholders see:

• Create Better Perl and SQL with Placeholders
• The Phrasebook Design Pattern
• Google search results for: placeholders sql perl

HTH.