Hi,
I'm just getting started with Embperl and I'm running into a problem
with an auto table. I'm accessing an Oracle database table with nine
columns. The header is getting printed out OK (ie, all nine are there)
but I'm only getting the first three columns of data. This is pretty
much taken from the example in the documentation, so I figure it has
to be something dumb that I'm not seeing.
Here's the code:
[$ var $req $sth $head $dat $]
[-
$req = shift;
$sth = $req->{dbh}->prepare("SELECT * FROM school");
$sth->execute;
$head = $sth->{NAME};
$dat = $sth->fetchall_arrayref;
-]
<table>
<tr><th>[+ $head->[$col] +]</th></tr>
<tr><td>[+ $dat->[$row][$col] +]</td></tr>
</table>
Any help would be apreciated.
Mitchell Surface
Linux System Administator
Fort Wayne Newspapers
219-461-8292 Voice
219-461-8445 FAX
[EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
