--- loncom/interface/loncoursedata.pm 2005/11/11 23:23:24 1.151 +++ loncom/interface/loncoursedata.pm 2006/02/05 18:49:47 1.153 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncoursedata.pm,v 1.151 2005/11/11 23:23:24 albertel Exp $ +# $Id: loncoursedata.pm,v 1.153 2006/02/05 18:49:47 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1873,6 +1873,9 @@ sub execute_SQL_request { my ($dbh,$request)=@_; # &Apache::lonnet::logthis($request); my $sth = $dbh->prepare($request); + if (!$sth) { + die($dbh->errstr . " SQL: $request"); + } $sth->execute(); my $row = $sth->fetchrow_arrayref(); if (ref($row) eq 'ARRAY' && scalar(@$row)>0) { @@ -2212,7 +2215,7 @@ sub score_stats { # &Apache::lonnet::logthis('request = '.$/.$request); $request = 'SELECT SUM(weight) FROM '.$weight_table. - ' WHERE ('.$symb_restriction.')'; + ' AS a WHERE ('.$symb_restriction.')'; my ($max_possible) = &execute_SQL_request($dbh,$request); # &Apache::lonnet::logthis('request = '.$/.$request); return($min,$max,$ave,$std,$count,$max_possible);