loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.545, 2008/12/31 20:41:35	version 1.547, 2009/01/16 02:31:49
Line 7584 sub grade_student_bubbles {	Line 7584 sub grade_student_bubbles {
'grade_domain' => $udom,	'grade_domain' => $udom,
'grade_courseid'=> $env{'request.course.id'},	'grade_courseid'=> $env{'request.course.id'},
'grade_symb' => $resource->symb(),	'grade_symb' => $resource->symb(),
'code' => $scancode);	'CODE' => $scancode);
my $result=&ssi_with_retries($resource->src(),$ssi_retries,%form);	my $result=&ssi_with_retries($resource->src(),$ssi_retries,%form);
return 'ssi_error' if ($ssi_error);	return 'ssi_error' if ($ssi_error);
last if (&Apache::loncommon::connection_aborted($r));	last if (&Apache::loncommon::connection_aborted($r));
Line 7778 sub checkscantron_results {	Line 7778 sub checkscantron_results {
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Scantron/Submissions Comparison Status',	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Scantron/Submissions Comparison Status',
'Progress of Scantron Data/Submission Records Comparison',$count,	'Progress of Scantron Data/Submission Records Comparison',$count,
'inline',undef,'checkscantron');	'inline',undef,'checkscantron');
my ($username,$domain,$uname,$started);	my ($username,$domain,$started);

&Apache::grades::scantron_get_maxbubble(); # Need the bubble lines array to parse.	&Apache::grades::scantron_get_maxbubble(); # Need the bubble lines array to parse.