--- loncom/homework/grades.pm	2003/09/30 06:35:20	1.130.2.1.2.7
+++ loncom/homework/grades.pm	2003/10/13 22:36:59	1.130.2.1.2.8
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.130.2.1.2.7 2003/09/30 06:35:20 albertel Exp $
+# $Id: grades.pm,v 1.130.2.1.2.8 2003/10/13 22:36:59 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3917,6 +3917,18 @@ SCANTRONFORM
     
     $navmap->untieHashes();
 }
+
+sub scantron_upload_scantron_data {
+    my ($r)=@_;
+    $r->print(&Apache::loncommon::coursebrowser_javascript($ENV{'request.role.domain'}));
+    $r->print(&Apache::loncommon::selectcourse_link('rules',
+			  'courseid','domain'));
+    $r->print("Course: <input name='courseid' type='text'/>");
+    $r->print("Domain: <input name='domain' type='text'/>");
+
+    return '';
+
+}
 #-------- end of section for handling grading scantron forms -------
 #
 #-------------------------------------------------------------------
@@ -4144,7 +4156,6 @@ sub handler {
 		delete($perm{'mgr'});
 	    }
 	}
-
 	if ($command eq 'submission' && $perm{'vgr'}) {
 	    ($ENV{'form.student'} eq '' ? &listStudents($request) : &submission($request,0,0));
 	} elsif ($command eq 'pickStudentPage' && $perm{'vgr'}) {
@@ -4188,6 +4199,8 @@ sub handler {
 	    $request->print(&scantron_validate_file($request));
 	} elsif ($command eq 'scantron_process' && $perm{'mgr'}) {
 	    $request->print(&scantron_process_students($request));
+	} elsif ($command eq 'scantronupload' && &Apache::lonnet::allowed('usc',$ENV{'request.role.domain'})) {
+	    $request->print(&scantron_upload_scantron_data($request));
 	} elsif ($command) {
 	    $request->print("Access Denied");
 	}