[cgiapp] Need a help...

[Sabherwal, Balvinder (MBS)]

Guru's

Can someone pls give a hand to rewrite the following pice of the code with
the help of CGI::Application. I am trying to print a table on the webpage.

Thanks
Bal.


if ( $h == 1) {

        foreach my $kv (@cols) {

                print<<"_END_";
                <TD>
                <P align=center><STRONG>$kv &nbsp;</STRONG></P></TD>
                _END_
                ;
                $h++;
                }
                print<<"_END_";
                </TR>
                _END_
                ;
                foreach my $row (@$data) {
                    my @cols = keys(%$row);
                    foreach (@cols) {
                        print<<"_END_";
                        <TD>
                        <P align=left>$row->{$_} &nbsp;</P></TD>
                        _END_
                        ;
                   }
                  print<<"_END_";
                  </TR>
                  _END_
                  ;
             }
        print<<"_END_";
        </TR>
        _END_
        ;
}

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]