--- loncom/homework/grades.pm 2004/09/14 14:13:08 1.210
+++ loncom/homework/grades.pm 2004/09/24 20:32:02 1.213
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.210 2004/09/14 14:13:08 albertel Exp $
+# $Id: grades.pm,v 1.213 2004/09/24 20:32:02 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -4647,9 +4647,10 @@ SCANTRONFORM
$form{'CODE'}=$scan_record->{'scantron.CODE'};
}
my $result=&Apache::lonnet::ssi($resource->src(),%form);
-
+ if (&Apache::loncommon::connection_aborted($r)) { last; }
}
$completedstudents{$uname}={'line'=>$line};
+ if (&Apache::loncommon::connection_aborted($r)) { last; }
} continue {
&Apache::lonnet::delenv('form.counter');
&Apache::lonnet::delenv('scantron\.');
@@ -4719,7 +4720,8 @@ sub scantron_upload_scantron_data_save {
}
return '';
}
- $r->print("Doing upload to ".$ENV{'form.courseid'}."
");
+ my %coursedata=&Apache::lonnet::coursedescription($ENV{'form.domainid'}.'_'.$ENV{'form.courseid'});
+ $r->print("Doing upload to ".$coursedata{'description'}."
");
my $home=&Apache::lonnet::homeserver($ENV{'form.courseid'},
$ENV{'form.domainid'});
my $fname=$ENV{'form.upfile.filename'};
@@ -5113,8 +5115,7 @@ sub send_header {
sub send_footer {
my ($request)= @_;
- $request->print('