--- loncom/homework/grades.pm 2004/03/12 18:03:38 1.180 +++ loncom/homework/grades.pm 2004/03/19 03:58:06 1.182 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.180 2004/03/12 18:03:38 albertel Exp $ +# $Id: grades.pm,v 1.182 2004/03/19 03:58:06 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -4204,7 +4204,8 @@ sub scantron_upload_scantron_data { my ($r)=@_; $r->print(&Apache::loncommon::coursebrowser_javascript($ENV{'request.role.domain'})); my $select_link=&Apache::loncommon::selectcourse_link('rules','courseid', - 'domainid'); + 'domainid', + 'coursename'); my $domsel=&Apache::loncommon::select_dom_form($ENV{'request.role.domain'}, 'domainid'); my $default_form_data=&defaultFormData(&get_symb_and_url($r,1)); @@ -4221,12 +4222,14 @@ sub scantron_upload_scantron_data {
UPLOAD @@ -4235,11 +4238,21 @@ UPLOAD sub scantron_upload_scantron_data_save { my($r)=@_; + my ($symb,$url)=&get_symb_and_url($r,1); + my $doanotherupload= + '