Hello,
I am trying to do the following:
================================================================
my $sth = $dbh->prepare( "describe $table" );
$sth->execute;
my $i = 0;
while ( my @row = $sth->fetchrow_array() ) {
my %column = ( columnName => $row[0]);
push @columns, \%column;
}
my $sql = "SELECT * FROM table";
my $sth = $dbh->prepare($sql);
my $data = [];
$sth->execute;
while (my $row = $sth->fetchrow_hashref) {
push @$data, $row
}
$sth->finish;
$dbh->disconnect;
#### Load up the template for viewing tables
my $tmpl = new HTML::Template( filename => "$location/templates/browse.html",
die_on_bad_params => 0 );
$tmpl->param( data => \@data );
$tmpl->param( columns => \@columns );
================================================================
with this in my tmpl:
================================================================
<tmpl_loop name="columns">
<td bgcolor="#dee3e7"><font color="#474791" size="2"
face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular"><tmpl_var
name="columnName"></font></td>
</tmpl_loop>
</tr>
<tmpl_loop name="data">
<tr>
<tmpl_loop name="columns">
<td bgcolor="#dee3e7"><font color="#474791" size="2"
face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular"><tmpl_var name="<tmpl_var
name="columnName">"></font></td>
</tmpl_loop>
</tr>
</tmpl_loop>
================================================================
It errors with
HTML::Template->new() : Syntax error in <TMPL_*> tag at
/var/www/html/development/sqlmanager/version0.1/templates/browse.html : 123. at
/usr/lib/perl5/site_perl/5.6.0/HTML/Template.pm line 2143.
any ideas?