loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.528.2.6, 2008/12/31 21:08:09	version 1.528.2.8, 2009/01/06 21:58:06
Line 2135 KEYWORDS	Line 2135 KEYWORDS
' )</span>   ';	' )</span>   ';
my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record);	my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record);
if (@$files) {	if (@$files) {
$lastsubonly.='<br /><span class="LC_warning">'.&mt('Like all files provided by users, this file may contain virusses').'</span><br />';	$lastsubonly.='<br /><span class="LC_warning">'.&mt('Like all files provided by users, this file may contain viruses').'</span><br />';
my $file_counter = 0;	my $file_counter = 0;
foreach my $file (@$files) {	foreach my $file (@$files) {
$file_counter++;	$file_counter++;
Line 7933 sub checkscantron_results {	Line 7933 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.