Re: DBI

[Andrew Gaffney]

I had a good reason for doing that. I have information that I need to get from 2 separate 
lines in the db. I wasn't able to write a query that could join them together.

Tim Johnson wrote:
Another way to do it is:

while($ref = $sth->fetchrow_hashref){
   do something...
}
-----Original Message-----
From: Andrew Gaffney [mailto:[EMAIL PROTECTED] 
Sent: Tuesday, October 28, 2003 10:00 PM
To: [EMAIL PROTECTED]
Subject: Re: DBI

Andrew Gaffney wrote:

Is there anything wrong with this code?

my $sth = $dbh->prepare($query);
$sth->execute;
my $ref = $sth->fetchrow_hashref;
while($ref) {
 $totalhrs += $ref->{quantity};
 my $tmpdate = $ref->{id};
 $tmpdate =~ s/(\d{4})(\d{2})(\d{2})\d+/$2-$3-$1/;
 print
"<tr><td>$tmpdate</td><td>$ref->{item}</td><td>$ref->{quantity}</td>";
 $ref = $sth->fetchrow_hashref;
 if($ref->{id} eq $lastinvid) {
   print "<td>$ref->{fname} $ref->{lname}</td></tr>\n";
   $ref = $sth->fetchrow_hashref;
 } else {
   print "<td>N/A</td></tr>\n";
 }
 $lastinvid = $ref->{id};
}
I get this error over and over again in my Apache log:

DBD::mysql::st fetchrow_hashref failed: fetch() without execute() at
/home/httpd/cgi-bin/report-myflights.pl line 38.
[Tue Oct 28 22:13:06 2003] [error] 17457: ModPerl::PerlRun: 
DBD::mysql::st fetchrow_hashref failed: fetch() without execute() at 
/home/httpd/cgi-bin/report-myflights.pl line 38.

It will cycle through the loop like 10 times and then die. I get 
output
and an Apache error message all in one page. BTW, line 38 is the first 
'$ref = $sth->fetchrow_hashref' in the while loop.


Nevermind, it was my own fault. It was running out of input. I changed that
line to:
if(!($ref = $sth->fetchrow_hashref)) {
   last;
}


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