punch_card_don has asked for the wisdom of the Perl Monks concerning the following question:
Monday Monks,
and in the template
Forget that fear of gravity,
Get a little savagery in your life.
Why isn't my hash passed to TT for processing? When I run this, I get one iteration of the template html and with no values inserted.
In the script (snippet):
use DBI; use Template; #get users list from database $sql = "SELECT user_id, ufname, ulname FROM users"; $sth = $dbh->prepare($sql) or die("Could not prepare!" . $dbh->errstr) +; $sth->execute() or die("Could not execute!" . $dbh->errstr); # build data structure while (($user_id, $ufname, $ulname) = $sth->fetchrow_array()) { $data{$user_id} = { ufname => $ufname, ulname => $ulname } } $sth->finish; #prep variables for TT $vars = { data => %data, today => $today }; $template_file = "./template/my_file.htm"; #process file $template->process($template_file, $vars);
and in the template
Call list for [% today %] <p> [% FOREACH user IN data %] Be sure to call [% user.ulname %], [% user.ufname %] [% END %]
I suspect there's something wrong with the way I'm passing the data hash?
Thanks.
updated for typo in code unrelated to question
Forget that fear of gravity,
Get a little savagery in your life.
Back to
Seekers of Perl Wisdom