loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.90, 2003/09/26 19:23:14	version 1.92, 2003/09/30 12:09:48
Line 197 sub get_sequence_assessment_data {	Line 197 sub get_sequence_assessment_data {
my @Ids = $curRes->responseIds($part);	my @Ids = $curRes->responseIds($part);
$partdata{$part}->{'ResponseTypes'}= \@Responses;	$partdata{$part}->{'ResponseTypes'}= \@Responses;
$partdata{$part}->{'ResponseIds'} = \@Ids;	$partdata{$part}->{'ResponseIds'} = \@Ids;
	# Count how many responses of each type there are in this part
	foreach (@Responses) {
	$partdata{$part}->{$_}++;
	}
}	}
my $assessment = { title => $title,	my $assessment = { title => $title,
src => $src,	src => $src,
Line 1864 sub get_problem_statistics {	Line 1868 sub get_problem_statistics {
$stats_table);	$stats_table);
my ($Solved) = &execute_SQL_request($dbh,'SELECT COUNT(tries) FROM '.	my ($Solved) = &execute_SQL_request($dbh,'SELECT COUNT(tries) FROM '.
$stats_table.	$stats_table.
" WHERE solved='correct_by_student'");	" WHERE solved='correct_by_student' OR solved='correct_by_scantron'");
my ($solved) = &execute_SQL_request($dbh,'SELECT COUNT(tries) FROM '.	my ($solved) = &execute_SQL_request($dbh,'SELECT COUNT(tries) FROM '.
$stats_table.	$stats_table.
" WHERE solved='correct_by_override'");	" WHERE solved='correct_by_override'");