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

Diff for /loncom/homework/grades.pm between versions 1.70 and 1.75

version 1.70, 2003/02/28 21:06:28 version 1.75, 2003/03/23 08:10:30
Line 32 Line 32
 # Year 2002  # Year 2002
 # June-August H.K. Ng  # June-August H.K. Ng
 # Year 2003  # Year 2003
 # February H.K. Ng  # February, March H.K. Ng
 #  #
   
 package Apache::grades;  package Apache::grades;
Line 209  sub jscriptNform { Line 209  sub jscriptNform {
     $jscript.= '<form action="/adm/grades" method="post" name="onestudent">'."\n".      $jscript.= '<form action="/adm/grades" method="post" name="onestudent">'."\n".
  '<input type="hidden" name="symb"    value="'.$symb.'" />'."\n".   '<input type="hidden" name="symb"    value="'.$symb.'" />'."\n".
  '<input type="hidden" name="url"     value="'.$url.'" />'."\n".   '<input type="hidden" name="url"     value="'.$url.'" />'."\n".
    '<input type="hidden" name="lastCmd" value="'.$ENV{'form.lastCmd'}.'" />'."\n".
    '<input type="hidden" name="lastSec" value="'.$ENV{'form.lastSec'}.'" />'."\n".
    '<input type="hidden" name="probTitle" value="'.$ENV{'form.probTitle'}.'" />'."\n".
  '<input type="hidden" name="command" value="submission" />'."\n".   '<input type="hidden" name="command" value="submission" />'."\n".
  '<input type="hidden" name="student" value="" />'."\n".   '<input type="hidden" name="student" value="" />'."\n".
  '<input type="hidden" name="userdom" value="" />'."\n".   '<input type="hidden" name="userdom" value="" />'."\n".
Line 237  sub verifyreceipt { Line 240  sub verifyreceipt {
   
     my $title.='<h3><font color="#339933">Verifying Submission Receipt '.      my $title.='<h3><font color="#339933">Verifying Submission Receipt '.
  $receipt.'</h3></font>'."\n".   $receipt.'</h3></font>'."\n".
  '<font size=+1><b>Resource: </b>'.$ENV{'form.url'}.'</font><br><br>'."\n";   '<font size=+1><b>Problem: </b>'.$ENV{'form.probTitle'}.'</font><br><br>'."\n";
   
     my ($string,$contents,$matches) = ('','',0);      my ($string,$contents,$matches) = ('','',0);
     my (undef,undef,$fullname) = &getclasslist('all','0');      my (undef,undef,$fullname) = &getclasslist('all','0');
Line 272  sub verifyreceipt { Line 275  sub verifyreceipt {
     return $string.&show_grading_menu_form($symb,$url);      return $string.&show_grading_menu_form($symb,$url);
 }  }
   
 #  
 # Pick student and page/sequence for manual grading  
   
   
 #--- This is called by a number of programs.  #--- This is called by a number of programs.
 #--- Called from the Grading Menu - View/Grade an individual student  #--- Called from the Grading Menu - View/Grade an individual student
 #--- Also called directly when one clicks on the subm button   #--- Also called directly when one clicks on the subm button 
Line 283  sub verifyreceipt { Line 282  sub verifyreceipt {
 sub listStudents {  sub listStudents {
     my ($request) = shift;      my ($request) = shift;
   
     my ($symb,$url) = &get_symb_and_url();      my ($symb,$url) = &get_symb_and_url($request);
     my $cdom      = $ENV{"course.$ENV{'request.course.id'}.domain"};      my $cdom      = $ENV{"course.$ENV{'request.course.id'}.domain"};
     my $cnum      = $ENV{"course.$ENV{'request.course.id'}.num"};      my $cnum      = $ENV{"course.$ENV{'request.course.id'}.num"};
     my $getsec    = $ENV{'form.section'} eq '' ? 'all' : $ENV{'form.section'};      my $getsec    = $ENV{'form.section'} eq '' ? 'all' : $ENV{'form.section'};
Line 305  sub listStudents { Line 304  sub listStudents {
     $result='<h3><font color="#339933">&nbsp;'.      $result='<h3><font color="#339933">&nbsp;'.
  $viewgrade.   $viewgrade.
     ' Submissions for a Student or a Group of Students</font></h3>'.      ' Submissions for a Student or a Group of Students</font></h3>'.
  '<table border="0"><tr><td colspan=3><font size=+1>'.      '<table border="0"><tr><td colspan=3><font size=+1>'.
     '<b>Resource: </b>'.$url.'</font></td></tr>'.$result;      '<b>Problem: </b>'.$ENV{'form.probTitle'}.'</font></td></tr>'.$result;
   
     $request->print(<<LISTJAVASCRIPT);      $request->print(<<LISTJAVASCRIPT);
 <script type="text/javascript" language="javascript">  <script type="text/javascript" language="javascript">
Line 356  LISTJAVASCRIPT Line 355  LISTJAVASCRIPT
  '<input type="hidden" name="response"    value="'.$ENV{'form.response'}.'" />'."\n".   '<input type="hidden" name="response"    value="'.$ENV{'form.response'}.'" />'."\n".
  '<input type="hidden" name="handgrade"   value="'.$ENV{'form.handgrade'}.'" /><br />'."\n".   '<input type="hidden" name="handgrade"   value="'.$ENV{'form.handgrade'}.'" /><br />'."\n".
  '<input type="hidden" name="showgrading" value="'.$ENV{'form.showgrading'}.'" /><br />'."\n".   '<input type="hidden" name="showgrading" value="'.$ENV{'form.showgrading'}.'" /><br />'."\n".
    '<input type="hidden" name="lastCmd"     value="'.$ENV{'form.lastCmd'}.'" />'."\n".
    '<input type="hidden" name="lastSec"     value="'.$ENV{'form.lastSec'}.'" />'."\n".
    '<input type="hidden" name="probTitle"   value="'.$ENV{'form.probTitle'}.'" />'."\n".
  '<input type="hidden" name="url"  value="'.$url.'" />'."\n".   '<input type="hidden" name="url"  value="'.$url.'" />'."\n".
  '<input type="hidden" name="symb" value="'.$symb.'" />'."\n".   '<input type="hidden" name="symb" value="'.$symb.'" />'."\n".
  'To '.lc($viewgrade).' a submission, click on the check box next to the student\'s name. Then '."\n".   'To '.lc($viewgrade).' a submission, click on the check box next to the student\'s name. Then '."\n".
Line 455  sub sub_page_js { Line 457  sub sub_page_js {
     my $request = shift;      my $request = shift;
     $request->print(<<SUBJAVASCRIPT);      $request->print(<<SUBJAVASCRIPT);
 <script type="text/javascript" language="javascript">  <script type="text/javascript" language="javascript">
   function updateRadio(radioButton,formtextbox,formsel,scores,weight) {      function updateRadio(formname,id,weight) {
      var pts = formtextbox.value;   var gradeBox = eval("formname.GD_BOX"+id);
      var resetbox =false;   var radioButton = eval("formname.RADVAL"+id);
      if (isNaN(pts) || pts < 0) {   var oldpts = eval("formname.oldpts"+id+".value");
         alert("A number equal or greater than 0 is expected. Entered value = "+pts);   var pts = checkSolved(formname,id) == 'update' ? gradeBox.value : oldpts;
         for (var i=0; i<radioButton.length; i++) {   gradeBox.value = pts;
            if (radioButton[i].checked) {   var resetbox = false;
       formtextbox.value = i;   if (isNaN(pts) || pts < 0) {
       resetbox = true;      alert("A number equal or greater than 0 is expected. Entered value = "+pts);
    }      for (var i=0; i<radioButton.length; i++) {
    if (radioButton[i].checked) {
       gradeBox.value = i;
       resetbox = true;
    }
       }
       if (!resetbox) {
    formtextbox.value = "";
       }
       return;
  }   }
  if (!resetbox) {  
    formtextbox.value = "";   if (pts > weight) {
       var resp = confirm("You entered a value ("+pts+
          ") greater than the weight for the part. Accept?");
       if (resp == false) {
    gradeBox.value = "";
    return;
       }
  }   }
  return;  
      }  
   
      if (pts > weight) {   for (var i=0; i<radioButton.length; i++) {
         var resp = confirm("You entered a value ("+pts+      radioButton[i].checked=false;
           ") greater than the weight for the part. Accept?");      if (pts == i && pts != "") {
         if (resp == false) {   radioButton[i].checked=true;
            formtextbox.value = "";      }
            return;   }
        }   updateSelect(formname,id);
    var stores = eval("formname.stores"+id);
    stores.value = "0";
     }      }
   
     for (var i=0; i<radioButton.length; i++) {      function writeBox(formname,id,pts) {
  radioButton[i].checked=false;   var gradeBox = eval("formname.GD_BOX"+id);
  if (pts == i) {   if (checkSolved(formname,id) == 'update') {
    radioButton[i].checked=true;      gradeBox.value = pts;
    } else {
       var oldpts = eval("formname.oldpts"+id+".value");
       gradeBox.value = oldpts;
       var radioButton = eval("formname.RADVAL"+id);
       for (var i=0; i<radioButton.length; i++) {
    radioButton[i].checked=false;
    if (i == oldpts) {
       radioButton[i].checked=true;
    }
       }
  }   }
    var stores = eval("formname.stores"+id);
    stores.value = "0";
    updateSelect(formname,id);
    return;
     }      }
     updateSelect(formsel);  
     scores.value = "0";  
   }  
   
   function writeBox(formrad,formsel,pts,scores) {      function clearRadBox(formname,id) {
     formrad.value = pts;   if (checkSolved(formname,id) == 'noupdate') {
     scores.value = "0";      updateSelect(formname,id);
     updateSelect(formsel,pts);      return;
     return;   }
   }   gradeSelect = eval("formname.GD_SEL"+id);
    for (var i=0; i<gradeSelect.length; i++) {
       if (gradeSelect[i].selected) {
    var selectx=i;
       }
    }
    var stores = eval("formname.stores"+id);
    if (selectx == stores.value) { return };
    var gradeBox = eval("formname.GD_BOX"+id);
    gradeBox.value = "";
    var radioButton = eval("formname.RADVAL"+id);
    for (var i=0; i<radioButton.length; i++) {
       radioButton[i].checked=false;
    }
    stores.value = selectx;
       }
   
   function clearRadBox(radioButton,formbox,formsel,scores) {      function checkSolved(formname,id) {
     for (var i=0; i<formsel.length; i++) {   if (eval("formname.solved"+id+".value") == "correct_by_student") {
  if (formsel[i].selected) {      alert("This problem has been graded correct by the computer. The score cannot be changed.");
     var selectx=i;      return "noupdate";
  }   }
    return "update";
     }      }
     if (selectx == scores.value) { return };  
     formbox.value = "";      function updateSelect(formname,id) {
     for (var i=0; i<radioButton.length; i++) {   var gradeSelect = eval("formname.GD_SEL"+id);
  radioButton[i].checked=false;   gradeSelect[0].selected = true;
    return;
     }      }
     scores.value = selectx;  
   }  
   
   function updateSelect(formsel) {  //=========== Check that a point is assigned for all the parts (essay grading only) ============
     formsel[0].selected = true;      function checksubmit(formname,val,total,parttot) {
     return;   document.SCORE.gradeOpt.value = val;
   }   if (val == "Save & Next") {
       for (i=0;i<=total;i++) {
    for (j=0;j<parttot;j++) {
       var partid = eval("formname.partid"+i+"_"+j+".value");
       var selopt = eval("formname.GD_SEL"+i+"_"+partid);
       if (selopt[0].selected) {
    var points = eval("formname.GD_BOX"+i+"_"+partid+".value");
    if (points == "") {
       var name = eval("formname.name"+i+".value");
       var resp = confirm("You did not assign a score for "+name+", part "+partid+". Continue?");
       if (resp == false) {
    eval("formname.GD_BOX"+i+"_"+partid+".focus()");
    return false;
       }
    }
       }
       
    }
       }
       
    }
    formname.submit();
       }
   
 //=================== Check that a point is assigned for all the parts  ==============  //======= Check that a score is assigned for all the problems (page/sequence grading only) =========
   function checksubmit(val,total,parttot) {      function checkSubmitPage(formname,total) {
      document.SCORE.gradeOpt.value = val;   noscore = new Array(100);
      if (val == "Save & Next") {   var ptr = 0;
  for (i=0;i<=total;i++) {   for (i=1;i<total;i++) {
    for (j=0;j<parttot;j++) {      var partid = eval("formname.q_"+i+".value");
       var partid = eval("document.SCORE.partid"+i+"_"+j+".value");      var selopt = eval("formname.GD_SEL"+i+"_"+partid);
       var selopt = eval("document.SCORE.GD_SEL"+i+"_"+partid);      if (selopt[0].selected) {
       if (selopt[0].selected) {   var points = eval("formname.GD_BOX"+i+"_"+partid+".value");
  var points = eval("document.SCORE.GD_BOX"+i+"_"+partid+".value");   var status = eval("formname.solved"+i+"_"+partid+".value");
  if (points == "") {   if (points == "" && status != "correct_by_student") {
      var name = eval("document.SCORE.name"+i+".value");      noscore[ptr] = i;
      alert("Please assign a score for "+name+", part "+partid+".");      ptr++;
      return false;   }
  }      }
       }   }
    if (ptr != 0) {
       var sense = ptr == 1 ? ": " : "s: ";
       var prolist = "";
       if (ptr == 1) {
    prolist = noscore[0];
       } else {
    var i = 0;
    while (i < ptr-1) {
       prolist += noscore[i]+", ";
       i++;
    }
    prolist += "and "+noscore[i];
       }
       var resp = confirm("You did not assign any score for the following problem"+sense+prolist+". Continue?");
       if (resp == false) {
    return false;
       }
    }
   
   }   formname.submit();
        }      }
   </script>
   SUBJAVASCRIPT
   }
   
      }  #--- javascript for essay type problem --
      document.SCORE.submit();  sub sub_page_kw_js {
  }      my $request = shift;
       $request->print(<<SUBJAVASCRIPT);
   <script type="text/javascript" language="javascript">
   
 //===================== Show list of keywords ====================  //===================== Show list of keywords ====================
   function keywords(keyform) {    function keywords(keyform) {
Line 614  sub sub_page_js { Line 702  sub sub_page_js {
   }    }
   
   function savedMsgHeader(Nmsg,usrctr,fullname) {    function savedMsgHeader(Nmsg,usrctr,fullname) {
     var height = 30*Nmsg+250;      var height = 50*Nmsg+250;
     var scrollbar = "no";      var scrollbar = "no";
     if (height > 600) {      if (height > 600) {
  height = 600;   height = 600;
Line 677  sub sub_page_js { Line 765  sub sub_page_js {
     pWin.document.write("<td><input name=\\"msgsub\\" type=\\"text\\" value=\\""+msg+"\\"size=\\"60\\" maxlength=\\"80\\"></td></tr>");      pWin.document.write("<td><input name=\\"msgsub\\" type=\\"text\\" value=\\""+msg+"\\"size=\\"60\\" maxlength=\\"80\\"></td></tr>");
 }  }
   
 function displaySavedMsg(ctr,msg,shwsel) {    function displaySavedMsg(ctr,msg,shwsel) {
     pWin.document.write("<tr bgcolor=\\"#ffffdd\\">");      pWin.document.write("<tr bgcolor=\\"#ffffdd\\">");
     pWin.document.write("<td align=\\"center\\">"+ctr+"</td>");      pWin.document.write("<td align=\\"center\\">"+ctr+"</td>");
     pWin.document.write("<td align=\\"center\\"><input name=\\"msgn"+ctr+"\\" type=\\"checkbox\\"" +shwsel+"></td>");      pWin.document.write("<td align=\\"center\\"><input name=\\"msgn"+ctr+"\\" type=\\"checkbox\\"" +shwsel+"></td>");
     pWin.document.write("<td><input name=\\"msg"+ctr+"\\" type=\\"text\\" value=\\""+msg+"\\" size=\\"60\\" maxlength=\\"80\\"></td></tr>");      pWin.document.write("<td><textarea name=\\"msg"+ctr+"\\" cols=\\"60\\" rows=\\"3\\">"+msg+"</textarea></td></tr>");
 }  }
   
   function newMsg(newmsg,shwsel) {    function newMsg(newmsg,shwsel) {
     pWin.document.write("<tr bgcolor=\\"#ffffdd\\">");      pWin.document.write("<tr bgcolor=\\"#ffffdd\\">");
     pWin.document.write("<td align=\\"center\\">New</td>");      pWin.document.write("<td align=\\"center\\">New</td>");
     pWin.document.write("<td align=\\"center\\"><input name=\\"newmsgchk\\" type=\\"checkbox\\"" +shwsel+"></td>");      pWin.document.write("<td align=\\"center\\"><input name=\\"newmsgchk\\" type=\\"checkbox\\"" +shwsel+"></td>");
     pWin.document.write("<td><input name=\\"newmsg\\" type=\\"text\\" onchange=\\"javascript:this.form.newmsgchk.checked=true\\" value=\\""+newmsg+"\\" size=\\"60\\" maxlength=\\"80\\"></td></tr>");      pWin.document.write("<td><textarea name=\\"newmsg\\" cols=\\"60\\" rows=\\"3\\" onchange=\\"javascript:this.form.newmsgchk.checked=true\\" >"+newmsg+"</textarea></td></tr>");
 }  }
   
   function msgTail() {    function msgTail() {
Line 786  function displaySavedMsg(ctr,msg,shwsel) Line 874  function displaySavedMsg(ctr,msg,shwsel)
   function highlightend() {     function highlightend() { 
     hwdWin.document.write("</table>");      hwdWin.document.write("</table>");
     hwdWin.document.write("</td></tr></table>&nbsp;");      hwdWin.document.write("</td></tr></table>&nbsp;");
 //    hwdWin.document.write("<input type=\\"button\\" value=\\"Save\\" onClick=\\"javascript:updateChoice(0)\\">&nbsp;&nbsp;");  
     hwdWin.document.write("<input type=\\"button\\" value=\\"Save\\" onClick=\\"javascript:updateChoice(1)\\">&nbsp;&nbsp;");      hwdWin.document.write("<input type=\\"button\\" value=\\"Save\\" onClick=\\"javascript:updateChoice(1)\\">&nbsp;&nbsp;");
     hwdWin.document.write("<input type=\\"button\\" value=\\"Cancel\\" onClick=\\"self.close()\\"><br><br>");      hwdWin.document.write("<input type=\\"button\\" value=\\"Cancel\\" onClick=\\"self.close()\\"><br><br>");
     hwdWin.document.write("</form>");      hwdWin.document.write("</form>");
Line 797  function displaySavedMsg(ctr,msg,shwsel) Line 884  function displaySavedMsg(ctr,msg,shwsel)
 SUBJAVASCRIPT  SUBJAVASCRIPT
 }  }
   
   #--- displays the grading box, used in essay type problem and grading by page/sequence
   sub gradeBox {
       my ($request,$symb,$uname,$udom,$counter,$partid,$record) = @_;
   
       my $checkIcon = '<img src="'.$request->dir_config('lonIconsURL').
    '/check.gif" height="16" border="0" />';
   
       my $wgt    = &Apache::lonnet::EXT('resource.'.$partid.'.weight',$symb,$udom,$uname);
       my $wgtmsg = ($wgt > 0 ? '(problem weight)' : 
     '<font color="red">problem weight assigned by computer</font>');
       $wgt       = ($wgt > 0 ? $wgt : '1');
       my $score  = ($$record{'resource.'.$partid.'.awarded'} eq '' ?
     '' : $$record{'resource.'.$partid.'.awarded'}*$wgt);
       my $result='<input type="hidden" name="WGT'.$counter.'_'.$partid.'" value="'.$wgt.'" />'."\n";
   
       $result.='<table border="0"><tr><td>'.
    '<b>Part </b>'.$partid.' <b>Points: </b></td><td>'."\n";
   
       my $ctr = 0;
       $result.='<table border="0"><tr>'."\n";  # display radio buttons in a nice table 10 across
       while ($ctr<=$wgt) {
    $result.= '<td><input type="radio" name="RADVAL'.$counter.'_'.$partid.'" '.
       'onclick="javascript:writeBox(this.form,\''.$counter.'_'.$partid.'\','.
       $ctr.')" value="'.$ctr.'" '.
       ($score eq $ctr ? 'checked':'').' /> '.$ctr."</td>\n";
    $result.=(($ctr+1)%10 == 0 ? '</tr><tr>' : '');
    $ctr++;
       }
       $result.='</tr></table>';
   
       $result.='</td><td>&nbsp;<b>or</b>&nbsp;</td>'."\n";
       $result.='<td><input type="text" name="GD_BOX'.$counter.'_'.$partid.'"'.
    ($score ne ''? ' value = "'.$score.'"':'').' size="4" '.
    'onChange="javascript:updateRadio(this.form,\''.$counter.'_'.$partid.'\','.
    $wgt.')" /></td>'."\n";
       $result.='<td>/'.$wgt.' '.$wgtmsg.
    ($$record{'resource.'.$partid.'.solved'} eq 'correct_by_student' ? '&nbsp;'.$checkIcon : '').
    ' </td><td>'."\n";
   
       $result.='<select name="GD_SEL'.$counter.'_'.$partid.'" '.
    'onChange="javascript:clearRadBox(this.form,\''.$counter.'_'.$partid.'\')" >'."\n";
       if ($$record{'resource.'.$partid.'.solved'} eq 'excused') {
    $result.='<option> </option>'.
       '<option selected="on">excused</option></select>'."\n";
       } else {
    $result.='<option selected="on"> </option>'.
       '<option>excused</option></select>'."\n";
       }
       $result.="&nbsp&nbsp\n";
       $result.='<input type="hidden" name="stores'.$counter.'_'.$partid.'" value="" />'."\n".
    '<input type="hidden" name="oldpts'.$counter.'_'.$partid.'" value="'.$score.'" />'."\n".
    '<input type="hidden" name="solved'.$counter.'_'.$partid.'" value="'.
    $$record{'resource.'.$partid.'.solved'}.'" />'."\n";
       $result.='</td></tr></table>'."\n";
       return $result;
   }
   
 sub show_problem {  sub show_problem {
     my ($request,$symb,$uname,$udom,$removeform) = @_;      my ($request,$symb,$uname,$udom,$removeform,$viewon) = @_;
     my $rendered=&Apache::loncommon::get_student_view($symb,$uname,$udom,      my $rendered=&Apache::loncommon::get_student_view($symb,$uname,$udom,
       $ENV{'request.course.id'});        $ENV{'request.course.id'});
     if ($removeform) {      if ($removeform) {
Line 815  sub show_problem { Line 958  sub show_problem {
  $rendered=~s|name="submit"|name="would_have_been_submit"|g;   $rendered=~s|name="submit"|name="would_have_been_submit"|g;
     }      }
     my $result.='<table border="0" width="100%"><tr><td bgcolor="#777777">';      my $result.='<table border="0" width="100%"><tr><td bgcolor="#777777">';
     $result.='<table border="0" width="100%"><tr><td bgcolor="#e6ffff">';      $result.='<table border="0" width="100%">';
     $result.='<b> View of the problem - '.$ENV{'form.fullname'}.      $result.='<tr><td bgcolor="#e6ffff"><b> View of the problem - '.$ENV{'form.fullname'}.
  '</b></td></tr><tr><td bgcolor="#ffffff">'.$rendered.'<br />';   '</b></td></tr>' if ($viewon);
       $result.='<tr><td bgcolor="#ffffff">'.$rendered.'<br />';
     $result.='<b>Correct answer:</b><br />'.$companswer;      $result.='<b>Correct answer:</b><br />'.$companswer;
     $result.='</td></tr></table>';      $result.='</td></tr></table>';
     $result.='</td></tr></table><br />';      $result.='</td></tr></table><br />';
     $request->print($result);      return $result;
 }  }
   
 # --------------------------- show submissions of a student, option to grade   # --------------------------- show submissions of a student, option to grade 
Line 829  sub submission { Line 973  sub submission {
     my ($request,$counter,$total) = @_;      my ($request,$counter,$total) = @_;
   
     (my $url=$ENV{'form.url'})=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;      (my $url=$ENV{'form.url'})=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;
 #    if ($ENV{'form.student'} eq '') { &moreinfo($request,'Need student login id'); return ''; }  
     my ($uname,$udom)     = ($ENV{'form.student'},$ENV{'form.userdom'});      my ($uname,$udom)     = ($ENV{'form.student'},$ENV{'form.userdom'});
     ($uname,$udom)        = &finduser($uname) if $udom eq '';      ($uname,$udom)        = &finduser($uname) if $udom eq '';
     $ENV{'form.fullname'} = &get_fullname ($uname,$udom) if $ENV{'form.fullname'} eq '';      $ENV{'form.fullname'} = &get_fullname ($uname,$udom) if $ENV{'form.fullname'} eq '';
 #    if ($uname eq '') { &moreinfo($request,'Unable to find student'); return ''; }  
   
     my $symb=($ENV{'form.symb'} ne '' ? $ENV{'form.symb'} : (&Apache::lonnet::symbread($url)));      my $symb=($ENV{'form.symb'} ne '' ? $ENV{'form.symb'} : (&Apache::lonnet::symbread($url)));
     if ($symb eq '') { $request->print("Unable to handle ambiguous references:$url:."); return ''; }      if ($symb eq '') { $request->print("Unable to handle ambiguous references:$url:."); return ''; }
     my $last = ($ENV{'form.lastSub'} eq 'last' ? 'last' : '');      my $last = ($ENV{'form.lastSub'} eq 'last' ? 'last' : '');
 #    $ENV{'form.vProb'} = $ENV{'form.vProb'} ne '' ? $ENV{'form.vProb'} : 'yes';  
   
     # header info      # header info
     if ($counter == 0) {      if ($counter == 0) {
  &sub_page_js($request);   &sub_page_js($request);
    &sub_page_kw_js($request);
  $request->print('<h3>&nbsp;<font color="#339933">Submission Record</font></h3>'."\n".   $request->print('<h3>&nbsp;<font color="#339933">Submission Record</font></h3>'."\n".
  '<font size=+1>&nbsp;<b>Resource: </b>'.$url.'</font>'."\n");   '<font size=+1>&nbsp;<b>Problem: </b>'.$ENV{'form.probTitle'}.'</font>'."\n");
   
  # option to display problem, only once else it cause problems    # option to display problem, only once else it cause problems 
         # with the form later since the problem has a form.          # with the form later since the problem has a form.
  if ($ENV{'form.vProb'} eq 'yes' or !$ENV{'form.vProb'}) {   if ($ENV{'form.vProb'} eq 'yes' or !$ENV{'form.vProb'}) {
     &show_problem($request,$symb,$uname,$udom,0);      $request->print(&show_problem($request,$symb,$uname,$udom,0,1));
  }   }
   
  # kwclr is the only variable that is guaranteed to be non blank    # kwclr is the only variable that is guaranteed to be non blank 
Line 866  sub submission { Line 1008  sub submission {
     $ENV{'form.kwsize'}   = $keyhash{$loginuser.'_kwsize'} ne '' ? $keyhash{$loginuser.'_kwsize'} : '0';      $ENV{'form.kwsize'}   = $keyhash{$loginuser.'_kwsize'} ne '' ? $keyhash{$loginuser.'_kwsize'} : '0';
     $ENV{'form.kwstyle'}  = $keyhash{$loginuser.'_kwstyle'} ne '' ? $keyhash{$loginuser.'_kwstyle'} : '';      $ENV{'form.kwstyle'}  = $keyhash{$loginuser.'_kwstyle'} ne '' ? $keyhash{$loginuser.'_kwstyle'} : '';
     $ENV{'form.msgsub'}   = $keyhash{$symb.'_subject'} ne '' ?       $ENV{'form.msgsub'}   = $keyhash{$symb.'_subject'} ne '' ? 
  $keyhash{$symb.'_subject'} : &Apache::lonnet::metadata($url,'title');   $keyhash{$symb.'_subject'} : $ENV{'form.probTitle'};
     $ENV{'form.savemsgN'} = $keyhash{$symb.'_savemsgN'} ne '' ? $keyhash{$symb.'_savemsgN'} : '0';      $ENV{'form.savemsgN'} = $keyhash{$symb.'_savemsgN'} ne '' ? $keyhash{$symb.'_savemsgN'} : '0';
   
  }   }
   
  $request->print('<form action="/adm/grades" method="post" name="SCORE">'."\n".   $request->print('<form action="/adm/grades" method="post" name="SCORE">'."\n".
  '<input type="hidden" name="command"    value="handgrade" />'."\n".   '<input type="hidden" name="command"    value="handgrade" />'."\n".
    '<input type="hidden" name="lastCmd"    value="'.$ENV{'form.lastCmd'}.'" />'."\n".
    '<input type="hidden" name="lastSec"    value="'.$ENV{'form.lastSec'}.'" />'."\n".
    '<input type="hidden" name="probTitle"  value="'.$ENV{'form.probTitle'}.'" />'."\n".
  '<input type="hidden" name="refresh"    value="off" />'."\n".   '<input type="hidden" name="refresh"    value="off" />'."\n".
  '<input type="hidden" name="symb"       value="'.$symb.'" />'."\n".   '<input type="hidden" name="symb"       value="'.$symb.'" />'."\n".
  '<input type="hidden" name="url"        value="'.$url.'" />'."\n".   '<input type="hidden" name="url"        value="'.$url.'" />'."\n".
Line 913  KEYWORDS Line 1058  KEYWORDS
     }      }
   
     if ($ENV{'form.vProb'} eq 'all') {      if ($ENV{'form.vProb'} eq 'all') {
  $request->print('<br /><br /><br />');   $request->print('<br /><br /><br />') if ($counter > 0);
  &show_problem($request,$symb,$uname,$udom,1);   $request->print(&show_problem($request,$symb,$uname,$udom,1,1));
     }      }
   
     my %record = &Apache::lonnet::restore($symb,$ENV{'request.course.id'},$udom,$uname);      my %record = &Apache::lonnet::restore($symb,$ENV{'request.course.id'},$udom,$uname);
Line 1010  KEYWORDS Line 1155  KEYWORDS
  } else {   } else {
     my ($string,$timestamp)=      my ($string,$timestamp)=
  &get_last_submission (%record);   &get_last_submission (%record);
     my $lastsubonly.=''.      my $lastsubonly=''.
  ($$timestamp eq '' ? '' : '<b>Date Submitted:</b> '.   ($$timestamp eq '' ? '' : '<b>Date Submitted:</b> '.
  $$timestamp).'';   $$timestamp).'';
     if ($$timestamp eq '') {      if ($$timestamp eq '') {
Line 1050  KEYWORDS Line 1195  KEYWORDS
     # return if view submission with no grading option      # return if view submission with no grading option
     if ($ENV{'form.showgrading'} eq '') {      if ($ENV{'form.showgrading'} eq '') {
  $request->print('</td></tr></table></td></tr></table></form>'."\n");   $request->print('</td></tr></table></td></tr></table></form>'."\n");
    $request->print(&show_grading_menu_form($symb,$url)) 
       if (($ENV{'form.command'} eq 'submission') || 
    ($ENV{'form.command'} eq 'processGroup' && $counter == $total));
  return;   return;
     }      }
   
Line 1081  KEYWORDS Line 1229  KEYWORDS
  next if ($$handgrade{$_} =~ /:no$/);   next if ($$handgrade{$_} =~ /:no$/);
  push @partlist,$partid;   push @partlist,$partid;
   
  $result=&gradeBox($symb,$uname,$udom,$counter,$partid,\%record);   $request->print(&gradeBox($request,$symb,$uname,$udom,$counter,$partid,\%record));
   
  $request->print($result);  
     }      }
     $result='<input type="hidden" name="partlist'.$counter.      $result='<input type="hidden" name="partlist'.$counter.
  '" value="'.(join ":",@partlist).'" />'."\n";   '" value="'.(join ":",@partlist).'" />'."\n";
Line 1101  KEYWORDS Line 1247  KEYWORDS
     '<input type="hidden" name="gradeOpt" value="" />'."\n";      '<input type="hidden" name="gradeOpt" value="" />'."\n";
  if ($ENV{'form.handgrade'} eq 'yes') {   if ($ENV{'form.handgrade'} eq 'yes') {
     $endform.='<input type="button" value="Save & Next" '.      $endform.='<input type="button" value="Save & Next" '.
  'onClick="javascript:checksubmit(\'Save & Next\','.   'onClick="javascript:checksubmit(this.form,\'Save & Next\','.
  $total.','.scalar(@partlist).');" TARGET=_self> &nbsp;'."\n";   $total.','.scalar(@partlist).');" TARGET=_self> &nbsp;'."\n";
     my $ntstu ='<select name="NTSTU">'.      my $ntstu ='<select name="NTSTU">'.
  '<option>1</option><option>2</option>'.   '<option>1</option><option>2</option>'.
Line 1114  KEYWORDS Line 1260  KEYWORDS
     $endform.='<input type="hidden" name="NTSTU" value="1" />'."\n";      $endform.='<input type="hidden" name="NTSTU" value="1" />'."\n";
  }   }
  $endform.='<input type="button" value="Next" '.   $endform.='<input type="button" value="Next" '.
     'onClick="javascript:checksubmit(\'Next\');" TARGET=_self> &nbsp;'."\n".      'onClick="javascript:checksubmit(this.form,\'Next\');" TARGET=_self> &nbsp;'."\n".
     '<input type="button" value="Previous" '.      '<input type="button" value="Previous" '.
     'onClick="javascript:checksubmit(\'Previous\');" TARGET=_self> &nbsp;';      'onClick="javascript:checksubmit(this.form,\'Previous\');" TARGET=_self> &nbsp;';
  $endform.='(Next and Previous do not save the scores.)'."\n"    $endform.='(Next and Previous do not save the scores.)'."\n" 
     if ($ENV{'form.handgrade'} eq 'yes');      if ($ENV{'form.handgrade'} eq 'yes');
  $endform.='</td><tr></table></form>';   $endform.='</td><tr></table></form>';
Line 1136  sub get_last_submission { Line 1282  sub get_last_submission {
  for ($version=1;$version<=$returnhash{'version'};$version++) {   for ($version=1;$version<=$returnhash{'version'};$version++) {
     foreach (sort(split(/\:/,$returnhash{$version.':keys'}))) {      foreach (sort(split(/\:/,$returnhash{$version.':keys'}))) {
  $lasthash{$_}=$returnhash{$version.':'.$_};   $lasthash{$_}=$returnhash{$version.':'.$_};
 # if ($returnhash{$version.':'.$_} =~ /(SUBMITTED|DRAFT)$/) {  
    $timestamp = scalar(localtime($returnhash{$version.':timestamp'}));     $timestamp = scalar(localtime($returnhash{$version.':timestamp'}));
 #       }   
     }      }
  }   }
  foreach ((keys %lasthash)) {   foreach ((keys %lasthash)) {
Line 1186  sub processHandGrade { Line 1330  sub processHandGrade {
  while ($ctr < $ngrade) {   while ($ctr < $ngrade) {
     my ($uname,$udom) = split(/:/,$ENV{'form.unamedom'.$ctr});      my ($uname,$udom) = split(/:/,$ENV{'form.unamedom'.$ctr});
     my ($errorflag) = &saveHandGrade($request,$url,$symb,$uname,$udom,$ctr);      my ($errorflag) = &saveHandGrade($request,$url,$symb,$uname,$udom,$ctr);
       if ($errorflag eq 'no_score') {
    $ctr++;
    next;
       }
   
     my $includemsg = $ENV{'form.includemsg'.$ctr};      my $includemsg = $ENV{'form.includemsg'.$ctr};
     my ($subject,$message,$msgstatus) = ('','','');      my ($subject,$message,$msgstatus) = ('','','');
Line 1195  sub processHandGrade { Line 1343  sub processHandGrade {
  foreach (@msgnum) {   foreach (@msgnum) {
     $message.=$ENV{'form.'.$_} if ($_ =~ /savemsg|newmsg/ && $_ ne '');      $message.=$ENV{'form.'.$_} if ($_ =~ /savemsg|newmsg/ && $_ ne '');
  }   }
  $message =~ s/\s+/ /g;   #$message =~ s/\s+/ /g;
  $msgstatus = &Apache::lonmsg::user_normal_msg ($uname,$udom,   $msgstatus = &Apache::lonmsg::user_normal_msg ($uname,$udom,
        $ENV{'form.msgsub'},$message);         $ENV{'form.msgsub'},$message);
     }      }
Line 1317  sub processHandGrade { Line 1465  sub processHandGrade {
  $ENV{'form.student'}  = $uname;   $ENV{'form.student'}  = $uname;
  $ENV{'form.userdom'}  = $udom;   $ENV{'form.userdom'}  = $udom;
  $ENV{'form.fullname'} = $$fullname{$_};   $ENV{'form.fullname'} = $$fullname{$_};
 # $ENV{'form.'.$_.':submitted_by'} = $submitter;  
 # print "submitter=$ENV{'form.'.$_.':submitted_by'}= $submitter:<br>";  
  &submission($request,$ctr,$total);   &submission($request,$ctr,$total);
  $ctr++;   $ctr++;
     }      }
Line 1349  sub saveHandGrade { Line 1495  sub saveHandGrade {
     my $pts = ($ENV{'form.GD_BOX'.$newflg.'_'.$_} ne '' ?       my $pts = ($ENV{'form.GD_BOX'.$newflg.'_'.$_} ne '' ? 
        $ENV{'form.GD_BOX'.$newflg.'_'.$_} :          $ENV{'form.GD_BOX'.$newflg.'_'.$_} : 
        $ENV{'form.RADVAL'.$newflg.'_'.$_});         $ENV{'form.RADVAL'.$newflg.'_'.$_});
       return 'no_score' if ($pts eq '' && $ENV{'form.GD_SEL'.$newflg.'_'.$_} eq '');
     my $wgt = $ENV{'form.WGT'.$newflg.'_'.$_} eq '' ? 1 :       my $wgt = $ENV{'form.WGT'.$newflg.'_'.$_} eq '' ? 1 : 
  $ENV{'form.WGT'.$newflg.'_'.$_};   $ENV{'form.WGT'.$newflg.'_'.$_};
     my $partial= $pts/$wgt;      my $partial= $pts/$wgt;
Line 1364  sub saveHandGrade { Line 1511  sub saveHandGrade {
     }      }
     $newrecord{'resource.'.$_.'.submitted_by'} = $submitter       $newrecord{'resource.'.$_.'.submitted_by'} = $submitter 
  if ($submitter && ($record{'resource.'.$_.'.submitted_by'} ne $submitter));   if ($submitter && ($record{'resource.'.$_.'.submitted_by'} ne $submitter));
       $newrecord{'resource.'.$_.'regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";
  }   }
     }      }
   
     if (scalar(keys(%newrecord)) > 0) {      if (scalar(keys(%newrecord)) > 0) {
  $newrecord{'resource.regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";  
  &Apache::lonnet::cstore(\%newrecord,$symb,   &Apache::lonnet::cstore(\%newrecord,$symb,
  $ENV{'request.course.id'},$domain,$stuname);   $ENV{'request.course.id'},$domain,$stuname);
     }      }
Line 1557  sub viewgrades { Line 1704  sub viewgrades {
     my ($symb,$url) = ($ENV{'form.symb'},$ENV{'form.url'});       my ($symb,$url) = ($ENV{'form.symb'},$ENV{'form.url'}); 
     my $result='<h3><font color="#339933">Manual Grading</font></h3>';      my $result='<h3><font color="#339933">Manual Grading</font></h3>';
   
     $result.='<font size=+1><b>Resource: </b>'.$ENV{'form.url'}.'</font>'."\n";      $result.='<font size=+1><b>Problem: </b>'.$ENV{'form.probTitle'}.'</font>'."\n";
   
     #view individual student submission form - called using Javascript viewOneStudent      #view individual student submission form - called using Javascript viewOneStudent
     $result.=&jscriptNform($url,$symb);      $result.=&jscriptNform($url,$symb);
Line 1567  sub viewgrades { Line 1714  sub viewgrades {
  '<input type="hidden" name="symb"    value="'.$symb.'" />'."\n".   '<input type="hidden" name="symb"    value="'.$symb.'" />'."\n".
  '<input type="hidden" name="url"     value="'.$url.'" />'."\n".   '<input type="hidden" name="url"     value="'.$url.'" />'."\n".
  '<input type="hidden" name="command" value="editgrades" />'."\n".   '<input type="hidden" name="command" value="editgrades" />'."\n".
  '<input type="hidden" name="section" value="'.$ENV{'form.section'}.'" />'."\n";   '<input type="hidden" name="section" value="'.$ENV{'form.section'}.'" />'."\n".
    '<input type="hidden" name="lastCmd" value="'.$ENV{'form.lastCmd'}.'" />'."\n".
    '<input type="hidden" name="lastSec" value="'.$ENV{'form.lastSec'}.'" />'."\n".
    '<input type="hidden" name="probTitle" value="'.$ENV{'form.probTitle'}.'" />'."\n";
   
     $result.='<h3>Assign Common Grade To ';      $result.='<h3>Assign Common Grade To ';
     if ($ENV{'form.section'} eq 'all') {      if ($ENV{'form.section'} eq 'all') {
  $result.='Class </h3>';   $result.='Class </h3>';
Line 1578  sub viewgrades { Line 1729  sub viewgrades {
     }      }
     $result.= '<table border=0><tr><td bgcolor="#777777">'."\n".      $result.= '<table border=0><tr><td bgcolor="#777777">'."\n".
  '<table border=0><tr bgcolor="#ffffdd"><td>';   '<table border=0><tr bgcolor="#ffffdd"><td>';
 #    $result.='To assign the same score for all the students use the radio buttons or '.  
 # 'text box below. To assign scores individually fill in the score boxes for '.  
 # 'each student in the table below. <font color="red">A part that has already '.  
 # 'been graded does not get changed using the radio buttons or text box. '.  
 # 'If needed, it has to be changed individually.</font>';  
 #    $result.='</td></tr><tr><td>';  
     #radio buttons/text box for assigning points for a section or class.      #radio buttons/text box for assigning points for a section or class.
     #handles different parts of a problem      #handles different parts of a problem
     my ($partlist,$handgrade) = &response_type($ENV{'form.url'});      my ($partlist,$handgrade) = &response_type($ENV{'form.url'});
Line 1733  sub editgrades { Line 1878  sub editgrades {
     my $symb=$ENV{'form.symb'};      my $symb=$ENV{'form.symb'};
     my $url =$ENV{'form.url'};      my $url =$ENV{'form.url'};
     my $title='<h3><font color="#339933">Current Grade Status</font></h3>';      my $title='<h3><font color="#339933">Current Grade Status</font></h3>';
     $title.='<font size=+1><b>Resource: </b>'.$ENV{'form.url'}.'</font><br />'."\n";      $title.='<font size=+1><b>Problem: </b>'.$ENV{'form.probTitle'}.'</font><br />'."\n";
     $title.='<font size=+1><b>Section: </b>'.$ENV{'form.section'}.'</font>'."\n";      $title.='<font size=+1><b>Section: </b>'.$ENV{'form.section'}.'</font>'."\n";
     $title.= &show_grading_menu_form ($symb,$url);  
     my $result= '<table border="0"><tr><td bgcolor="#777777">'."\n";      my $result= '<table border="0"><tr><td bgcolor="#777777">'."\n";
     $result.= '<table border="0"><tr bgcolor="#deffff">'.      $result.= '<table border="0"><tr bgcolor="#deffff">'.
  '<td rowspan=2><b>Username</b></td><td rowspan=2><b>Fullname</b></td>'."\n";   '<td rowspan=2><b>Username</b></td><td rowspan=2><b>Fullname</b></td>'."\n";
Line 1835  sub editgrades { Line 1979  sub editgrades {
  my $awarded   = $ENV{'form.GD_'.$user.'_'.$part.'_'.$type};   my $awarded   = $ENV{'form.GD_'.$user.'_'.$part.'_'.$type};
  if ($awarded ne '' && $awarded ne $old_aw) {   if ($awarded ne '' && $awarded ne $old_aw) {
     $newrecord{'resource.'.$part.'.'.$type}= $awarded;      $newrecord{'resource.'.$part.'.'.$type}= $awarded;
       $newrecord{'resource.'.$part.'regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";
     $updateflag=1;      $updateflag=1;
  }   }
  $result .= '<td align="center">'.$old_aw.'&nbsp;</td>'.   $result .= '<td align="center">'.$old_aw.'&nbsp;</td>'.
Line 1844  sub editgrades { Line 1989  sub editgrades {
  $result .= '</tr>'."\n";   $result .= '</tr>'."\n";
  if ($updateflag) {   if ($updateflag) {
     $count++;      $count++;
     $newrecord{'resource.regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";  
     &Apache::lonnet::cstore(\%newrecord,$symb,$ENV{'request.course.id'},      &Apache::lonnet::cstore(\%newrecord,$symb,$ENV{'request.course.id'},
     $udom,$user);      $udom,$user);
  }   }
     }      }
     $result .= '</table></td></tr></table>'."\n";      $result .= '</table></td></tr></table>'."\n".
    &show_grading_menu_form ($symb,$url);
     my $msg = '<b>Number of records updated = '.$rec_update.      my $msg = '<b>Number of records updated = '.$rec_update.
  ' for '.$count.' student'.($count <= 1 ? '' : 's').'.</b><br />'.   ' for '.$count.' student'.($count <= 1 ? '' : 's').'.</b><br />'.
  '<b>Total number of students = '.$ENV{'form.total'}.'</b><br />';   '<b>Total number of students = '.$ENV{'form.total'}.'</b><br />';
Line 1873  sub split_part_type { Line 2018  sub split_part_type {
 #  #
 #-------------------------- Next few routines handles grading by csv upload  #-------------------------- Next few routines handles grading by csv upload
 #  #
   #--- Menu to upload a csv scores ---
   sub upcsvScores_form {
       my ($request) = shift;
       my ($symb,$url)=&get_symb_and_url($request);
       if (!$symb) {return '';}
       my $result =<<CSVFORMJS;
   <script type="text/javascript" language="javascript">
       function checkUpload(formname) {
    if (formname.upfile.value == "") {
       alert("Please use the browse button to select a file from your local directory.");
       return false;
    }
    formname.submit();
    if (navigator.appName !="Netscape") {self.close()}; //if netscape if appears to close before submit!!!
       // any suggestion how to get around this??
       }
       </script>
   CSVFORMJS
       $ENV{'form.probTitle'} = &Apache::lonnet::gettitle($symb);
       $result.='<table width=100% border=0><tr><td bgcolor=#777777>'."\n";
       $result.='<table width=100% border=0><tr bgcolor="#e6ffff"><td>'."\n";
       $result.='&nbsp;<b>Specify a file containing the class scores for problem - '.$ENV{'form.probTitle'}.
    '.</b></td></tr>'."\n";
       $result.='<tr bgcolor=#ffffe6><td>'."\n";
       my $upfile_select=&Apache::loncommon::upfile_select_html();
       $result.=<<ENDUPFORM;
   <form method="post" enctype="multipart/form-data" action="/adm/grades" name="gradesupload" target="LONcatInfo">
   <input type="hidden" name="symb" value="$symb" />
   <input type="hidden" name="url" value="$url" />
   <input type="hidden" name="command" value="csvuploadmap" />
   <input type="hidden" name="probTitle" value="$ENV{'form.probTitle'}" />
   $upfile_select
   <br /><input type="button" onClick="javascript:checkUpload(this.form);" value="Upload Scores" />&nbsp;
   <input type="button" value="Cancel" onClick="self.close()">
   
   </form>
   ENDUPFORM
       $result.='</td></tr></table>'."\n";
       $result.='</td></tr></table>'."\n";
       return $result;
   }
   
 #--- Javascript to handle csv upload  #--- Javascript to handle csv upload
 sub csvupload_javascript_reverse_associate {  sub csvupload_javascript_reverse_associate {
   return(<<ENDPICK);    return(<<ENDPICK);
Line 1957  sub csvuploadmap_header { Line 2144  sub csvuploadmap_header {
     }      }
   
     my $result='<table border="0">';      my $result='<table border="0">';
     $result.='<tr><td colspan=3><font size=+1><b>Resource: </b>'.$url.'</font></td></tr>';      $result.='<tr><td colspan=3><font size=+1><b>Problem: </b>'.$ENV{'form.probTitle'}.'</font></td></tr>';
     my ($partlist,$handgrade) = &response_type($url);      my ($partlist,$handgrade) = &response_type($url);
     my ($resptype,$hdgrade)=('','no');      my ($resptype,$hdgrade)=('','no');
     for (sort keys(%$handgrade)) {      for (sort keys(%$handgrade)) {
Line 1988  to this page if the data selected is ins Line 2175  to this page if the data selected is ins
                                        value="$ENV{'form.upfile_associate'}" />                                         value="$ENV{'form.upfile_associate'}" />
 <input type="hidden" name="symb"       value="$symb" />  <input type="hidden" name="symb"       value="$symb" />
 <input type="hidden" name="url"        value="$url" />  <input type="hidden" name="url"        value="$url" />
   <input type="hidden" name="lastCmd"    value="$ENV{'form.lastCmd'}" />
   <input type="hidden" name="lastSec"    value="$ENV{'form.lastSec'}" />
   <input type="hidden" name="probTitle"  value="$ENV{'form.probTitle'}" />
 <input type="hidden" name="command"    value="csvuploadassign" />  <input type="hidden" name="command"    value="csvuploadassign" />
 <hr />  <hr />
 <script type="text/javascript" language="Javascript">  <script type="text/javascript" language="Javascript">
Line 2028  sub csvuploadmap { Line 2218  sub csvuploadmap {
     my ($request)= @_;      my ($request)= @_;
     my ($symb,$url)=&get_symb_and_url($request);      my ($symb,$url)=&get_symb_and_url($request);
     if (!$symb) {return '';}      if (!$symb) {return '';}
   
     my $datatoken;      my $datatoken;
     if (!$ENV{'form.datatoken'}) {      if (!$ENV{'form.datatoken'}) {
  $datatoken=&Apache::loncommon::upfile_store($request);   $datatoken=&Apache::loncommon::upfile_store($request);
Line 2056  sub csvuploadmap { Line 2247  sub csvuploadmap {
  }   }
     }      }
     &csvuploadmap_footer($request,$i,$keyfields);      &csvuploadmap_footer($request,$i,$keyfields);
       $request->print(&show_grading_menu_form($symb,$url));
   
     return '';      return '';
 }  }
   
Line 2119  sub csvuploadassign { Line 2312  sub csvuploadassign {
 #------------- end of section for handling csv file upload ---------  #------------- end of section for handling csv file upload ---------
 #  #
 #-------------------------------------------------------------------  #-------------------------------------------------------------------
   
 #-------------------------- Menu interface -------------------------  
 #  #
 #--- Show a Grading Menu button - Calls the next routine ---  #-------------- Next few routines handles grading by page/sequence
 sub show_grading_menu_form {  #
     my ($symb,$url)=@_;  #--- Select a page/sequence and a student to grade
     my $result.='<form action="/adm/grades" method="post">'."\n".  
  '<input type="hidden" name="symb" value="'.$symb.'" />'."\n".  
  '<input type="hidden" name="url" value="'.$url.'" />'."\n".  
  '<input type="hidden" name="command" value="gradingmenu" />'."\n".  
  '<input type="submit" name="submit" value="Grading Menu" />'."\n".  
  '</form>'."\n";  
     return $result;  
 }  
   
 #--- Displays the main menu page -------  
 sub gradingmenu {  
     my ($request) = @_;  
     my ($symb,$url)=&get_symb_and_url($request);  
     if (!$symb) {return '';}  
     my $result='<h3>&nbsp;<font color="#339933">Select a Grading Method</font></h3>';  
     $result.='<table border="0">';  
     $result.='<tr><td colspan=3><font size=+1><b>Resource: </b>'.$url.'</font></td></tr>';  
     my ($partlist,$handgrade) = &response_type($url);  
     my ($resptype,$hdgrade)=('','no');  
     for (sort keys(%$handgrade)) {  
  my ($responsetype,$handgrade)=split(/:/,$$handgrade{$_});  
  $resptype = $responsetype;  
  $hdgrade = $handgrade if ($handgrade eq 'yes');  
  $result.='<tr><td><b>Part </b>'.(split(/_/))[0].'</td>'.  
     '<td><b>Type: </b>'.$responsetype.'</td>'.  
     '<td><b>Handgrade: </b>'.$handgrade.'</font></td></tr>';  
     }  
     $result.='</table>';  
     $result.=&view_edit_entire_class_form($symb,$url).'<br />';  
     $result.=&upcsvScores_form($symb,$url).'<br />';  
     $result.=&viewGradeaStu_form($symb,$url,$resptype,$hdgrade).'<br />';  
     $result.=&gradeByPage_form($symb,$url,$resptype,$hdgrade).'<br />';  
     $result.=&verifyReceipt_form($symb,$url)   
  if ((&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'})) && ($symb));  
    
     return $result;  
 }  
   
 #--- Menu for grading a section or the whole class ---  
 sub view_edit_entire_class_form {  
     my ($symb,$url)=@_;  
     my ($classlist,$sections,undef) = &getclasslist('all','0');  
     my $result.='<table width=100% border=0><tr><td bgcolor=#777777>'."\n";  
     $result.='<table width=100% border=0><tr bgcolor="#e6ffff"><td>'."\n";  
     $result.='&nbsp;<b>Grade Entire Section or Class</b></td></tr>'."\n";  
     $result.='<tr bgcolor=#ffffe6><td>'."\n";  
     $result.='<form action="/adm/grades" method="post">'."\n".  
  '<input type="hidden" name="symb" value="'.$symb.'" />'."\n".  
  '<input type="hidden" name="url" value="'.$url.'" />'."\n".  
  '<input type="hidden" name="command" value="viewgrades" />'."\n";  
     $result.='&nbsp;<b>Select section:</b> <select name="section">'."\n";  
     if (ref($sections)) {  
  foreach (sort (@$sections)) {  
     $result.= '<option>'.$_.'</option>'."\n";  
  }  
     }  
     $result.='<option selected="on">all</select>'."<br />\n";  
     $result.='&nbsp;<input type="button" onClick="submit();" value="Grade" /></form>'."\n";  
     $result.='</td></tr></table>'."\n";  
     $result.='</td></tr></table>'."\n";  
     return $result;  
 }  
   
 #--- Menu to upload a csv scores ---  
 sub upcsvScores_form {  
     my ($symb,$url) = @_;  
     if (!$symb) {return '';}  
     my $result = '<script type="text/javascript" language="javascript">'."\n".  
  '  function checkUpload(formname) {'."\n".  
  '    if (formname.upfile.value == "") {'."\n".  
  '       alert("Please use the browse button to select a file from your local directory.");'."\n".  
  '       return false;'."\n".  
  '    }'."\n".  
  '    formname.submit();'."\n".  
  '  }'."\n".  
  '</script>'."\n";  
   
     $result.='<table width=100% border=0><tr><td bgcolor=#777777>'."\n";  
     $result.='<table width=100% border=0><tr bgcolor="#e6ffff"><td>'."\n";  
     $result.='&nbsp;<b>Specify a file containing the class scores for above resource</b></td></tr>'."\n";  
     $result.='<tr bgcolor=#ffffe6><td>'."\n";  
     my $upfile_select=&Apache::loncommon::upfile_select_html();  
   $result.=<<ENDUPFORM;  
 <form method="post" enctype="multipart/form-data" action="/adm/grades" name="gradesupload">  
 <input type="hidden" name="symb" value="$symb" />  
 <input type="hidden" name="url" value="$url" />  
 <input type="hidden" name="command" value="csvuploadmap" />  
 $upfile_select  
 <br />&nbsp;<input type="button" onClick="javascript:checkUpload(this.form);" value="Upload Grades" />  
 </form>  
 ENDUPFORM  
     $result.='</td></tr></table>'."\n";  
     $result.='</td></tr></table>'."\n";  
     return $result;  
 }  
   
 #--- Handgrading problems ---  
 sub viewGradeaStu_form {  
     my ($symb,$url,$response,$handgrade) = @_;  
     my ($classlist,$sections) = &getclasslist('all','0');  
     my $result.='<table width=100% border=0><tr><td bgcolor=#777777>'."\n";  
     $result.='<table width=100% border=0><tr bgcolor="#e6ffff"><td>'."\n";  
     $result.='&nbsp;<b>';  
     $result.=($handgrade eq 'yes' ? 'View/Grade' : 'View').' an Individual Student\'s Submission</b></td></tr>'."\n";  
     $result.='<tr bgcolor=#ffffe6><td>'."\n";  
     $result.='<form action="/adm/grades" method="post">'."\n".  
  '<input type="hidden" name="symb" value="'.$symb.'" />'."\n".  
  '<input type="hidden" name="url" value="'.$url.'" />'."\n".  
  '<input type="hidden" name="response" value="'.$response.'" />'."\n".  
  '<input type="hidden" name="handgrade" value="'.$handgrade.'" />'."\n".  
  '<input type="hidden" name="showgrading" value="yes" />'."\n".  
  '<input type="hidden" name="command" value="submission" />'."\n";  
   
     $result.='&nbsp;<b>Select section:</b> <select name="section">'."\n";  
     if (ref($sections)) {  
  foreach (sort (@$sections)) {$result.='<option>'.$_.'</option>'."\n";}  
     }  
     $result.= '<option selected="on">all</select>'."\n";  
     $result.='&nbsp;&nbsp;<b>Display students who has: </b>'.  
  '<input type="radio" name="submitonly" value="yes" checked> submitted'.  
  '<input type="radio" name="submitonly" value="all"> everybody <br />';  
     if (ref($sections)) {  
  $result.='&nbsp;(Section "no" implies the students were not assigned a section.)<br />'   
     if (grep /no/,@$sections);  
     }  
   
   
     $result.='<br />&nbsp;<input type="button" onClick="submit();" value="';  
     if ($handgrade eq 'yes') {  
  $result.="View/Grade";  
     } else {  
  $result.="View";  
     }  
     $result.='" />'."\n".'</form>'."\n";  
     $result.='</td></tr></table>'."\n";  
     $result.='</td></tr></table>'."\n";  
     return $result;  
 }  
   
 #--- Handgrading problems by page/sequence for each student ---  
 sub gradeByPage_form {  
     my ($symb,$url,$response,$handgrade) = @_;  
     my ($classlist,$sections) = &getclasslist('all','0');  
     my $result.='<table width=100% border=0><tr><td bgcolor=#777777>'."\n";  
     $result.='<table width=100% border=0><tr bgcolor="#e6ffff"><td>'."\n";  
     $result.='&nbsp;<b>';  
     $result.='Handgrade an Individual Student\'s by Page/Sequence</b></td></tr>'."\n";  
     $result.='<tr bgcolor=#ffffe6><td>'."\n";  
     $result.='<form action="/adm/grades" method="post">'."\n".  
  '<input type="hidden" name="symb" value="'.$symb.'" />'."\n".  
  '<input type="hidden" name="url" value="'.$url.'" />'."\n".  
  '<input type="hidden" name="response" value="'.$response.'" />'."\n".  
  '<input type="hidden" name="handgrade" value="'.$handgrade.'" />'."\n".  
  '<input type="hidden" name="showgrading" value="yes" />'."\n".  
  '<input type="hidden" name="command" value="pickStudentPage" />'."\n";  
   
     $result.='&nbsp;<b>Select section:</b> <select name="section">'."\n";  
     if (ref($sections)) {  
  foreach (sort (@$sections)) {$result.='<option>'.$_.'</option>'."\n";}  
     }  
     $result.= '<option selected="on">all</select>'."\n";  
   
     $result.='<br />&nbsp;<input type="button" onClick="submit();" value="';  
     $result.='View/Grade'.'" />'."\n".'</form>'."\n";  
     $result.='</td></tr></table>'."\n";  
     $result.='</td></tr></table>'."\n";  
     return $result;  
 }  
   
   
 sub pickStudentPage {  sub pickStudentPage {
     my ($request) = shift;      my ($request) = shift;
   
Line 2308  function checkPickOne(formname) { Line 2329  function checkPickOne(formname) {
  return;   return;
     }      }
     var ptr = pullDownSelection(formname.selectpage);      var ptr = pullDownSelection(formname.selectpage);
     formname.page.value = formname.eval("page"+ptr).value;      formname.page.value = eval("formname.page"+ptr+".value");
     formname.title.value = formname.eval("title"+ptr).value;      formname.title.value = eval("formname.title"+ptr+".value");
     formname.submit();      formname.submit();
 }  }
   
Line 2317  function radioSelection(radioButton) { Line 2338  function radioSelection(radioButton) {
     var selection=null;      var selection=null;
     for (var i=0; i<radioButton.length; i++) {      for (var i=0; i<radioButton.length; i++) {
         if (radioButton[i].checked) {          if (radioButton[i].checked) {
             selection=radioButton[i].value;              return radioButton[i].value;
             return selection;  
         }          }
     }      }
     return selection;      return selection;
Line 2328  function pullDownSelection(selectOne) { Line 2348  function pullDownSelection(selectOne) {
     var selection=null;      var selection=null;
     for (var i=0; i<selectOne.length; i++) {      for (var i=0; i<selectOne.length; i++) {
         if (selectOne[i].selected) {          if (selectOne[i].selected) {
             selection=selectOne[i].value;              return selectOne[i].value;
             return selection;  
         }          }
     }      }
 }  }
 </script>  </script>
 LISTJAVASCRIPT  LISTJAVASCRIPT
   
     my ($symb,$url) = &get_symb_and_url();      my ($symb,$url) = &get_symb_and_url($request);
     my $cdom      = $ENV{"course.$ENV{'request.course.id'}.domain"};      my $cdom      = $ENV{"course.$ENV{'request.course.id'}.domain"};
     my $cnum      = $ENV{"course.$ENV{'request.course.id'}.num"};      my $cnum      = $ENV{"course.$ENV{'request.course.id'}.num"};
     my $getsec    = $ENV{'form.section'} eq '' ? 'all' : $ENV{'form.section'};      my $getsec    = $ENV{'form.section'} eq '' ? 'all' : $ENV{'form.section'};
Line 2344  LISTJAVASCRIPT Line 2363  LISTJAVASCRIPT
     my $result='<h3><font color="#339933">&nbsp;'.      my $result='<h3><font color="#339933">&nbsp;'.
  'Manual Grading by Page or Sequence</font></h3>';   'Manual Grading by Page or Sequence</font></h3>';
   
     my ($pagepath,$pagename,$type,$mapId) = ($symb =~ /(.*\/)(.*?\.(page|sequence))___(\d+)___/);   
     my $curtitle = &Apache::lonnet::metadata($pagepath.$pagename,'title');  
   
     $result.='<form action="/adm/grades" method="post" name="displayPage">'."<br>\n";      $result.='<form action="/adm/grades" method="post" name="displayPage">'."<br>\n";
     $result.='&nbsp;<b>Problems from:</b> <select name="selectpage">'."\n";      $result.='&nbsp;<b>Problems from:</b> <select name="selectpage">'."\n";
     my ($titles,$symbx) = &getSymbMap();      my ($titles,$symbx) = &getSymbMap($request);
 #    shift @$titles; # skip the top level sequence      my ($curpage,$type,$mapId) = ($symb =~ /(.*?\.(page|sequence))___(\d+)___/); 
     my $ctr=0;      my $ctr=0;
     foreach (@$titles) {      foreach (@$titles) {
  my ($minder,$showtitle) = ($_ =~ /(\d+)\.(.*)/);   my ($minder,$showtitle) = ($_ =~ /(\d+)\.(.*)/);
  $result.='<option value="'.$ctr.'" '.   $result.='<option value="'.$ctr.'" '.
     ($showtitle eq $curtitle ? 'selected="on"' : '').'>'.$showtitle.'</option>'."\n";      ($$symbx{$_} =~ /$curpage$/ ? 'selected="on"' : '').
       '>'.$showtitle.'</option>'."\n";
  $ctr++;   $ctr++;
     }      }
     $result.= '</select>'."<br>\n";      $result.= '</select>'."<br>\n";
Line 2366  LISTJAVASCRIPT Line 2383  LISTJAVASCRIPT
  $result.='<input type="hidden" name="title'.$ctr.'" value="'.$showtitle.'" />'."\n";   $result.='<input type="hidden" name="title'.$ctr.'" value="'.$showtitle.'" />'."\n";
  $ctr++;   $ctr++;
     }      }
     $result.='<input type="hidden" name="page" />'."\n";      $result.='<input type="hidden" name="page" />'."\n".
     $result.='<input type="hidden" name="title" />'."\n";   '<input type="hidden" name="title" />'."\n";
   
       $result.='&nbsp;<b>View Problems: </b><input type="radio" name="vProb" value="no" checked /> no '."\n".
    '<input type="radio" name="vProb" value="yes" /> yes '."<br>\n";
   
       $result.='&nbsp;<b>Submission Details: </b>'.
    '<input type="radio" name="lastSub" value="none" /> none'."\n".
    '<input type="radio" name="lastSub" value="datesub" checked /> dates and submissions'."\n".
    '<input type="radio" name="lastSub" value="all" /> all details'."\n";
   
 #    $result.='&nbsp;<b>View Problems: </b><input type="radio" name="vProb" value="no" checked /> no '."\n".  
 # '<input type="radio" name="vProb" value="yes" /> yes '."<br>\n";  
 #    $result.='&nbsp;<b>Submission Details: </b>'.  
 # '<input type="radio" name="lastSub" value="last" checked /> last sub only'."\n".  
 # '<input type="radio" name="lastSub" value="all" /> all details'."\n";  
     $result.='<input type="hidden" name="section"     value="'.$getsec.'" />'."\n".      $result.='<input type="hidden" name="section"     value="'.$getsec.'" />'."\n".
  '<input type="hidden" name="command"  value="displayPage" />'."\n".   '<input type="hidden" name="command" value="displayPage" />'."\n".
  '<input type="hidden" name="url"  value="'.$url.'" />'."\n".   '<input type="hidden" name="url"     value="'.$url.'" />'."\n".
  '<input type="hidden" name="symb" value="'.$symb.'" />'."<br><br>\n";   '<input type="hidden" name="symb"    value="'.$symb.'" />'."<br><br>\n".
    '<input type="hidden" name="lastCmd" value="'.$ENV{'form.lastCmd'}.'" />'."\n".
    '<input type="hidden" name="lastSec" value="'.$ENV{'form.lastSec'}.'" />'."\n";
   
       $result.='<br />&nbsp;<input type="button" '.
    'onClick="javascript:checkPickOne(this.form);"value="Submit" /><br />'."\n";
   
     $request->print($result);      $request->print($result);
   
     my $studentTable.='&nbsp;<b>Select a Student you wish to grade</b><br>'.      my $studentTable.='&nbsp;<b>Select a Student you wish to grade</b><br>'.
Line 2412  LISTJAVASCRIPT Line 2438  LISTJAVASCRIPT
 }  }
   
 sub getSymbMap {  sub getSymbMap {
     my $navmap = Apache::lonnavmaps::navmap-> new(      my ($request) = @_;
       my $navmap = Apache::lonnavmaps::navmap-> new($request,
   $ENV{'request.course.fn'}.'.db',    $ENV{'request.course.fn'}.'.db',
   $ENV{'request.course.fn'}.'_parms.db',1, 1);    $ENV{'request.course.fn'}.'_parms.db',1, 1);
   
Line 2434  sub getSymbMap { Line 2461  sub getSymbMap {
         if ($curRes == $iterator->END_MAP()) { $depth--; }          if ($curRes == $iterator->END_MAP()) { $depth--; }
   
         if (ref($curRes) && $curRes->is_map()) {          if (ref($curRes) && $curRes->is_map()) {
             my $title = $curRes->compTitle();      my ($mapUrl, $id, $resUrl) = split(/___/, $curRes->symb()); # check map contains at least one problem
     push @titles,$minder.'.'.$title; # minder, just in case two titles are identical      my $map = $navmap->getResourceByUrl($resUrl); # add to navmaps
     $symbx{$minder.'.'.$title} = $curRes->symb();  
     $minder++;      my $mapiterator = $navmap->getIterator($map->map_start(),
      $map->map_finish());
   
       my $mapdepth = 1;
       my $countProblems = 0;
       $mapiterator->next(); # skip the first BEGIN_MAP
       my $mapcurRes = $mapiterator->next(); # for "current resource"
       my $ctr=0;
       while ($mapdepth > 0 && $ctr < 100) {
    if($mapcurRes == $mapiterator->BEGIN_MAP) { $mapdepth++; }
    if($mapcurRes == $mapiterator->END_MAP) { $mapdepth++; }
   
    if (ref($mapcurRes) && $mapcurRes->is_problem() && !$mapcurRes->randomout) {
       $countProblems++;
    }
    $ctr++;
       }
       if ($countProblems > 0) {
    my $title = $curRes->compTitle();
    push @titles,$minder.'.'.$title; # minder, just in case two titles are identical
    $symbx{$minder.'.'.$title} = $curRes->symb();
    $minder++;
       }
        }         }
         $curRes = $iterator->next();          $curRes = $iterator->next();
     }      }
Line 2446  sub getSymbMap { Line 2495  sub getSymbMap {
     return \@titles,\%symbx;      return \@titles,\%symbx;
 }  }
   
   #
   #--- Displays a page/sequence w/wo problems, w/wo submissions
 sub displayPage {  sub displayPage {
     my ($request) = shift;      my ($request) = shift;
   
       my ($symb,$url) = &get_symb_and_url($request);
     my $cdom      = $ENV{"course.$ENV{'request.course.id'}.domain"};      my $cdom      = $ENV{"course.$ENV{'request.course.id'}.domain"};
     my $cnum      = $ENV{"course.$ENV{'request.course.id'}.num"};      my $cnum      = $ENV{"course.$ENV{'request.course.id'}.num"};
     my $getsec    = $ENV{'form.section'} eq '' ? 'all' : $ENV{'form.section'};      my $getsec    = $ENV{'form.section'} eq '' ? 'all' : $ENV{'form.section'};
     my $pageTitle = $ENV{'form.page'};      my $pageTitle = $ENV{'form.page'};
     my (undef,undef,$fullname) = &getclasslist($getsec,'0');      my (undef,undef,$fullname) = &getclasslist($getsec,'0');
     my ($uname,$udom) = split(/:/,$ENV{'form.student'});      my ($uname,$udom) = split(/:/,$ENV{'form.student'});
     my ($idx,$showtitle) = ($pageTitle =~ /(\d+)\.(.*)/);  
   
     my $result='<h3><font color="#339933">&nbsp;'.$ENV{'form.title'}.'</font></h3>';      my $result='<h3><font color="#339933">&nbsp;'.$ENV{'form.title'}.'</font></h3>';
     $result.='<h3>&nbsp;Student: '.$$fullname{$ENV{'form.student'}}.      $result.='<h3>&nbsp;Student: '.$$fullname{$ENV{'form.student'}}.
  '<font color="#999999"> ('.$uname.($udom eq $cdom ? '':':'.$udom).')</font></h3>'."\n";   '<font color="#999999"> ('.$uname.($udom eq $cdom ? '':':'.$udom).')</font></h3>'."\n";
   
     my $navmap = Apache::lonnavmaps::navmap-> new(      &sub_page_js($request);
       $request->print($result);
   
       my $navmap = Apache::lonnavmaps::navmap-> new($request,
   $ENV{'request.course.fn'}.'.db',    $ENV{'request.course.fn'}.'.db',
   $ENV{'request.course.fn'}.'_parms.db',1, 1);    $ENV{'request.course.fn'}.'_parms.db',1, 1);
     my ($mapUrl, $id, $resUrl) = split(/___/, $ENV{'form.page'});      my ($mapUrl, $id, $resUrl) = split(/___/, $ENV{'form.page'});
Line 2470  sub displayPage { Line 2524  sub displayPage {
     my $iterator = $navmap->getIterator($map->map_start(),      my $iterator = $navmap->getIterator($map->map_start(),
  $map->map_finish());   $map->map_finish());
   
     my $depth = 1;      my $studentTable='<form action="/adm/grades" method="post" name="gradePage">'."\n".
    '<input type="hidden" name="command" value="gradeByPage" />'."\n".
    '<input type="hidden" name="student" value="'.$ENV{'form.student'}.'" />'."\n".
    '<input type="hidden" name="page"    value="'.$pageTitle.'" />'."\n".
    '<input type="hidden" name="title"   value="'.$ENV{'form.title'}.'" />'."\n".
    '<input type="hidden" name="url"     value="'.$url.'" />'."\n".
    '<input type="hidden" name="symb"    value="'.$symb.'" />'."\n".
    '<input type="hidden" name="lastCmd" value="'.$ENV{'form.lastCmd'}.'" />'."\n".
    '<input type="hidden" name="lastSec" value="'.$ENV{'form.lastSec'}.'" />'."\n";
   
       my $checkIcon = '<img src="'.$request->dir_config('lonIconsURL').
    '/check.gif" height="16" border="0" />';
   
       $studentTable.='&nbsp;<b>Note:</b> A problem graded correct ('.$checkIcon.
    ') by the computer cannot be changed.'."\n".
    '<table border="0"><tr><td bgcolor="#777777">'.
    '<table border="0"><tr bgcolor="#e6ffff">'.
    '<td align="center"><b>&nbsp;No&nbsp;</b></td>'.
    '<td><b>&nbsp;'.($ENV{'form.vProb'} eq 'no' ? 'Title' : 'Problem View').'/Grade</b></td></tr>';
   
       my ($depth,$ctr,$question) = (1,0,1);
     $iterator->next(); # skip the first BEGIN_MAP      $iterator->next(); # skip the first BEGIN_MAP
     my $curRes = $iterator->next(); # for "current resource"      my $curRes = $iterator->next(); # for "current resource"
     my %symbx = ();  
     my @titles = ();  
     my %parts = ();  
     my $ctr=0;  
     my $minder=0;  
     while ($depth > 0 && $ctr < 100) { # ctr, just in case it never gets out of loop      while ($depth > 0 && $ctr < 100) { # ctr, just in case it never gets out of loop
         if($curRes == $iterator->BEGIN_MAP) { $depth++; }          if($curRes == $iterator->BEGIN_MAP) { $depth++; }
         if($curRes == $iterator->END_MAP) { $depth++; }          if($curRes == $iterator->END_MAP) { $depth++; }
   
         if (ref($curRes) && $curRes->is_problem() && !$curRes->randomout) {          if (ref($curRes) && $curRes->is_problem() && !$curRes->randomout) {
     my $parts = $curRes->parts();      my $parts = $curRes->parts();
       $parts = &temp_parts_fix($parts); # remove line when lonnavmap is fixed
             my $title = $curRes->compTitle();              my $title = $curRes->compTitle();
     push @titles,$minder.'.'.$title; # minder, just in case two titles are identical      my $symbx = $curRes->symb();
     if (scalar(@{$parts}) > 1) { shift @{$parts}; }      $studentTable.='<tr bgcolor="#ffffe6"><td align="center" valign="top" >'.$question.
     $parts{$minder.'.'.$title} = join '::',@{$parts};   (scalar(@{$parts}) == 1 ? '' : '<br>('.scalar(@{$parts}).'&nbsp;parts)').'</td>';
             $symbx{$minder.'.'.$title} = $curRes->symb();      $studentTable.='<td valign="top">';
     $minder++;      if ($ENV{'form.vProb'} eq 'yes') {
    $studentTable.=&show_problem($request,$symbx,$uname,$udom,1);
       } else {
    my $companswer = &Apache::loncommon::get_student_answers(
    $symbx,$uname,$udom,$ENV{'request.course.id'});
    $companswer=~s|<form(.*?)>||g;
    $companswer=~s|</form>||g;
   
   # while ($companswer =~ /(<a href\=\"javascript:newWindow.*?Script Vars<\/a>)/s) { #<a href="javascript:newWindow</a>
   #    $request->print('match='.$1.'<br>');
   #    $companswer =~ s/$1/ /s;
   # }
   # $companswer =~ s/<table border=\"1\">/<table border=\"0\">/g;
    $studentTable.='&nbsp;<b>'.$title.'</b>&nbsp;<br>&nbsp;<b>Correct answer:</b><br>'.$companswer;
       }
   
       my %record = &Apache::lonnet::restore($symbx,$ENV{'request.course.id'},$udom,$uname);
   
       if ($ENV{'form.lastSub'} eq 'datesub') {
    if ($record{'version'} eq '') {
       $studentTable.='<br />&nbsp;<font color="red">No recorded submission for this problem</font><br />';
    } else {
       $studentTable.='<table border="0" width="100%"><tr><td bgcolor="#777777">'.
    '<table border="0" width="100%"><tr bgcolor="#e6ffff">'.
    '<td><b>Date/Time</b></td>'.
    '<td><b>Submission</b></td>'.
    '<td><b>Status&nbsp;</b></td></tr>';
       my ($version);
       for ($version=1;$version<=$record{'version'};$version++) {
    my $timestamp = scalar(localtime($record{$version.':timestamp'}));
    $studentTable.='<tr bgcolor="#ffffff" valign="top"><td>'.$timestamp.'</td>';
    my @versionKeys = split(/\:/,$record{$version.':keys'});
    my @displaySub = ();
    foreach my $partid (@{$parts}) {
       my @matchKey = grep /^resource\.$partid\..*?\.submission$/,@versionKeys;
       $displaySub[0].=(exists $record{$version.':'.$matchKey[0]}) ? 
    '<b>Part:</b> '.$partid.'&nbsp;<b>Submission:</b>&nbsp;'
    .$record{$version.':'.$matchKey[0]}.'<br />' : '';
       $displaySub[1].=(exists $record{"$version:resource.$partid.award"}) ?
    '<b>Part:</b> '.$partid.'&nbsp;'.
    $record{"$version:resource.$partid.award"}.'/'.
    $record{"$version:resource.$partid.solved"}.'<br />' : '';
       $displaySub[2].=(exists $record{"$version:resource.$partid.regrader"}) ?
    $record{"$version:resource.$partid.regrader"}.' (<b>Part:</b> '.$partid.')' : '';
    }
    $displaySub[2].=(exists $record{"$version:resource.regrader"}) ?
       $record{"$version:resource.regrader"} : '';
    $studentTable.='<td>'.$displaySub[0].'&nbsp;</td><td>'.$displaySub[1].
       ($displaySub[2] eq '' ? '' : 'Manually graded by '.$displaySub[2]).'&nbsp;</td></tr>';
       }
       $studentTable.='</table></td></tr></table>';
    }
       } elsif ($ENV{'form.lastSub'} eq 'all') {
    my $last = ($ENV{'form.lastSub'} eq 'last' ? 'last' : '');
    $studentTable.=&Apache::loncommon::get_previous_attempt($symbx,$uname,$udom,
    $ENV{'request.course.id'},
    '','.submission');
    
       }
   
       foreach my $partid (@{$parts}) {
    $studentTable.=&gradeBox($request,$symbx,$uname,$udom,$question,$partid,\%record);
    $studentTable.='<input type="hidden" name="q_'.$question.'" value="'.$partid.'" />'."\n";
    $question++;
       }
       $studentTable.='</td></tr>';
   
        }         }
         $curRes = $iterator->next();          $curRes = $iterator->next();
  $ctr++;   $ctr++;
     }      }
   
       $studentTable.='</td></tr></table></td></tr></table>'."\n".
    '&nbsp;&nbsp;<input type="button" value="Save" '.
    'onClick="javascript:checkSubmitPage(this.form,'.$question.');" TARGET=_self />'.
    '</form>'."\n";
       $studentTable.=&show_grading_menu_form($symb,$url);
       $request->print($studentTable);
   
       return '';
   }
   
   sub temp_parts_fix { #remove sub once lonnavmap is fixed
       my $parts = shift;
       my %seen = ();
       my @correctParts = ();
       foreach (@{$parts}) {
    next if ($seen{$_} > 0);
    $seen{$_}++;
    push @correctParts,$_;
       }
       return \@correctParts;
   }
   
   sub updateGradeByPage {
       my ($request) = shift;
   
       my $cdom      = $ENV{"course.$ENV{'request.course.id'}.domain"};
       my $cnum      = $ENV{"course.$ENV{'request.course.id'}.num"};
       my $getsec    = $ENV{'form.section'} eq '' ? 'all' : $ENV{'form.section'};
       my $pageTitle = $ENV{'form.page'};
       my (undef,undef,$fullname) = &getclasslist($getsec,'0');
       my ($uname,$udom) = split(/:/,$ENV{'form.student'});
   
       my $result='<h3><font color="#339933">&nbsp;'.$ENV{'form.title'}.'</font></h3>';
       $result.='<h3>&nbsp;Student: '.$$fullname{$ENV{'form.student'}}.
    '<font color="#999999"> ('.$uname.($udom eq $cdom ? '':':'.$udom).')</font></h3>'."\n";
   
     $navmap->init();  
     $request->print($result);      $request->print($result);
     &sub_page_js($request);  
   
     my $studentTable='<form action="/adm/grades" method="post" name="gradePage">'."\n".      my $navmap = Apache::lonnavmaps::navmap-> new($request,
  '<input type="hidden" name="command"  value="gradePage" />'."\n".    $ENV{'request.course.fn'}.'.db',
  '<input type="hidden" name="student"  value="'.$ENV{'form.student'}.'" />'."\n".    $ENV{'request.course.fn'}.'_parms.db',1, 1);
  '<input type="hidden" name="page"  value="'.$pageTitle.'" />'."\n".      my ($mapUrl, $id, $resUrl) = split(/___/, $ENV{'form.page'});
  '<input type="hidden" name="title" value="'.$ENV{'form.title'}.'" />'."\n";      my $map = $navmap->getResourceByUrl($resUrl); # add to navmaps
   
     $studentTable.=      my $iterator = $navmap->getIterator($map->map_start(),
  '<table border="0"><tr><td bgcolor="#777777">'.   $map->map_finish());
   
       my $studentTable='<table border="0"><tr><td bgcolor="#777777">'.
  '<table border="0"><tr bgcolor="#e6ffff">'.   '<table border="0"><tr bgcolor="#e6ffff">'.
  '<td align="center"><b>&nbsp;No&nbsp;</b></td>'.   '<td align="center"><b>&nbsp;No&nbsp;</b></td>'.
  '<td><b>&nbsp;Title</b></td>'.   '<td><b>&nbsp;Title&nbsp;</b></td>'.
  '<td><b>&nbsp;Answer</b></td>'.   '<td><b>&nbsp;Previous Score&nbsp;</b></td>'.
  '<td><b>&nbsp;Grade</b></td></tr>';   '<td><b>&nbsp;New Score&nbsp;</b></td></tr>';
     my $question=1;  
     foreach (@titles) {  
  my ($minder,$showtitle) = ($_ =~ /(\d+)\.(.*)/);  
  my @parts = split(/::/,$parts{$_});  
  $studentTable.='<tr bgcolor="#ffffe6"><td align="center" valign="top" >'.$question.  
     (scalar(@parts) == 1 ? '' : '<br>('.scalar(@parts).'&nbsp;parts)').'</td>';  
  $studentTable.='<td valign="top">&nbsp;'.$showtitle.'&nbsp;</td>';  
  $studentTable.='<td>&nbsp;'.  
     &Apache::loncommon::get_student_answers($symbx{$_},$uname,$udom,$ENV{'request.course.id'}).'</td>';  
   
  my %record = &Apache::lonnet::restore($symbx{$_},$ENV{'request.course.id'},$udom,$uname);      $iterator->next(); # skip the first BEGIN_MAP
  $studentTable.='<td>&nbsp;';      my $curRes = $iterator->next(); # for "current resource"
  foreach my $partid (@parts) {      my ($depth,$ctr,$question,$changeflag)= (1,0,1,0);
     $studentTable.=&gradeBox($symbx{$_},$uname,$udom,$question,$partid,\%record);      while ($depth > 0 && $ctr < 100) { # ctr, just in case it never gets out of loop
     $question++;          if($curRes == $iterator->BEGIN_MAP) { $depth++; }
  }          if($curRes == $iterator->END_MAP) { $depth++; }
  $studentTable.='</td></tr>';  
   
     }          if (ref($curRes) && $curRes->is_problem() && !$curRes->randomout) {
       my $parts = $curRes->parts();
       $parts = &temp_parts_fix($parts); # remove line when lonnavmap is fixed
               my $title = $curRes->compTitle();
       my $symbx = $curRes->symb();
       $studentTable.='<tr bgcolor="#ffffe6"><td align="center" valign="top" >'.$question.
    (scalar(@{$parts}) == 1 ? '' : '<br>('.scalar(@{$parts}).'&nbsp;parts)').'</td>';
       $studentTable.='<td valign="top">&nbsp;<b>'.$title.'</b>&nbsp;</td>';
   
       my %newrecord=();
       my @displayPts=();
       foreach my $partid (@{$parts}) {
    my $newpts = $ENV{'form.GD_BOX'.$question.'_'.$partid};
    my $oldpts = $ENV{'form.oldpts'.$question.'_'.$partid};
   
    my $wgt = $ENV{'form.WGT'.$question.'_'.$partid} != 0 ? 
       $ENV{'form.WGT'.$question.'_'.$partid} : 1;
    my $partial = $newpts/$wgt;
    my $score;
    if ($partial > 0) {
       $score = 'correct_by_override';
    } elsif ($partial == 0) {
       $score = 'incorrect_by_override';
    }
    if ($ENV{'form.GD_SEL'.$question.'_'.$partid} eq 'excused') {
       $partial = '';
       $score = 'excused';
    }
    my $oldstatus = $ENV{'form.solved'.$question.'_'.$partid};
    $displayPts[0].='&nbsp;<b>Part</b> '.$partid.' = '.
       (($oldstatus eq 'excused') ? 'excused' : $oldpts).
       '&nbsp;<br>';
    $displayPts[1].='&nbsp;<b>Part</b> '.$partid.' = '.
       ($oldstatus eq 'correct_by_student' ? $oldpts :
        (($score eq 'excused') ? 'excused' : $newpts)).
       '&nbsp;<br>';
   
    $question++;
    if (($oldstatus eq 'correct_by_student') ||
       ($newpts eq $oldpts && $score eq $oldstatus))
    {
       next;
    }
    $newrecord{'resource.'.$partid.'.awarded'}  = $partial if $partial ne '';
    $newrecord{'resource.'.$partid.'.solved'}   = $score;
    $newrecord{'resource.'.$partid.'.regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";
   
    $changeflag++;
       }
       if (scalar(keys(%newrecord)) > 0) {
    &Apache::lonnet::cstore(\%newrecord,$symbx,$ENV{'request.course.id'},
    $udom,$uname);
       }
       $studentTable.='<td valign="top">'.$displayPts[0].'</td>'.
    '<td valign="top">'.$displayPts[1].'</td>'.
    '</tr>';
   
     $studentTable.='</table></td></tr></table>';   }
     $studentTable.='</form>';          $curRes = $iterator->next();
    $ctr++;
       }
   
       $studentTable.='</td></tr></table></td></tr></table>';
       $studentTable.=($changeflag == 0 ? 'No score was changed or updated.' :
       'The scores were changed for '.
       $changeflag.' problem'.($changeflag == 1 ? '.' : 's.'));
       $studentTable.=&show_grading_menu_form($ENV{'form.symb'},$ENV{'form.url'});
     $request->print($studentTable);      $request->print($studentTable);
   
     return '';      return '';
 }  }
   
 sub gradeBox {  #-------- end of section for handling grading by page/sequence ---------
     my ($symb,$uname,$udom,$counter,$partid,$record) = @_;  #
     my $wgt    = &Apache::lonnet::EXT('resource.'.$partid.'.weight',$symb,$udom,$uname);  #-------------------------------------------------------------------
     my $wgtmsg = ($wgt > 0 ? '(problem weight)' :   
   '<font color="red">problem weight assigned by computer</font>');  
     $wgt       = ($wgt > 0 ? $wgt : '1');  
     my $score  = ($$record{'resource.'.$partid.'.awarded'} eq '' ?  
   '' : $$record{'resource.'.$partid.'.awarded'}*$wgt);  
     my $result='<input type="hidden" name="WGT'.$counter.'_'.$partid.'" value="'.$wgt.'" />';  
     $result.='<table border="0"><tr><td><b>Part </b>'.$partid.' <b>Points: </b></td><td>';  
   
     my $ctr = 0;  #--------------------Scantron Grading-----------------------------------
     $result.='<table border="0"><tr>';  # display radio buttons in a nice table 10 across  #
     while ($ctr<=$wgt) {  #------ start of section for handling grading by page/sequence ---------
  $result.= '<td><input type="radio" name="RADVAL'.$counter.'_'.$partid.'" '.  
     'onclick="javascript:writeBox(this.form.GD_BOX'.$counter.'_'.$partid.  sub getSequenceDropDown {
     ',this.form.GD_SEL'.$counter.'_'.$partid.','.$ctr.      my ($request,$symb)=@_;
     ',this.form.stores'.$counter.'_'.$partid.')" '.      my $result='<select name="selectpage">'."\n";
     ($score eq $ctr ? 'checked':'').' /> '.$ctr."</td>\n";      my ($titles,$symbx) = &getSymbMap($request);
  $result.=(($ctr+1)%10 == 0 ? '</tr><tr>' : '');      my ($curpage,$type,$mapId) = ($symb =~ /(.*?\.(page|sequence))___(\d+)___/); 
       my $ctr=0;
       foreach (@$titles) {
    my ($minder,$showtitle) = ($_ =~ /(\d+)\.(.*)/);
    $result.='<option value="'.$$symbx{$_}.'" '.
       ($$symbx{$_} =~ /$curpage$/ ? 'selected="on"' : '').
       '>'.$showtitle.'</option>'."\n";
  $ctr++;   $ctr++;
     }      }
     $result.='</tr></table>';      $result.= '</select>';
     $result.='</td><td>&nbsp;<b>or</b>&nbsp;</td>';      return $result;
     $result.='<td><input type="text" name="GD_BOX'.$counter.'_'.$partid.'"'.  }
  ($score ne ''? ' value = "'.$score.'"':'').' size="4" '.  
  'onChange="javascript:updateRadio(this.form.RADVAL'.$counter.'_'.$partid.  sub scantron_selectphase {
  ',this.form.GD_BOX'.$counter.'_'.$partid.      my ($r) = @_;
  ',this.form.GD_SEL'.$counter.'_'.$partid.      my ($symb,$url)=&get_symb_and_url($r);
  ',this.form.stores'.$counter.'_'.$partid.      if (!$symb) {return '';}
  ','.$wgt.')" /></td>'."\n";      my $sequence_selector=&getSequenceDropDown($r,$symb);
     $result.='<td>/'.$wgt.' '.$wgtmsg.' </td><td>';      my $result;
       $result.= <<SCANTRONFORM;
   <form method="post" enctype="multipart/form-data" action="/adm/grades" name="scantronupload">
     <input type="hidden" name="symb" value="$symb" />
     <input type="hidden" name="url" value="$url" />
     <input type="hidden" name="command" value="scantron_configphase" />
     <table width="100%" border="0">
       <tr>
         <td bgcolor="#777777">
           <table width="100%" border="0">
             <tr bgcolor="#e6ffff">
               <td>
                 &nbsp;<b>Specify file location and which Folder/Sequence to grade</b>
               </td>
             </tr>
             <tr bgcolor="#ffffe6">
               <td>
                  Sequence to grade: $sequence_selector
       </td>
             </tr>
             <tr bgcolor="#ffffe6">
               <td>
    <!-- FIXME I need to present a list of files from a specfic directory that has been configured, or any existing delay queues -->
    Filename of scoring office file:
    <select name="selectfile">
       <option value="filname1">filename1</option>
       <option value="filname2">filename2</option>
    </select>
       </td>
             </tr>
           </table>
         </td>
       </tr>
     </table>
     <input type="submit" value="Submit" />
   </form>
   SCANTRONFORM
   
     $result.='<select name="GD_SEL'.$counter.'_'.$partid.'" '.  
  'onChange="javascript:clearRadBox(this.form.RADVAL'.$counter.'_'.$partid.  
  ',this.form.GD_BOX'.$counter.'_'.$partid.  
  ',this.form.GD_SEL'.$counter.'_'.$partid.  
  ',this.form.stores'.$counter.'_'.$partid.')" >'."\n";  
     if ($$record{'resource.'.$partid.'.solved'} eq 'excused') {  
  $result.='<option> </option>'.  
     '<option selected="on">excused</option></select>';  
     } else {  
  $result.='<option selected="on"> </option>'.  
     '<option>excused</option></select>';  
     }  
     $result.="&nbsp&nbsp\n";  
     $result.='<input type="hidden" name="stores'.$counter.'_'.$partid.'" value="0" />';  
     $result.='</td></tr></table>'."\n";  
     return $result;      return $result;
 }  }
   
 #--- Form to input a receipt number ---  sub scantron_configphase {
 sub verifyReceipt_form {      my ($r) = @_;
     my ($symb,$url) = @_;      my $sequence=$ENV{'form.selectpage'};
     my $result = '<script type="text/javascript" language="javascript">'."\n".      my $result;
  '  function checkEntry(formname) {'."\n".      $result.="got page $sequence";
  '    var receipt = formname.receipt.value;'."\n".      $Apache::lonxml::debug=1;
  '    if (isNaN(receipt) || receipt == "") {'."\n".      &Apache::lonhomework::showhash(%ENV);
  '       alert("Please enter a receipt number given by a student in the box.");'."\n".      $Apache::lonxml::debug=0;
  '       return false;'."\n".      #FIXME Needs to present some lines from the file and allow the instructor to specify which columns represent what data, possibly have some nice defaults setup, probably should do a pass through all problems for a student to get an idea of how many questions there are, and homw many lines we'll have,
  '    }'."\n".      return $result;
  '    formname.submit();'."\n".  }
  '  }'."\n".  
  '</script>'."\n";  
   
     my $hostver=unpack("%32C*",$Apache::lonnet::perlvar{'lonHostID'});  sub scantron_process_students {
       #FIXME
       #   loop through students, {
       #      Check if studnet info valid, if not add line to delay queue
       #      foreach question 'submit' the students answer to the server
       #             through grade target {
       #         generate data to pass back that includes grade recevied
       #      }
       #   }
       #   loop through delay queue {
       #      print out each delayed student with interface to select how
       #          to repair student provided info
       #       Expected errors include
       #           1 bad/no stuid/username
       #           2 invalid bubblings
       #   }
       # if delay queue exists 2 submits one to process delayed students one
       #     to ignore delayed students, possibly saving the delay queue for later
   
     $result.='<table width=100% border=0><tr><td bgcolor=#777777>'."\n";  }
     $result.='<table width=100% border=0><tr><td bgcolor=#e6ffff>'."\n";  #-------- end of section for handling grading scantron forms -------
     $result.='&nbsp;<b>Verify a Submission Receipt Issued by this Server</td></tr>'."\n";  #
     $result.='<tr bgcolor=#ffffe6><td>'."\n";  #-------------------------------------------------------------------
     $result.='<form action="/adm/grades" method="post" name="verifyform">'."\n";  
     $result.='&nbsp;<tt>'.$hostver.'-<input type="text" name="receipt" size="4"></tt><br />'."\n";  
     $result.='&nbsp;<input type="button" onClick="javascript:checkEntry(this.form);"'.  #-------------------------- Menu interface -------------------------
  ' value="Verify Receipt">'."\n";  #
     $result.='<input type="hidden" name="command" value="verify">'."\n";  #--- Show a Grading Menu button - Calls the next routine ---
     if ($ENV{'form.url'}) {  sub show_grading_menu_form {
  $result.='<input type="hidden" name="url" value="'.$ENV{'form.url'}.'" />';      my ($symb,$url)=@_;
       my $result.='<form action="/adm/grades" method="post">'."\n".
    '<input type="hidden" name="symb" value="'.$symb.'" />'."\n".
    '<input type="hidden" name="url" value="'.$url.'" />'."\n".
    '<input type="hidden" name="lastCmd" value="'.$ENV{'form.lastCmd'}.'" />'."\n".
    '<input type="hidden" name="lastSec" value="'.$ENV{'form.lastSec'}.'" />'."\n".
    '<input type="hidden" name="command" value="gradingmenu" />'."\n".
    '<input type="submit" name="submit" value="Grading Menu" />'."\n".
    '</form>'."\n";
       return $result;
   }
   
   #--- Displays the main menu page -------
   sub gradingmenu {
       my ($request) = @_;
       my ($symb,$url)=&get_symb_and_url($request);
       if (!$symb) {return '';}
   
       $request->print(<<GRADINGMENUJS);
   <script type="text/javascript" language="javascript">
       function checkChoice(formname) {
    var cmd = formname.command;
    formname.lastCmd.value = radioSelection(formname.command);
    formname.lastSec.value = pullDownSelection(formname.section);
    if (cmd[0].checked || cmd[1].checked || cmd[2].checked || cmd[4].checked) {
       formname.submit();
    }
   
    if (cmd[3].checked) {
       var url = "/adm/grades?command=csvform&symb="+formname.symb.value+"&url="+formname.url.value;
       var options = "width=620,height=340,screenx=70,screeny=75,";
       options += "resizable=no,scrollbars=no,status=no,";
       options += "menubar=no,toolbar=no,location=no,directories=no";
       var newWin = window.open(url, "CSVFile", options);
       newWin.focus();
    }
   
    if (cmd[5].checked) {
       if (!checkReceiptNo(formname,'notOK')) { return false;}
       formname.submit();
    }
     }      }
     if ($ENV{'form.symb'}) {  
  $result.='<input type="hidden" name="symb" value="'.$ENV{'form.symb'}.'" />';      function checkReceiptNo(formname,nospace) {
    var receiptNo = formname.receipt.value;
    var checkOpt = false;
    if (nospace == "OK" && isNaN(receiptNo)) {checkOpt = true;}
    if (nospace == "notOK" && (isNaN(receiptNo) || receiptNo == "")) {checkOpt = true;}
    if (checkOpt) {
       alert("Please enter a receipt number given by a student in the receipt box.");
       formname.receipt.value = "";
       formname.receipt.focus();
       return false;
    }
    formname.command[4].checked = true;
    return true;
     }      }
     $result.='</form>';  
     $result.='</td></tr></table>'."\n";      function radioSelection(radioButton) {
     $result.='</td></tr></table>'."\n";   var selection=null;
    for (var i=0; i<radioButton.length; i++) {
       if (radioButton[i].checked) {
    return radioButton[i].value;
       }
    }
    return selection;
       }
   
       function pullDownSelection(selectOne) {
    var selection="";
    for (var i=0; i<selectOne.length; i++) {
       if (selectOne[i].selected) {
    return selectOne[i].value;
       }
    }
       }
   </script>
   GRADINGMENUJS
   
       my $probTitle = &Apache::lonnet::gettitle($ENV{'form.url'});
       my $result='<h3>&nbsp;<font color="#339933">Manual Grading/View Submission</font></h3>'.
    '<table border="0">'.
    '<tr><td colspan=3><font size=+1><b>Problem: </b>'.$probTitle.'</font></td></tr>';
       my ($partlist,$handgrade) = &response_type($url);
       my ($resptype,$hdgrade)=('','no');
       for (sort keys(%$handgrade)) {
    my ($responsetype,$handgrade)=split(/:/,$$handgrade{$_});
    $resptype = $responsetype;
    $hdgrade = $handgrade if ($handgrade eq 'yes');
    $result.='<tr><td><b>Part </b>'.(split(/_/))[0].'</td>'.
       '<td><b>Type: </b>'.$responsetype.'</td>'.
       '<td><b>Handgrade: </b>'.$handgrade.'</font></td></tr>';
       }
       $result.='</table>';
   
       my ($classlist,$sections) = &getclasslist('all','0');
       my $lastCmd = ($ENV{'form.lastCmd'} eq '' ? 'pickStudentPage' : $ENV{'form.lastCmd'});
       my $lastSec = ($ENV{'form.lastSec'} eq '' ? 'all' : $ENV{'form.lastSec'});
   
       $result.='<form action="/adm/grades" method="post" name="gradingMenu">'."\n".
    '<input type="hidden" name="symb"        value="'.$symb.'" />'."\n".
    '<input type="hidden" name="url"         value="'.$url.'" />'."\n".
    '<input type="hidden" name="response"    value="'.$resptype.'" />'."\n".
    '<input type="hidden" name="handgrade"   value="'.$hdgrade.'" />'."\n".
    '<input type="hidden" name="probTitle"   value="'.$probTitle.'" />'."\n".
    '<input type="hidden" name="lastCmd"     value="" />'."\n".
    '<input type="hidden" name="lastSec"     value="" />'."\n".
    '<input type="hidden" name="showgrading" value="yes" />'."\n";
   
       $result.='<table width=100% border=0><tr><td bgcolor=#777777>'."\n".
    '<table width=100% border=0><tr bgcolor="#e6ffff"><td>'."\n".
    '&nbsp;<b>Select a Grading/Viewing Option</b></td></tr>'."\n".
    '<tr bgcolor=#ffffe6><td>'."\n";
   
       $result.='<table width=100% border=0>'.
    '<tr bgcolor="#ffffe6" valign="top"><td colspan="2">'.
    '<input type="radio" name="command" value="pickStudentPage" '.
    ($lastCmd eq 'pickStudentPage' ? 'checked' : '').'> '.
    'Handgrade/View Submission for a student by page/sequence</td></tr>'."\n".
   
    '<tr bgcolor="#ffffe6"valign="top"><td colspan="2">'.
    '<input type="radio" name="command" value="viewgrades" '.
    ($lastCmd eq 'viewgrades' ? 'checked' : '').'> '.
    'Grade by section or class</td></tr>'."\n".
   
    '<tr bgcolor="#ffffe6"valign="top"><td><input type="radio" name="command" value="submission" '.
    ($lastCmd eq 'submission' ? 'checked' : '').'> '.
    ($hdgrade eq 'yes' ? 'View/Grade essay response of' : 'View').
    ' an individual student </td>'."\n".
    '<td>-->&nbsp;For students who has: '.
    '<input type="radio" name="submitonly" value="yes" checked> submitted'.
    '<input type="radio" name="submitonly" value="all"> everybody</td></tr>'."\n".
   
    '<tr bgcolor="#ffffe6"valign="top"><td colspan="2">'.
    '<input type="radio" name="command" value="csvupload" '.
    ($lastCmd eq 'csvupload' ? 'checked' : '').'> '.
    'Upload scores from file</td></tr>'."\n";
   
       $result.='<tr bgcolor="#ffffe6"valign="top"><td colspan="2">'.
    '<input type="radio" name="command" value="scantron_selectphase" /> '.
           'Grade scantron forms</td></tr>'."\n";
   
       if ((&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'})) && ($symb)) {
    $result.='<tr bgcolor="#ffffe6"valign="top"><td>'.
       '<input type="radio" name="command" value="verify" onSelect="javascript:this.form.receipt.focus()" '.
       ($lastCmd eq 'verify' ? 'checked' : '').'> '.
       'Verify a submission receipt issued by this server</td>'.
       '<td>-->&nbsp;Receipt no: '.unpack("%32C*",$Apache::lonnet::perlvar{'lonHostID'}).
       '-<input type="text" name="receipt" size="4" onChange="javascript:checkReceiptNo(this.form,\'OK\')">'.
       '</td></tr>'."\n";
       } 
   
       $result.='<tr bgcolor="#ffffe6"valign="top"><td colspan="2"><br />'."\n".
    '&nbsp;Select section:</b> <select name="section">'."\n";
       if (ref($sections)) {
    foreach (sort (@$sections)) {$result.='<option value="'.$_.'" '.
    ($lastSec eq $_ ? 'selected="on"' : '').'>'.$_.'</option>'."\n";}
       }
       $result.= '<option value="all" '.($lastSec eq 'all' ? 'selected="on"' : ''). '>all</select> &nbsp; '.
    '<font color="red">(Applies to the first three options only.)</font>'."\n";
       if (ref($sections)) {
    $result.='&nbsp;(Section "no" implies the students were not assigned a section.)<br />' 
       if (grep /no/,@$sections);
       }
       $result.='</td></tr>';
   
       $result.='<tr bgcolor="#ffffe6"><td colspan="2"><br />'.
    '<input type="button" onClick="javascript:checkChoice(this.form);" value="View/Grade" />'."\n".
    '</form></td></tr></table>'."\n".
    '</td></tr></table>'."\n".
    '</td></tr></table>'."\n";
     return $result;      return $result;
 }  }
   
Line 2681  sub handler { Line 3101  sub handler {
  $Apache::grades::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'});   $Apache::grades::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'});
  if ($command eq 'submission') {   if ($command eq 'submission') {
     ($ENV{'form.student'} eq '' ? &listStudents($request) : &submission($request,0,0));      ($ENV{'form.student'} eq '' ? &listStudents($request) : &submission($request,0,0));
 # if ($command eq 'submission') {  
 #    &listStudents($request) if ($ENV{'form.student'} eq '');  
 #    &submission($request,0,0) if ($ENV{'form.student'} ne '');  
  } elsif ($command eq 'pickStudentPage') {   } elsif ($command eq 'pickStudentPage') {
     &pickStudentPage($request);      &pickStudentPage($request);
  } elsif ($command eq 'displayPage') {   } elsif ($command eq 'displayPage') {
     &displayPage($request);      &displayPage($request);
    } elsif ($command eq 'gradeByPage') {
       &updateGradeByPage($request);
  } elsif ($command eq 'processGroup') {   } elsif ($command eq 'processGroup') {
     &processGroup($request);      &processGroup($request);
  } elsif ($command eq 'gradingmenu') {   } elsif ($command eq 'gradingmenu') {
Line 2700  sub handler { Line 3119  sub handler {
     $request->print(&editgrades($request));      $request->print(&editgrades($request));
  } elsif ($command eq 'verify') {   } elsif ($command eq 'verify') {
     $request->print(&verifyreceipt($request));      $request->print(&verifyreceipt($request));
    } elsif ($command eq 'csvform') {
       $request->print(&upcsvScores_form($request));
  } elsif ($command eq 'csvupload') {   } elsif ($command eq 'csvupload') {
     $request->print(&csvupload($request));      $request->print(&csvupload($request));
  } elsif ($command eq 'viewclasslist') {   } elsif ($command eq 'viewclasslist') {
Line 2717  sub handler { Line 3138  sub handler {
  }   }
  $request->print(&csvuploadmap($request));   $request->print(&csvuploadmap($request));
     }      }
    } elsif ($command eq 'scantron_selectphase') {
       $request->print(&scantron_selectphase($request));
    } elsif ($command eq 'scantron_configphase') {
       $request->print(&scantron_configphase($request));
  } else {   } else {
     $request->print("Unknown action: $command:");      $request->print("Unknown action: $command:");
  }   }
Removed from v.1.70  
changed lines
  Added in v.1.75

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