loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.203, 2018/03/11 12:44:22	version 1.204, 2018/03/13 16:48:18
Line 1677 sub get_problem_statistics {	Line 1677 sub get_problem_statistics {
#	#
$request = 'SELECT MAX(tries),MIN(tries) FROM '.$stats_table.	$request = 'SELECT MAX(tries),MIN(tries) FROM '.$stats_table.
' WHERE awarded>0';	' WHERE awarded>0';
if (defined($time_requirements)) {
$request .= ' AND '.$time_requirements;
}
my ($max,$min) = &execute_SQL_request($dbh,$request);	my ($max,$min) = &execute_SQL_request($dbh,$request);
#	#
$request = 'SELECT SUM(awarded) FROM '.$stats_table;	$request = 'SELECT SUM(awarded) FROM '.$stats_table;
if (defined($time_requirements)) {
$request .= ' AND '.$time_requirements;
}
my ($Solved) = &execute_SQL_request($dbh,$request);	my ($Solved) = &execute_SQL_request($dbh,$request);
#	#
$request = 'SELECT SUM(awarded) FROM '.$stats_table.	$request = 'SELECT SUM(awarded) FROM '.$stats_table.
" WHERE solved='correct_by_override'";	" WHERE solved='correct_by_override'";
if (defined($time_requirements)) {
$request .= ' AND '.$time_requirements;
}
my ($solved) = &execute_SQL_request($dbh,$request);	my ($solved) = &execute_SQL_request($dbh,$request);
#	#
$Solved -= $solved;	$Solved -= $solved;