--- loncom/interface/loncoursedata.pm 2005/11/11 23:23:24 1.151 +++ loncom/interface/loncoursedata.pm 2006/02/04 20:03:30 1.152 @@ -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.152 2006/02/04 20:03:30 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1873,6 +1873,8 @@ 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 +2214,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);