--- loncom/homework/grades.pm 2004/09/14 14:13:08 1.210
+++ loncom/homework/grades.pm 2004/09/16 17:47:23 1.212
@@ -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.212 2004/09/16 17:47:23 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -4719,7 +4719,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 +5114,7 @@ sub send_header {
sub send_footer {
my ($request)= @_;
- $request->print('