On Mon, 3 Jan 2005 16:06:42 -0600, [EMAIL PROTECTED]
>
> while (@row = $sth->fetchrow_array())
> {
> Tr( td( [EMAIL PROTECTED] ));
> }
>
> );
>
> $sth->finish();
There are a couple of things going on here...fetchrow_array returns a
normal array--unlike selectall_arrayref, which returns a reference--so
you need @row, not [EMAIL PROTECTED] The logic also gets a little more complex
than I usually have luck getting CGI.pm built-in functions to deal
with. For instance, you've put the closing paren on the table before
the while loop, so your Tr(td(..is hanging in space. print and
old-fashioned HTML are probably going to be your friends here.
I would do something like this:
<snippet>
print "HTML for your table headers" ;
while (@row = $sth->fetchrow_array) {
print "<tr>", map {"<td>$_ </td>"} @row, "</tr>\n"
# or:
# print "<tr>", map {defined $_ ? "<td>$_ </td>" :
"<td>(null)</td>"} @row, "</tr>\n" ;
}
print "</table>\n" ;
</snippet>
HTH,
--jay
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
