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?

Reply via email to