--- loncom/homework/grades.pm 2008/12/24 06:31:41 1.542
+++ loncom/homework/grades.pm 2008/12/31 18:09:57 1.544
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.542 2008/12/24 06:31:41 raeburn Exp $
+# $Id: grades.pm,v 1.544 2008/12/31 18:09:57 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2094,7 +2094,7 @@ KEYWORDS
' ) ';
my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record);
if (@$files) {
- $lastsubonly.='
'.&mt('Like all files provided by users, this file may contain virusses').'
';
+ $lastsubonly.='
'.&mt('Like all files provided by users, this file may contain viruses').'
';
my $file_counter = 0;
foreach my $file (@$files) {
$file_counter++;
@@ -7506,12 +7506,6 @@ SCANTRONFORM
}
$completedstudents{$uname}={'line'=>$line};
- my $lastpos = $env{'form.scantron_maxbubble'}*$scantron_config{'Qlength'};
- my $studentdata = substr($line,$scantron_config{'Qstart'}-1,$lastpos);
- chomp($studentdata);
- $studentdata =~ s/\r$//;
- my $studentrecord = '';
- my $counter = -1;
if ($env{'form.verifyrecord'}) {
my $lastpos = $env{'form.scantron_maxbubble'}*$scantron_config{'Qlength'};
my $studentdata = substr($line,$scantron_config{'Qstart'}-1,$lastpos);
@@ -7566,6 +7560,7 @@ SCANTRONFORM
}
}
}
+ if (&Apache::loncommon::connection_aborted($r)) { last; }
} continue {
&Apache::lonxml::clear_problem_counter();
&Apache::lonnet::delenv('scantron\.');