[BACK]Return to grades.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/grades.pm between versions 1.130.2.1.2.7 and 1.130.2.1.2.8

version 1.130.2.1.2.7, 2003/09/30 06:35:20 version 1.130.2.1.2.8, 2003/10/13 22:36:59
Line 3917  SCANTRONFORM Line 3917  SCANTRONFORM
           
     $navmap->untieHashes();      $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 -------  #-------- end of section for handling grading scantron forms -------
 #  #
 #-------------------------------------------------------------------  #-------------------------------------------------------------------
Line 4144  sub handler { Line 4156  sub handler {
  delete($perm{'mgr'});   delete($perm{'mgr'});
     }      }
  }   }
   
  if ($command eq 'submission' && $perm{'vgr'}) {   if ($command eq 'submission' && $perm{'vgr'}) {
     ($ENV{'form.student'} eq '' ? &listStudents($request) : &submission($request,0,0));      ($ENV{'form.student'} eq '' ? &listStudents($request) : &submission($request,0,0));
  } elsif ($command eq 'pickStudentPage' && $perm{'vgr'}) {   } elsif ($command eq 'pickStudentPage' && $perm{'vgr'}) {
Line 4188  sub handler { Line 4199  sub handler {
     $request->print(&scantron_validate_file($request));      $request->print(&scantron_validate_file($request));
  } elsif ($command eq 'scantron_process' && $perm{'mgr'}) {   } elsif ($command eq 'scantron_process' && $perm{'mgr'}) {
     $request->print(&scantron_process_students($request));      $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) {   } elsif ($command) {
     $request->print("Access Denied");      $request->print("Access Denied");
  }   }
Removed from v.1.130.2.1.2.7  
changed lines
  Added in v.1.130.2.1.2.8

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>