Help for this page

Select Code to Download


  1. or download this
    my $response = HTML::Template->new(
      filename => $filename,
    ...
    my $sth = exec_query($sqlquery) or die("Wacka!!");
    my $arrayref = $sth->fetchall_arrayref({});
    $response->param(LOOPTEST => $arrayref);
    
  2. or download this
    <!--BEGIN Dynamic data table-->
    <TMPL_UNLESS NAME=LOOPTEST>
    ...
      </TMPL_IF>
    </TMPL_LOOP>
    <!--END Dynamic data table-->