version 1.152, 2006/02/04 20:03:30
|
version 1.153, 2006/02/05 18:49:47
|
Line 1873 sub execute_SQL_request {
|
Line 1873 sub execute_SQL_request {
|
my ($dbh,$request)=@_; |
my ($dbh,$request)=@_; |
# &Apache::lonnet::logthis($request); |
# &Apache::lonnet::logthis($request); |
my $sth = $dbh->prepare($request); |
my $sth = $dbh->prepare($request); |
if (!$sth) |
if (!$sth) { |
{ die $dbh->errstr . " SQL: $request"; } |
die($dbh->errstr . " SQL: $request"); |
|
} |
$sth->execute(); |
$sth->execute(); |
my $row = $sth->fetchrow_arrayref(); |
my $row = $sth->fetchrow_arrayref(); |
if (ref($row) eq 'ARRAY' && scalar(@$row)>0) { |
if (ref($row) eq 'ARRAY' && scalar(@$row)>0) { |