Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/grades.pm between versions 1.73 and 1.128

-version 1.73, 2003/03/17 19:08:50
+version 1.128, 2003/07/29 20:54:39
  Line 33
  # June-August H.K. Ng
  # Year 2003
  # February, March H.K. Ng
+ # July, H. K. Ng
  #
  package Apache::grades;
- Line 41  use Apache::style;
+ Line 42  use Apache::style;
  use Apache::lonxml;
  use Apache::lonnet;
  use Apache::loncommon;
+ use Apache::lonhtmlcommon;
  use Apache::lonnavmaps;
  use Apache::lonhomework;
  use Apache::loncoursedata;
  use Apache::lonmsg qw(:user_normal_msg);
  use Apache::Constants qw(:common);
+ use String::Similarity;
+ my %oldessays=();
+ my %perm=();
  # ----- These first few routines are general use routines.----
  #
- Line 93  sub get_fullname {
+ Line 99  sub get_fullname {
  #--- Get the partlist and the response type for a given problem. ---
  #--- Indicate if a response type is coded handgraded or not. ---
  sub response_type {
-     my ($url) = shift;
+     my ($url,$symb) = shift;
+     $symb=($ENV{'form.symb'} ne '' ? $ENV{'form.symb'} : (&Apache::lonnet::symbread($url))) if ($symb eq '');
      my $allkeys = &Apache::lonnet::metadata($url,'keys');
      my %seen = ();
      my (@partlist,%handgrade);
- Line 101  sub response_type {
+ Line 108  sub response_type {
  	if (/^\w+response_\w+.*/) {
  	    my ($responsetype,$part) = split(/_/,$_,2);
  	    my ($partid,$respid) = split(/_/,$part);
- 	    $handgrade{$part} = $responsetype.':'.($allkeys =~ /parameter_$part\_handgrade/ ? 'yes' : 'no');
+ 	    $responsetype =~ s/response$//; # make it compatible w/ navmaps - should move to that!!
+ 	    my ($value) = &Apache::lonnet::EXT('resource.'.$part.'.handgrade',$symb);
+ 	    $handgrade{$part} = $responsetype.':'.($value eq 'yes' ? 'yes' : 'no');
  	    next if ($seen{$partid} > 0);
  	    $seen{$partid}++;
  	    push @partlist,$partid;
- Line 110  sub response_type {
+ Line 119  sub response_type {
      return \@partlist,\%handgrade;
  }
+ #--- Show resource title
+ #--- and parts and response type
+ sub showResourceInfo {
+     my ($url,$probTitle) = @_;
+     my $result ='<table border="0">'.
+ 	'<tr><td colspan=3><font size=+1><b>Current Resource: </b>'.$probTitle.'</font></td></tr>'."\n";
+     my ($partlist,$handgrade) = &response_type($url);
+     my %resptype = ();
+     my $hdgrade='no';
+     for (sort keys(%$handgrade)) {
+ 	my ($responsetype,$handgrade)=split(/:/,$$handgrade{$_});
+ 	my $partID = (split(/_/))[0];
+ 	$resptype{$partID} = $responsetype;
+ 	$hdgrade = $handgrade if ($handgrade eq 'yes');
+ 	$result.='<tr><td><b>Part </b>'.$partID.'</td>'.
+ 	    '<td><b>Type: </b>'.$responsetype.'</td></tr>';
+ #	    '<td><b>Handgrade: </b>'.$handgrade.'</td></tr>';
+     }
+     $result.='</table>'."\n";
+     return $result,\%resptype,$hdgrade,$partlist,$handgrade;
+ }
+ #--- Clean response type for display
+ #--- Currently filters option response type only.
+ sub cleanRecord {
+     my ($answer,$response,$symb) = @_;
+     if ($response eq 'option') {
+ 	my (@IDs,@ans);
+ 	foreach (split(/\&/,&Apache::lonnet::unescape($answer))) {
+ 	    my ($optionID,$ans) = split(/=/);
+ 	    push @IDs,$optionID.'</font>';
+ 	    push @ans,$ans;
+ 	}
+ 	my $grayFont = '<font color="#999999">';
+ 	return '<blockquote><table border="1">'.
+ 	    '<tr valign="top"><td>Answer</td><td>'.
+ 	    (join '</td><td>',@ans).'</td></tr>'.
+ 	    '<tr valign="top"><td>'.$grayFont.'Option ID</font></td><td>'.$grayFont.
+ 	    (join '</td><td>'.$grayFont,@IDs).'</font></td></tr>'.
+ 	    '</table></blockquote>';
+     }
+     if ($response eq 'essay') {
+ 	if (! exists ($ENV{'form.'.$symb})) {
+ 	    my (%keyhash) = &Apache::lonnet::dump('nohist_handgrade',
+ 						  $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
+ 						  $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
+ 	    my $loginuser = $ENV{'user.name'}.':'.$ENV{'user.domain'};
+ 	    $ENV{'form.keywords'} = $keyhash{$symb.'_keywords'} ne '' ? $keyhash{$symb.'_keywords'} : '';
+ 	    $ENV{'form.kwclr'}    = $keyhash{$loginuser.'_kwclr'} ne '' ? $keyhash{$loginuser.'_kwclr'} : 'red';
+ 	    $ENV{'form.kwsize'}   = $keyhash{$loginuser.'_kwsize'} ne '' ? $keyhash{$loginuser.'_kwsize'} : '0';
+ 	    $ENV{'form.kwstyle'}  = $keyhash{$loginuser.'_kwstyle'} ne '' ? $keyhash{$loginuser.'_kwstyle'} : '';
+ 	    $ENV{'form.'.$symb} = 1; # so that we don't have to read it from disk for multiple sub of the same prob.
+ 	}
+ 	return '<br /><br /><blockquote>'.&keywords_highlight($answer).'</blockquote>';
+     }
+     return $answer;
+ }
+ #-- A couple of common js functions
+ sub commonJSfunctions {
+     my $request = shift;
+     $request->print(<<COMMONJSFUNCTIONS);
+ <script type="text/javascript" language="javascript">
+     function radioSelection(radioButton) {
+ 	var selection=null;
+ 	if (radioButton.length > 1) {
+ 	    for (var i=0; i<radioButton.length; i++) {
+ 		if (radioButton[i].checked) {
+ 		    return radioButton[i].value;
+ 		}
+ 	    }
+ 	} else {
+ 	    if (radioButton.checked) return radioButton.value;
+ 	}
+ 	return selection;
+     }
+     function pullDownSelection(selectOne) {
+ 	var selection="";
+ 	if (selectOne.length > 1) {
+ 	    for (var i=0; i<selectOne.length; i++) {
+ 		if (selectOne[i].selected) {
+ 		    return selectOne[i].value;
+ 		}
+ 	    }
+ 	} else {
+ 	    if (selectOne.selected) return selectOne.value;
+ 	}
+     }
+ </script>
+ COMMONJSFUNCTIONS
+ }
  #--- Dumps the class list with usernames,list of sections,
  #--- section, ids and fullnames for each user.
  sub getclasslist {
-     my ($getsec,$hideexpired) = @_;
+     my ($getsec,$filterlist) = @_;
+     $getsec = $getsec eq '' ? 'all' : $getsec;
      my $classlist=&Apache::loncoursedata::get_classlist();
      # Bail out if we were unable to get the classlist
      return if (! defined($classlist));
- Line 124  sub getclasslist {
+ Line 228  sub getclasslist {
          # the following undefs are for 'domain', and 'username' respectively.
  	my (undef,undef,$end,$start,$id,$section,$fullname,$status)=
              @{$classlist->{$_}};
- 	# still a student?
+ 	# filter students according to status selected
- 	if (($hideexpired) && ($status ne 'Active')) {
+ 	if ($filterlist && $ENV{'form.Status'} ne 'Any') {
-             delete ($classlist->{$_});
+ 	    if ($ENV{'form.Status'} ne $status) {
-             next;
+ 		delete ($classlist->{$_});
-         }
+ 		next;
+ 	    }
+ 	}
  	$section = ($section ne '' ? $section : 'no');
- 	if ($getsec eq 'all' || $getsec eq $section) {
+ 	if (&canview($section)) {
-             $sections{$section}++;
+ 	    if ($getsec eq 'all' || $getsec eq $section) {
-             $fullnames{$_}=$fullname;
+ 		$sections{$section}++;
-         } else {
+ 		$fullnames{$_}=$fullname;
-             delete($classlist->{$_});
+ 	    } else {
-         }
+ 		delete($classlist->{$_});
+ 	    }
+ 	} else {
+ 	    delete($classlist->{$_});
+ 	}
      }
      my %seen = ();
      my @sections = sort(keys(%sections));
      return ($classlist,\@sections,\%fullnames);
  }
- #find user domain
+ sub canmodify {
- sub finduser {
+     my ($sec)=@_;
-     my ($name) = @_;
+     if ($perm{'mgr'}) {
-     my $domain = '';
+ 	if (!defined($perm{'mgr_section'})) {
-     if ( $Apache::grades::viewgrades eq 'F' ) {
+ 	    # can modify whole class
- 	my %classlist=&Apache::lonnet::dump('classlist',
+ 	    return 1;
- 					    $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
+ 	} else {
- 					    $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
+ 	    if ($sec eq $perm{'mgr_section'}) {
- 	my (@fields) = grep /^$name:/, keys %classlist;
+ 		#can modify the requested section
- 	($name, $domain) = split(/:/,$fields[0]);
+ 		return 1;
- 	return ($name,$domain);
+ 	    } else {
-     } else {
+ 		# can't modify the request section
- 	return ($ENV{'user.name'},$ENV{'user.domain'});
+ 		return 0;
+ 	    }
+ 	}
      }
+     #can't modify
+     return 0;
  }
- #--- Prompts a user to enter a username.
+ sub canview {
- sub moreinfo {
+     my ($sec)=@_;
-     my ($request,$reason) = @_;
+     if ($perm{'vgr'}) {
-     $request->print("Unable to process request: $reason");
+ 	if (!defined($perm{'vgr_section'})) {
-     if ( $Apache::grades::viewgrades eq 'F' ) {
+ 	    # can modify whole class
- 	$request->print('<form action="/adm/grades" method="post">'."\n");
+ 	    return 1;
- 	if ($ENV{'form.url'}) {
+ 	} else {
- 	    $request->print('<input type="hidden" name="url" value="'.$ENV{'form.url'}.'" />'."\n");
+ 	    if ($sec eq $perm{'vgr_section'}) {
- 	}
+ 		#can modify the requested section
- 	if ($ENV{'form.symb'}) {
+ 		return 1;
- 	    $request->print('<input type="hidden" name="symb" value="'.$ENV{'form.symb'}.'" />'."\n");
+ 	    } else {
- 	}
+ 		# can't modify the request section
- 	$request->print('<input type="hidden" name="command" value="'.$ENV{'form.command'}.'" />'."\n");
+ 		return 0;
- 	$request->print("Student:".'<input type="text" name="student" value="'.$ENV{'form.student'}.'" />'."<br />\n");
+ 	    }
- 	$request->print("Domain:".'<input type="text" name="domain" value="'.$ENV{'user.domain'}.'" />'."<br />\n");
+ 	}
- 	$request->print('<input type="submit" name="submit" value="ReSubmit" />'."<br />\n");
- 	$request->print('</form>');
      }
-     return '';
+     #can't modify
+     return 0;
  }
  #--- Retrieve the grade status of a student for all the parts
- Line 185  sub student_gradeStatus {
+ Line 298  sub student_gradeStatus {
      my %record     = &Apache::lonnet::restore($symb,$ENV{'request.course.id'},$udom,$uname);
      my %partstatus = ();
      foreach (@$partlist) {
- 	my ($status,$foo)    = split(/_/,$record{"resource.$_.solved"},2);
+ 	my ($status,undef)   = split(/_/,$record{"resource.$_.solved"},2);
  	$status              = 'nothing' if ($status eq '');
  	$partstatus{$_}      = $status;
  	my $subkey           = "resource.$_.submitted_by";
- Line 209  sub jscriptNform {
+ Line 322  sub jscriptNform {
      $jscript.= '<form action="/adm/grades" method="post" name="onestudent">'."\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="saveState" value="'.$ENV{'form.saveState'}.'" />'."\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="Status"  value="'.$ENV{'form.Status'}.'" />'."\n".
  	'<input type="hidden" name="command" value="submission" />'."\n".
  	'<input type="hidden" name="student" value="" />'."\n".
  	'<input type="hidden" name="userdom" value="" />'."\n".
- Line 220  sub jscriptNform {
+ Line 333  sub jscriptNform {
  }
  #------------------ End of general use routines --------------------
+ #
+ # Find most similar essay
+ #
+ sub most_similar {
+     my ($uname,$udom,$uessay)=@_;
+ # ignore spaces and punctuation
+     $uessay=~s/\W+/ /gs;
+ # these will be returned. Do not care if not at least 50 percent similar
+     my $limit=0.6;
+     my $sname='';
+     my $sdom='';
+     my $scrsid='';
+     my $sessay='';
+ # go through all essays ...
+     foreach my $tkey (keys %oldessays) {
+ 	my ($tname,$tdom,$tcrsid)=split(/\./,$tkey);
+ # ... except the same student
+         if (($tname ne $uname) || ($tdom ne $udom)) {
+ 	    my $tessay=$oldessays{$tkey};
+             $tessay=~s/\W+/ /gs;
+ # String similarity gives up if not even limit
+             my $tsimilar=&String::Similarity::similarity($uessay,$tessay,$limit);
+ # Found one
+             if ($tsimilar>$limit) {
+ 		$limit=$tsimilar;
+                 $sname=$tname;
+                 $sdom=$tdom;
+                 $scrsid=$tcrsid;
+                 $sessay=$oldessays{$tkey};
+             }
+         }
+     }
+     if ($limit>0.6) {
+        return ($sname,$sdom,$scrsid,$sessay,$limit);
+     } else {
+        return ('','','','',0);
+     }
+ }
  #-------------------------------------------------------------------
  #------------------------------------ Receipt Verification Routines
- Line 240  sub verifyreceipt {
+ Line 397  sub verifyreceipt {
      my $title.='<h3><font color="#339933">Verifying Submission Receipt '.
  	$receipt.'</h3></font>'."\n".
- 	'<font size=+1><b>Problem: </b>'.$ENV{'form.probTitle'}.'</font><br><br>'."\n";
+ 	'<font size=+1><b>Resource: </b>'.$ENV{'form.probTitle'}.'</font><br><br>'."\n";
      my ($string,$contents,$matches) = ('','',0);
      my (undef,undef,$fullname) = &getclasslist('all','0');
- Line 288  sub listStudents {
+ Line 445  sub listStudents {
      my $getsec    = $ENV{'form.section'} eq '' ? 'all' : $ENV{'form.section'};
      my $submitonly= $ENV{'form.submitonly'} eq '' ? 'all' : $ENV{'form.submitonly'};
-     my $result;
+     my $viewgrade = $ENV{'form.showgrading'} eq 'yes' ? 'View/Grade/Regrade' : 'View';
-     my ($partlist,$handgrade) = &response_type($url);
+     $ENV{'form.probTitle'} = $ENV{'form.probTitle'} eq '' ?
-     for (sort keys(%$handgrade)) {
+ 	&Apache::lonnet::gettitle($symb) : $ENV{'form.probTitle'};
- 	my ($responsetype,$handgrade)=split(/:/,$$handgrade{$_});
- 	$ENV{'form.handgrade'} = 'yes' if ($handgrade eq 'yes');
+     my $result='<h3><font color="#339933">&nbsp;'.$viewgrade.
- 	$result.='<tr><td><b>Part </b>'.(split(/_/))[0].'</td>'.
+ 	' Submissions for a Student or a Group of Students</font></h3>';
- 	    '<td><b>Type: </b>'.$responsetype.'</td>'.
- 	    '<td><b>Handgrade: </b>'.$handgrade.'</font></td></tr>';
+     my ($table,undef,$hdgrade,$partlist,$handgrade) = &showResourceInfo($url,$ENV{'form.probTitle'});
-     }
+     $result.=$table;
-     $result.='</table>';
-     my $viewgrade = $ENV{'form.handgrade'} eq 'yes' ? 'View/Grade' : 'View';
-     $result='<h3><font color="#339933">&nbsp;'.
- 	$viewgrade.
- 	    ' Submissions for a Student or a Group of Students</font></h3>'.
- 	    '<table border="0"><tr><td colspan=3><font size=+1>'.
- 		    '<b>Problem: </b>'.$ENV{'form.probTitle'}.'</font></td></tr>'.$result;
      $request->print(<<LISTJAVASCRIPT);
  <script type="text/javascript" language="javascript">
-   function checkSelect(checkBox) {
+     function checkSelect(checkBox) {
-     var ctr=0;
+ 	var ctr=0;
-     var sense="";
+ 	var sense="";
-     if (checkBox.length > 1) {
+ 	if (checkBox.length > 1) {
-        for (var i=0; i<checkBox.length; i++) {
+ 	    for (var i=0; i<checkBox.length; i++) {
- 	  if (checkBox[i].checked) {
+ 		if (checkBox[i].checked) {
- 	     ctr++;
+ 		    ctr++;
- 	  }
+ 		}
-        }
+ 	    }
-        sense = "a student or group of students";
+ 	    sense = "a student or group of students";
-     } else {
+ 	} else {
-        if (checkBox.checked) {
+ 	    if (checkBox.checked) {
- 	   ctr = 1;
+ 		ctr = 1;
-        }
+ 	    }
-        sense = "the student";
+ 	    sense = "the student";
-     }
+ 	}
-     if (ctr == 0) {
+ 	if (ctr == 0) {
-        alert("Please select "+sense+" before clicking on the $viewgrade button.");
+ 	    alert("Please select "+sense+" before clicking on the Next button.");
-        return false;
+ 	    return false;
+ 	}
+ 	document.gradesub.submit();
+     }
+     function reLoadList(formname) {
+ 	if (formname.saveStatusOld.value == pullDownSelection(formname.Status)) {return;}
+ 	formname.command.value = 'submission';
+ 	formname.submit();
      }
-     document.gradesub.submit();
-   }
  </script>
  LISTJAVASCRIPT
+     &commonJSfunctions($request);
      $request->print($result);
-     my $checkhdgrade = $ENV{'form.handgrade'} eq 'yes' ? 'checked' : '';
+     my $checkhdgrade = ($ENV{'form.handgrade'} eq 'yes' && scalar(@$partlist) > 1 ) ? 'checked' : '';
-     my $checklastsub = $ENV{'form.handgrade'} eq 'yes' ? '' : 'checked';
+     my $checklastsub = $checkhdgrade eq '' ? 'checked' : '';
      my $gradeTable='<form action="/adm/grades" method="post" name="gradesub">'."\n".
- 	'&nbsp;<b>View Problem: </b><input type="radio" name="vProb" value="no" /> no '."\n".
+ 	'&nbsp;<b>View Problem Text: </b><input type="radio" name="vProb" value="no" checked /> no '."\n".
- 	'<input type="radio" name="vProb" value="yes" checked /> one student '."\n".
+ 	'<input type="radio" name="vProb" value="yes" /> one student '."\n".
  	'<input type="radio" name="vProb" value="all" /> all students <br />'."\n".
  	'&nbsp;<b>Submissions: </b>'."\n";
-     if ($ENV{'form.handgrade'} eq 'yes') {
+     if ($ENV{'form.handgrade'} eq 'yes' && scalar(@$partlist) > 1) {
- 	$gradeTable.='<input type="radio" name="lastSub" value="hdgrade" '.$checkhdgrade.' /> handgrade only'."\n";
+ 	$gradeTable.='<input type="radio" name="lastSub" value="hdgrade" '.$checkhdgrade.' /> essay part only'."\n";
      }
+     my $saveStatus = $ENV{'form.Status'} eq '' ? 'Active' : $ENV{'form.Status'};
+     $ENV{'form.Status'} = $saveStatus;
      $gradeTable.='<input type="radio" name="lastSub" value="lastonly" '.$checklastsub.' /> last sub only'."\n".
  	'<input type="radio" name="lastSub" value="last" /> last sub & parts info'."\n".
+ 	'<input type="radio" name="lastSub" value="datesub" /> by dates and submissions'."\n".
  	'<input type="radio" name="lastSub" value="all" /> all details'."\n".
  	'<input type="hidden" name="section"     value="'.$getsec.'" />'."\n".
  	'<input type="hidden" name="submitonly"  value="'.$submitonly.'" />'."\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="showgrading" value="'.$ENV{'form.showgrading'}.'" /><br />'."\n".
- 	'<input type="hidden" name="lastCmd"     value="'.$ENV{'form.lastCmd'}.'" />'."\n".
+ 	'<input type="hidden" name="saveState"   value="'.$ENV{'form.saveState'}.'" />'."\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="symb" value="'.$symb.'" />'."\n".
- 	'To '.lc($viewgrade).' a submission, click on the check box next to the student\'s name. Then '."\n".
+ 	'<input type="hidden" name="saveStatusOld" value="'.$saveStatus.'" />'."\n";
- 	'click on the '.$viewgrade.' button. To view the submissions for a group of students, click'."\n".
- 	' on the check boxes for the group of students.<br />'."\n".
+     if (exists($ENV{'form.gradingMenu'}) && exists($ENV{'form.Status'})) {
- 	'<input type="hidden" name="command" value="processGroup" />'."\n".
+ 	$gradeTable.='<input type="hidden" name="Status"   value="'.$ENV{'form.Status'}.'" />'."\n";
- 	'<input type="button" '."\n".
+     } else {
+ 	$gradeTable.='<b>Student Status:</b> '.
+ 	    &Apache::lonhtmlcommon::StatusOptions($saveStatus,undef,1,'javascript:reLoadList(this.form);').'<br />';
+     }
+     $gradeTable.='To '.lc($viewgrade).' a submission or a group of submissions, click on the check box(es) '.
+ 	'next to the student\'s name(s). Then click on the Next button.<br />'."\n".
+ 	'<input type="hidden" name="command" value="processGroup" />'."\n";
+     $gradeTable.='<input type="button" '."\n".
  	'onClick="javascript:checkSelect(this.form.stuinfo);" '."\n".
- 	'value="'.$viewgrade.'" />'."\n";
+ 	'value="Next->" />'."\n";
-     my (undef,undef,$fullname) = &getclasslist($getsec,'0');
+     my (undef, undef, $fullname) = &getclasslist($getsec,'1');
      $gradeTable.='<table border="0"><tr><td bgcolor="#777777">'.
- 	'<table border="0"><tr bgcolor="#e6ffff">'.
+ 	'<table border="0"><tr bgcolor="#e6ffff">';
- 	'<td><b>&nbsp;Select&nbsp;</b></td><td><b>&nbsp;Fullname&nbsp;</b></td>'.
+     my $loop = 0;
- 	'<td><b>&nbsp;Username&nbsp;</b></td><td><b>&nbsp;Domain&nbsp;</b></td>';
+     while ($loop < 2) {
-     foreach (sort(@$partlist)) {
+ 	$gradeTable.='<td><b>&nbsp;No.</b>&nbsp;</td><td><b>&nbsp;Select&nbsp;</b></td>'.
- 	$gradeTable.='<td><b>&nbsp;Part '.(split(/_/))[0].' Status&nbsp;</b></td>';
+ 	    '<td><b>&nbsp;Fullname&nbsp;</b>'.
+ 	    '<font color="#999999">(Username)</font>&nbsp;</td>';
+ 	if ($ENV{'form.showgrading'} eq 'yes' && $submitonly ne 'all') {
+ 	    foreach (sort(@$partlist)) {
+ 		$gradeTable.='<td><b>&nbsp;Part '.(split(/_/))[0].' Status&nbsp;</b></td>';
+ 	    }
+ 	}
+ 	$loop++;
+ #	$gradeTable.='<td></td>' if ($loop%2 ==1);
      }
      $gradeTable.='</tr>'."\n";
      my $ctr = 0;
      foreach my $student (sort {lc($$fullname{$a}) cmp lc($$fullname{$b}) } keys %$fullname) {
  	my ($uname,$udom) = split(/:/,$student);
- 	my (%status) =&student_gradeStatus($url,$symb,$udom,$uname,$partlist);
+ 	my %status = ();
- 	my $statusflg = '';
+ 	if ($ENV{'form.showgrading'} eq 'yes' && $submitonly ne 'all') {
- 	foreach (keys(%status)) {
+ 	    (%status) =&student_gradeStatus($url,$symb,$udom,$uname,$partlist);
- 	    $statusflg = 1 if ($status{$_} ne 'nothing');
+ 	    my $statusflg = '';
- 	    my ($foo,$partid,$foo1) = split(/\./,$_);
+ 	    foreach (keys(%status)) {
- 	    if ($status{'resource.'.$partid.'.submitted_by'} ne '') {
+ 		$statusflg = 1 if ($status{$_} ne 'nothing');
- 		$statusflg = '';
+ 		my ($foo,$partid,$foo1) = split(/\./,$_);
- 		$gradeTable.='<input type="hidden" name="'.
+ 		if ($status{'resource.'.$partid.'.submitted_by'} ne '') {
- 		    $student.':submitted_by" value="'.
+ 		    $statusflg = '';
- 		    $status{'resource.'.$partid.'.submitted_by'}.'" />';
+ 		    $gradeTable.='<input type="hidden" name="'.
+ 			$student.':submitted_by" value="'.
+ 			$status{'resource.'.$partid.'.submitted_by'}.'" />';
+ 		}
  	    }
+ 	    next if ($statusflg eq '' && $submitonly eq 'yes');
  	}
- 	next if ($statusflg eq '' && $submitonly eq 'yes');
  	$ctr++;
- 	if ( $Apache::grades::viewgrades eq 'F' ) {
+ 	if ( $perm{'vgr'} eq 'F' ) {
- 	    $gradeTable.='<tr bgcolor="#ffffe6">'.
+ 	    $gradeTable.='<tr bgcolor="#ffffe6">' if ($ctr%2 ==1);
+ 	    $gradeTable.='<td align="right">'.$ctr.'&nbsp;</td>'.
  		'<td align="center"><input type=checkbox name="stuinfo" value="'.
- 		$student.':'.$$fullname{$student}.'"></td>'."\n".
+ 		$student.':'.$$fullname{$student}.'&nbsp;"></td>'."\n".
- 		'<td>&nbsp;'.$$fullname{$student}.'&nbsp;</td>'."\n".
+ 		'<td>&nbsp;'.$$fullname{$student}.'&nbsp;'."\n".
- 		'<td>&nbsp;'.$uname.'&nbsp;</td>'."\n".
+ 		'<font color="#999999">('.$uname.')</font></td>'."\n";
- 		'<td align="middle">&nbsp;'.$udom.'&nbsp;</td>'."\n";
+ 	    if ($ENV{'form.showgrading'} eq 'yes' && $submitonly ne 'all') {
- 	    foreach (sort keys(%status)) {
+ 		foreach (sort keys(%status)) {
- 		next if (/^resource.*?submitted_by$/);
+ 		    next if (/^resource.*?submitted_by$/);
- 		$gradeTable.='<td align="middle">&nbsp;'.$status{$_}.'&nbsp;</td>'."\n";
+ 		    $gradeTable.='<td align="middle">&nbsp;'.$status{$_}.'&nbsp;</td>'."\n";
+ 		}
  	    }
- 	    $gradeTable.='</tr>'."\n";
+ #	    $gradeTable.='<td></td>' if ($ctr%2 ==1);
+ 	    $gradeTable.='</tr>'."\n" if ($ctr%2 ==0);
  	}
      }
+     if ($ctr%2 ==1) {
+ 	$gradeTable.='<td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td>';
+ 	    if ($ENV{'form.showgrading'} eq 'yes' && $submitonly ne 'all') {
+ 		foreach (@$partlist) {
+ 		    $gradeTable.='<td>&nbsp;</td>';
+ 		}
+ 	    }
+ 	$gradeTable.='</tr>';
+     }
      $gradeTable.='</table></td></tr></table>'.
  	'<input type="button" '.
  	'onClick="javascript:checkSelect(this.form.stuinfo);" '.
- 	'value="'.$viewgrade.'" /></form>'."\n";
+ 	'value="Next->" /></form>'."\n";
      if ($ctr == 0) {
- 	$gradeTable='<br />&nbsp;<font color="red">'.
+ 	my $num_students=(scalar(keys(%$fullname)));
- 	    'No submission found for this resource.</font><br />';
+ 	if ($num_students eq 0) {
+ 	    $gradeTable='<br />&nbsp;<font color="red">There are no students currently enrolled.</font>';
+ 	} else {
+ 	    $gradeTable='<br />&nbsp;<font color="red">'.
+ 		'No submissions found for this resource for any students. ('.$num_students.
+ 		' checked for submissions</font><br />';
+ 	}
      } elsif ($ctr == 1) {
  	$gradeTable =~ s/type=checkbox/type=checkbox checked/;
      }
- Line 458  sub sub_page_js {
+ Line 652  sub sub_page_js {
      $request->print(<<SUBJAVASCRIPT);
  <script type="text/javascript" language="javascript">
      function updateRadio(formname,id,weight) {
- 	var gradeBox = eval("formname.GD_BOX"+id);
+ 	var gradeBox = formname["GD_BOX"+id];
- 	var radioButton = eval("formname.RADVAL"+id);
+ 	var radioButton = formname["RADVAL"+id];
- 	var oldpts = eval("formname.oldpts"+id+".value");
+ 	var oldpts = formname["oldpts"+id].value;
  	var pts = checkSolved(formname,id) == 'update' ? gradeBox.value : oldpts;
  	gradeBox.value = pts;
  	var resetbox = false;
- Line 482  sub sub_page_js {
+ Line 676  sub sub_page_js {
  	    var resp = confirm("You entered a value ("+pts+
  			       ") greater than the weight for the part. Accept?");
  	    if (resp == false) {
- 		gradeBox.value = "";
+ 		gradeBox.value = oldpts;
  		return;
  	    }
  	}
- Line 494  sub sub_page_js {
+ Line 688  sub sub_page_js {
  	    }
  	}
  	updateSelect(formname,id);
- 	var stores = eval("formname.stores"+id);
+ 	formname["stores"+id].value = "0";
- 	stores.value = "0";
      }
      function writeBox(formname,id,pts) {
- 	var gradeBox = eval("formname.GD_BOX"+id);
+ 	var gradeBox = formname["GD_BOX"+id];
  	if (checkSolved(formname,id) == 'update') {
  	    gradeBox.value = pts;
  	} else {
- 	    var oldpts = eval("formname.oldpts"+id+".value");
+ 	    var oldpts = formname["oldpts"+id].value;
  	    gradeBox.value = oldpts;
- 	    var radioButton = eval("formname.RADVAL"+id);
+ 	    var radioButton = formname["RADVAL"+id];
  	    for (var i=0; i<radioButton.length; i++) {
  		radioButton[i].checked=false;
  		if (i == oldpts) {
- Line 513  sub sub_page_js {
+ Line 706  sub sub_page_js {
  		}
  	    }
  	}
- 	var stores = eval("formname.stores"+id);
+ 	formname["stores"+id].value = "0";
- 	stores.value = "0";
  	updateSelect(formname,id);
  	return;
      }
- Line 524  sub sub_page_js {
+ Line 716  sub sub_page_js {
  	    updateSelect(formname,id);
  	    return;
  	}
- 	gradeSelect = eval("formname.GD_SEL"+id);
+ 	gradeSelect = 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);
+ 	var stores = formname["stores"+id];
  	if (selectx == stores.value) { return };
- 	var gradeBox = eval("formname.GD_BOX"+id);
+ 	var gradeBox = formname["GD_BOX"+id];
  	gradeBox.value = "";
- 	var radioButton = eval("formname.RADVAL"+id);
+ 	var radioButton = formname["RADVAL"+id];
  	for (var i=0; i<radioButton.length; i++) {
  	    radioButton[i].checked=false;
  	}
- Line 542  sub sub_page_js {
+ Line 734  sub sub_page_js {
      }
      function checkSolved(formname,id) {
- 	if (eval("formname.solved"+id+".value") == "correct_by_student") {
+ 	if (formname["solved"+id].value == "correct_by_student" && formname.overRideScore.value == 'no') {
- 	    alert("This problem has been graded correct by the computer. The score cannot be changed.");
+ 	    var reply = confirm("This problem has been graded correct by the computer. Do you want to change the score?");
- 	    return "noupdate";
+ 	    if (!reply) {return "noupdate";}
+ 	    formname.overRideScore.value = 'yes';
  	}
  	return "update";
      }
      function updateSelect(formname,id) {
- 	var gradeSelect = eval("formname.GD_SEL"+id);
+ 	formname["GD_SEL"+id][0].selected = true;
- 	gradeSelect[0].selected = true;
  	return;
      }
- //=========== Check that a point is assigned for all the parts (essay grading only) ============
+ //=========== Check that a point is assigned for all the parts  ============
      function checksubmit(formname,val,total,parttot) {
- 	document.SCORE.gradeOpt.value = val;
+ 	formname.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 partid = formname["partid"+i+"_"+j].value;
- 		    var selopt = eval("formname.GD_SEL"+i+"_"+partid);
+ 		    if (formname["GD_SEL"+i+"_"+partid][0].selected) {
- 		    if (selopt[0].selected) {
+ 			var points = formname["GD_BOX"+i+"_"+partid].value;
- 			var points = eval("formname.GD_BOX"+i+"_"+partid+".value");
  			if (points == "") {
- 			    var name = eval("formname.name"+i+".value");
+ 			    var name = 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()");
+ 				formname["GD_BOX"+i+"_"+partid].focus();
  				return false;
  			    }
  			}
- Line 579  sub sub_page_js {
+ Line 770  sub sub_page_js {
  	    }
  	}
+ 	if (val == "Grade Student") {
+ 	    formname.showgrading.value = "yes";
+ 	    if (formname.Status.value == "") {
+ 		formname.Status.value = "Active";
+ 	    }
+ 	    formname.studentNo.value = total;
+ 	}
  	formname.submit();
      }
- Line 587  sub sub_page_js {
+ Line 785  sub sub_page_js {
  	noscore = new Array(100);
  	var ptr = 0;
  	for (i=1;i<total;i++) {
- 	    var partid = eval("formname.q_"+i+".value");
+ 	    var partid = formname["q_"+i].value;
- 	    var selopt = eval("formname.GD_SEL"+i+"_"+partid);
+ 	    if (formname["GD_SEL"+i+"_"+partid][0].selected) {
- 	    if (selopt[0].selected) {
+ 		var points = formname["GD_BOX"+i+"_"+partid].value;
- 		var points = eval("formname.GD_BOX"+i+"_"+partid+".value");
+ 		var status = formname["solved"+i+"_"+partid].value;
- 		var status = eval("formname.solved"+i+"_"+partid+".value");
  		if (points == "" && status != "correct_by_student") {
  		    noscore[ptr] = i;
  		    ptr++;
- Line 626  SUBJAVASCRIPT
+ Line 823  SUBJAVASCRIPT
  #--- javascript for essay type problem --
  sub sub_page_kw_js {
      my $request = shift;
+     my $iconpath = $request->dir_config('lonIconsURL');
+     &commonJSfunctions($request);
      $request->print(<<SUBJAVASCRIPT);
  <script type="text/javascript" language="javascript">
  //===================== Show list of keywords ====================
-   function keywords(keyform) {
+   function keywords(formname) {
-     var keywds = keyform.value;
+     var nret = prompt("Keywords list, separated by a space. Add/delete to list if desired.",formname.keywords.value);
-     var nret = prompt("Keywords list, separated by a space. Add/delete to list if desired.",keywds);
      if (nret==null) return;
-     keyform.value = nret;
+     formname.keywords.value = nret;
-     document.SCORE.refresh.value = "on";
+     if (formname.keywords.value != "") {
-     if (document.SCORE.keywords.value != "") {
+ 	formname.refresh.value = "on";
- 	document.SCORE.submit();
+ 	formname.submit();
      }
      return;
    }
- Line 664  sub sub_page_kw_js {
+ Line 862  sub sub_page_kw_js {
      }
      var nret = prompt("Add selection to keyword list? Edit if desired.",cleantxt);
      if (nret==null) return;
-     var curlist = document.SCORE.keywords.value;
+     document.SCORE.keywords.value = document.SCORE.keywords.value+" "+nret;
-     document.SCORE.keywords.value = curlist+" "+nret;
-     document.SCORE.refresh.value = "on";
      if (document.SCORE.keywords.value != "") {
+ 	document.SCORE.refresh.value = "on";
  	document.SCORE.submit();
      }
      return;
    }
  //====================== Script for composing message ==============
+    // preload images
+    img1 = new Image();
+    img1.src = "$iconpath/mailbkgrd.gif";
+    img2 = new Image();
+    img2.src = "$iconpath/mailto.gif";
    function msgCenter(msgform,usrctr,fullname) {
      var Nmsg  = msgform.savemsgN.value;
      savedMsgHeader(Nmsg,usrctr,fullname);
      var subject = msgform.msgsub.value;
-     var rtrchk  = eval("document.SCORE.includemsg"+usrctr);
+     var msgchk = document.SCORE["includemsg"+usrctr].value;
-     var msgchk = rtrchk.value;
      re = /msgsub/;
      var shwsel = "";
      if (re.test(msgchk)) { shwsel = "checked" }
-     displaySubject(subject,shwsel);
+     subject = (document.SCORE.shownSub.value == 0 ? checkEntities(subject) : subject);
+     displaySubject(checkEntities(subject),shwsel);
      for (var i=1; i<=Nmsg; i++) {
- 	var testpt = "savemsg"+i+",";
+ 	var testmsg = "savemsg"+i+",";
- 	re = /testpt/;
+ 	re = new RegExp(testmsg,"g");
  	shwsel = "";
  	if (re.test(msgchk)) { shwsel = "checked" }
- 	var message = eval("document.SCORE.savemsg"+i+".value");
+ 	var message = document.SCORE["savemsg"+i].value;
- 	displaySavedMsg(i,message,shwsel);
+ 	message = (document.SCORE["shownOnce"+i].value == 0 ? checkEntities(message) : message);
+ 	displaySavedMsg(i,message,shwsel); //I do not get it. w/o checkEntities on saved messages,
+ 	                                   //any &lt; is already converted to <, etc. However, only once!!
      }
-     newmsg = eval("document.SCORE.newmsg"+usrctr+".value");
+     newmsg = document.SCORE["newmsg"+usrctr].value;
      shwsel = "";
      re = /newmsg/;
      if (re.test(msgchk)) { shwsel = "checked" }
- Line 701  sub sub_page_kw_js {
+ Line 906  sub sub_page_kw_js {
      return;
    }
+   function checkEntities(strx) {
+     if (strx.length == 0) return strx;
+     var orgStr = ["&", "<", ">", '"'];
+     var newStr = ["&amp;", "&lt;", "&gt;", "&quot;"];
+     var counter = 0;
+     while (counter < 4) {
+ 	strx = strReplace(strx,orgStr[counter],newStr[counter]);
+ 	counter++;
+     }
+     return strx;
+   }
+   function strReplace(strx, orgStr, newStr) {
+     return strx.split(orgStr).join(newStr);
+   }
    function savedMsgHeader(Nmsg,usrctr,fullname) {
-     var height = 50*Nmsg+250;
+     var height = 70*Nmsg+250;
      var scrollbar = "no";
      if (height > 600) {
  	height = 600;
  	scrollbar = "yes";
      }
- /*    if (window.pWin)
+     var xpos = (screen.width-600)/2;
- 	window.pWin.close(); */
+     xpos = (xpos < 0) ? '0' : xpos;
-     pWin = window.open('', 'MessageCenter', 'toolbar=no,location=no,scrollbars='+scrollbar+',screenx=70,screeny=75,width=600,height='+height);
+     var ypos = (screen.height-height)/2-30;
-     pWin.document.write("<html><head>");
+     ypos = (ypos < 0) ? '0' : ypos;
-     pWin.document.write("<title>Message Central</title>");
+     pWin = window.open('', 'MessageCenter', 'toolbar=no,location=no,scrollbars='+scrollbar+',screenx='+xpos+',screeny='+ypos+',width=600,height='+height);
-     pWin.document.write("<script language=javascript>");
+     pWin.focus();
-     pWin.document.write("function checkInput() {");
+     pDoc = pWin.document;
-     pWin.document.write("  opener.document.SCORE.msgsub.value = document.msgcenter.msgsub.value;");
+     pDoc.open('text/html','replace');
-     pWin.document.write("  var nmsg   = opener.document.SCORE.savemsgN.value;");
+     pDoc.write("<html><head>");
-     pWin.document.write("  var usrctr = document.msgcenter.usrctr.value;");
+     pDoc.write("<title>Message Central</title>");
-     pWin.document.write("  var newval = eval(\\"opener.document.SCORE.newmsg\\"+usrctr);");
-     pWin.document.write("  newval.value = document.msgcenter.newmsg.value;");
+     pDoc.write("<script language=javascript>");
+     pDoc.write("function checkInput() {");
-     pWin.document.write("  var msgchk = \\"\\";");
+     pDoc.write("  opener.document.SCORE.msgsub.value = opener.checkEntities(document.msgcenter.msgsub.value);");
-     pWin.document.write("  if (document.msgcenter.subchk.checked) {");
+     pDoc.write("  var nmsg   = opener.document.SCORE.savemsgN.value;");
-     pWin.document.write("     msgchk = \\"msgsub,\\";");
+     pDoc.write("  var usrctr = document.msgcenter.usrctr.value;");
-     pWin.document.write("  }");
+     pDoc.write("  var newval = opener.document.SCORE[\\"newmsg\\"+usrctr];");
-     pWin.document.write(   "for (var i=1; i<=nmsg; i++) {");
+     pDoc.write("  newval.value = opener.checkEntities(document.msgcenter.newmsg.value);");
-     pWin.document.write("      var opnmsg = eval(\\"opener.document.SCORE.savemsg\\"+i);");
-     pWin.document.write("      var frmmsg = eval(\\"document.msgcenter.msg\\"+i);");
+     pDoc.write("  var msgchk = \\"\\";");
-     pWin.document.write("      opnmsg.value = frmmsg.value;");
+     pDoc.write("  if (document.msgcenter.subchk.checked) {");
-     pWin.document.write("      var chkbox = eval(\\"document.msgcenter.msgn\\"+i);");
+     pDoc.write("     msgchk = \\"msgsub,\\";");
-     pWin.document.write("      if (chkbox.checked) {");
+     pDoc.write("  }");
-     pWin.document.write("         msgchk += \\"savemsg\\"+i+\\",\\";");
+     pDoc.write("  var includemsg = 0;");
-     pWin.document.write("      }");
+     pDoc.write("  for (var i=1; i<=nmsg; i++) {");
-     pWin.document.write("  }");
+     pDoc.write("      var opnmsg = opener.document.SCORE[\\"savemsg\\"+i];");
-     pWin.document.write("  if (document.msgcenter.newmsgchk.checked) {");
+     pDoc.write("      var frmmsg = document.msgcenter[\\"msg\\"+i];");
-     pWin.document.write("     msgchk += \\"newmsg\\"+usrctr;");
+     pDoc.write("      opnmsg.value = opener.checkEntities(frmmsg.value);");
-     pWin.document.write("  }");
+     pDoc.write("      var showflg = opener.document.SCORE[\\"shownOnce\\"+i];");
-     pWin.document.write("  var includemsg = eval(\\"opener.document.SCORE.includemsg\\"+usrctr);");
+     pDoc.write("      showflg.value = \\"1\\";");
-     pWin.document.write("  includemsg.value = msgchk;");
+     pDoc.write("      var chkbox = document.msgcenter[\\"msgn\\"+i];");
+     pDoc.write("      if (chkbox.checked) {");
-     pWin.document.write("  self.close()");
+     pDoc.write("         msgchk += \\"savemsg\\"+i+\\",\\";");
+     pDoc.write("         includemsg = 1;");
-     pWin.document.write("}");
+     pDoc.write("      }");
+     pDoc.write("  }");
-     pWin.document.write("<");
+     pDoc.write("  if (document.msgcenter.newmsgchk.checked) {");
-     pWin.document.write("/script>");
+     pDoc.write("     msgchk += \\"newmsg\\"+usrctr;");
+     pDoc.write("     includemsg = 1;");
-     pWin.document.write("</head><body bgcolor=white>");
+     pDoc.write("  }");
+     pDoc.write("  imgformname = opener.document.SCORE[\\"mailicon\\"+usrctr];");
-     pWin.document.write("<form action=\\"inactive\\" name=\\"msgcenter\\">");
+     pDoc.write("  imgformname.src = \\"$iconpath/\\"+((includemsg) ? \\"mailto.gif\\" : \\"mailbkgrd.gif\\");");
-     pWin.document.write("<input value=\\""+usrctr+"\\" name=\\"usrctr\\" type=\\"hidden\\">");
+     pDoc.write("  var includemsg = opener.document.SCORE[\\"includemsg\\"+usrctr];");
-     pWin.document.write("<font color=\\"green\\" size=+1>&nbsp;Compose Message for \"+fullname+\"</font><br><br>");
+     pDoc.write("  includemsg.value = msgchk;");
-     pWin.document.write("<table border=0 width=100%><tr><td bgcolor=\\"#777777\\">");
+     pDoc.write("  self.close()");
-     pWin.document.write("<table border=0 width=100%><tr bgcolor=\\"#ddffff\\">");
-     pWin.document.write("<td><b>Type</b></td><td><b>Include</b></td><td><b>Message</td></tr>");
+     pDoc.write("}");
+     pDoc.write("<");
+     pDoc.write("/script>");
+     pDoc.write("</head><body bgcolor=white>");
+     pDoc.write("<form action=\\"inactive\\" name=\\"msgcenter\\">");
+     pDoc.write("<input value=\\""+usrctr+"\\" name=\\"usrctr\\" type=\\"hidden\\">");
+     pDoc.write("<font color=\\"green\\" size=+1>&nbsp;Compose Message for \"+fullname+\"</font><br><br>");
+     pDoc.write("<table border=0 width=100%><tr><td bgcolor=\\"#777777\\">");
+     pDoc.write("<table border=0 width=100%><tr bgcolor=\\"#ddffff\\">");
+     pDoc.write("<td><b>Type</b></td><td><b>Include</b></td><td><b>Message</td></tr>");
  }
      function displaySubject(msg,shwsel) {
-     pWin.document.write("<tr bgcolor=\\"#ffffdd\\">");
+     pDoc = pWin.document;
-     pWin.document.write("<td>Subject</td>");
+     pDoc.write("<tr bgcolor=\\"#ffffdd\\">");
-     pWin.document.write("<td align=\\"center\\"><input name=\\"subchk\\" type=\\"checkbox\\"" +shwsel+"></td>");
+     pDoc.write("<td>Subject</td>");
-     pWin.document.write("<td><input name=\\"msgsub\\" type=\\"text\\" value=\\""+msg+"\\"size=\\"60\\" maxlength=\\"80\\"></td></tr>");
+     pDoc.write("<td align=\\"center\\"><input name=\\"subchk\\" type=\\"checkbox\\"" +shwsel+"></td>");
+     pDoc.write("<td><input name=\\"msgsub\\" type=\\"text\\" value=\\""+msg+"\\"size=\\"60\\" maxlength=\\"80\\"></td></tr>");
  }
    function displaySavedMsg(ctr,msg,shwsel) {
-     pWin.document.write("<tr bgcolor=\\"#ffffdd\\">");
+     pDoc = pWin.document;
-     pWin.document.write("<td align=\\"center\\">"+ctr+"</td>");
+     pDoc.write("<tr bgcolor=\\"#ffffdd\\">");
-     pWin.document.write("<td align=\\"center\\"><input name=\\"msgn"+ctr+"\\" type=\\"checkbox\\"" +shwsel+"></td>");
+     pDoc.write("<td align=\\"center\\">"+ctr+"</td>");
-     pWin.document.write("<td><textarea name=\\"msg"+ctr+"\\" cols=\\"60\\" rows=\\"3\\">"+msg+"</textarea></td></tr>");
+     pDoc.write("<td align=\\"center\\"><input name=\\"msgn"+ctr+"\\" type=\\"checkbox\\"" +shwsel+"></td>");
+     pDoc.write("<td><textarea name=\\"msg"+ctr+"\\" cols=\\"60\\" rows=\\"3\\">"+msg+"</textarea></td></tr>");
  }
    function newMsg(newmsg,shwsel) {
-     pWin.document.write("<tr bgcolor=\\"#ffffdd\\">");
+     pDoc = pWin.document;
-     pWin.document.write("<td align=\\"center\\">New</td>");
+     pDoc.write("<tr bgcolor=\\"#ffffdd\\">");
-     pWin.document.write("<td align=\\"center\\"><input name=\\"newmsgchk\\" type=\\"checkbox\\"" +shwsel+"></td>");
+     pDoc.write("<td align=\\"center\\">New</td>");
-     pWin.document.write("<td><textarea name=\\"newmsg\\" cols=\\"60\\" rows=\\"3\\" onchange=\\"javascript:this.form.newmsgchk.checked=true\\" >"+newmsg+"</textarea></td></tr>");
+     pDoc.write("<td align=\\"center\\"><input name=\\"newmsgchk\\" type=\\"checkbox\\"" +shwsel+"></td>");
+     pDoc.write("<td><textarea name=\\"newmsg\\" cols=\\"60\\" rows=\\"3\\" onchange=\\"javascript:this.form.newmsgchk.checked=true\\" >"+newmsg+"</textarea></td></tr>");
  }
    function msgTail() {
-     pWin.document.write("</table>");
+     pDoc = pWin.document;
-     pWin.document.write("</td></tr></table>&nbsp;");
+     pDoc.write("</table>");
-     pWin.document.write("<input type=\\"button\\" value=\\"Save\\" onClick=\\"javascript:checkInput()\\">&nbsp;&nbsp;");
+     pDoc.write("</td></tr></table>&nbsp;");
-     pWin.document.write("<input type=\\"button\\" value=\\"Cancel\\" onClick=\\"self.close()\\"><br><br>");
+     pDoc.write("<input type=\\"button\\" value=\\"Save\\" onClick=\\"javascript:checkInput()\\">&nbsp;&nbsp;");
-     pWin.document.write("</form>");
+     pDoc.write("<input type=\\"button\\" value=\\"Cancel\\" onClick=\\"self.close()\\"><br><br>");
-     pWin.document.write("</body></html>");
+     pDoc.write("</form>");
+     pDoc.write("</body></html>");
+     pDoc.close();
  }
  //====================== Script for keyword highlight options ==============
- Line 819  sub sub_page_kw_js {
+ Line 1058  sub sub_page_kw_js {
      return;
    }
    function highlightCentral() {
-     hwdWin = window.open('', 'KeywordHighlightCentral', 'toolbar=no,location=no,scrollbars=no,width=400,height=300,screenx=100,screeny=75');
+ //    if (window.hwdWin) window.hwdWin.close();
-     hwdWin.document.write("<html><head>");
+     var xpos = (screen.width-400)/2;
-     hwdWin.document.write("<title>Highlight Central</title>");
+     xpos = (xpos < 0) ? '0' : xpos;
+     var ypos = (screen.height-330)/2-30;
-     hwdWin.document.write("<script language=javascript>");
+     ypos = (ypos < 0) ? '0' : ypos;
-     hwdWin.document.write("function updateChoice(flag) {");
-     hwdWin.document.write("  opener.document.SCORE.kwclr.value = radioSelection(document.hlCenter.kwdclr);");
+     hwdWin = window.open('', 'KeywordHighlightCentral', 'toolbar=no,location=no,scrollbars=no,width=400,height=300,screenx='+xpos+',screeny='+ypos);
-     hwdWin.document.write("  opener.document.SCORE.kwsize.value = radioSelection(document.hlCenter.kwdsize);");
+     hwdWin.focus();
-     hwdWin.document.write("  opener.document.SCORE.kwstyle.value = radioSelection(document.hlCenter.kwdstyle);");
+     var hDoc = hwdWin.document;
-     hwdWin.document.write("  opener.document.SCORE.refresh.value = \\"on\\";");
+     hDoc.open('text/html','replace');
-     hwdWin.document.write("  if (opener.document.SCORE.keywords.value!=\\"\\"){");
+     hDoc.write("<html><head>");
-     hwdWin.document.write("     opener.document.SCORE.submit();");
+     hDoc.write("<title>Highlight Central</title>");
-     hwdWin.document.write("  }");
-     hwdWin.document.write("  self.close()");
+     hDoc.write("<script language=javascript>");
-     hwdWin.document.write("}");
+     hDoc.write("function updateChoice(flag) {");
+     hDoc.write("  opener.document.SCORE.kwclr.value = opener.radioSelection(document.hlCenter.kwdclr);");
-     hwdWin.document.write("function radioSelection(radioButton) {");
+     hDoc.write("  opener.document.SCORE.kwsize.value = opener.radioSelection(document.hlCenter.kwdsize);");
-     hwdWin.document.write("    var selection=null;");
+     hDoc.write("  opener.document.SCORE.kwstyle.value = opener.radioSelection(document.hlCenter.kwdstyle);");
-     hwdWin.document.write("    for (var i=0; i<radioButton.length; i++) {");
+     hDoc.write("  opener.document.SCORE.refresh.value = \\"on\\";");
-     hwdWin.document.write("        if (radioButton[i].checked) {");
+     hDoc.write("  if (opener.document.SCORE.keywords.value!=\\"\\"){");
-     hwdWin.document.write("            selection=radioButton[i].value;");
+     hDoc.write("     opener.document.SCORE.submit();");
-     hwdWin.document.write("            return selection;");
+     hDoc.write("  }");
-     hwdWin.document.write("        }");
+     hDoc.write("  self.close()");
-     hwdWin.document.write("    }");
+     hDoc.write("}");
-     hwdWin.document.write("}");
+     hDoc.write("<");
-     hwdWin.document.write("<");
+     hDoc.write("/script>");
-     hwdWin.document.write("/script>");
+     hDoc.write("</head><body bgcolor=white>");
-     hwdWin.document.write("</head><body bgcolor=white>");
+     hDoc.write("<form action=\\"inactive\\" name=\\"hlCenter\\">");
-     hwdWin.document.write("<form action=\\"inactive\\" name=\\"hlCenter\\">");
+     hDoc.write("<font color=\\"green\\" size=+1>&nbsp;Keyword Highlight Options</font><br><br>");
-     hwdWin.document.write("<font color=\\"green\\" size=+1>&nbsp;Keyword Highlight Options</font><br><br>");
+     hDoc.write("<table border=0 width=100%><tr><td bgcolor=\\"#777777\\">");
-     hwdWin.document.write("<table border=0 width=100%><tr><td bgcolor=\\"#777777\\">");
+     hDoc.write("<table border=0 width=100%><tr bgcolor=\\"#ddffff\\">");
-     hwdWin.document.write("<table border=0 width=100%><tr bgcolor=\\"#ddffff\\">");
+     hDoc.write("<td><b>Text Color</b></td><td><b>Font Size</b></td><td><b>Font Style</td></tr>");
-     hwdWin.document.write("<td><b>Text Color</b></td><td><b>Font Size</b></td><td><b>Font Style</td></tr>");
    }
    function highlightbody(clrval,clrtxt,clrsel,szval,sztxt,szsel,syval,sytxt,sysel) {
-     hwdWin.document.write("<tr bgcolor=\\"#ffffdd\\">");
+     var hDoc = hwdWin.document;
-     hwdWin.document.write("<td align=\\"left\\">");
+     hDoc.write("<tr bgcolor=\\"#ffffdd\\">");
-     hwdWin.document.write("<input name=\\"kwdclr\\" type=\\"radio\\" value=\\""+clrval+"\\" "+clrsel+">&nbsp;"+clrtxt+"</td>");
+     hDoc.write("<td align=\\"left\\">");
-     hwdWin.document.write("<td align=\\"left\\">");
+     hDoc.write("<input name=\\"kwdclr\\" type=\\"radio\\" value=\\""+clrval+"\\" "+clrsel+">&nbsp;"+clrtxt+"</td>");
-     hwdWin.document.write("<input name=\\"kwdsize\\" type=\\"radio\\" value=\\""+szval+"\\" "+szsel+">&nbsp;"+sztxt+"</td>");
+     hDoc.write("<td align=\\"left\\">");
-     hwdWin.document.write("<td align=\\"left\\">");
+     hDoc.write("<input name=\\"kwdsize\\" type=\\"radio\\" value=\\""+szval+"\\" "+szsel+">&nbsp;"+sztxt+"</td>");
-     hwdWin.document.write("<input name=\\"kwdstyle\\" type=\\"radio\\" value=\\""+syval+"\\" "+sysel+">&nbsp;"+sytxt+"</td>");
+     hDoc.write("<td align=\\"left\\">");
-     hwdWin.document.write("</tr>");
+     hDoc.write("<input name=\\"kwdstyle\\" type=\\"radio\\" value=\\""+syval+"\\" "+sysel+">&nbsp;"+sytxt+"</td>");
+     hDoc.write("</tr>");
    }
    function highlightend() {
-     hwdWin.document.write("</table>");
+     var hDoc = hwdWin.document;
-     hwdWin.document.write("</td></tr></table>&nbsp;");
+     hDoc.write("</table>");
-     hwdWin.document.write("<input type=\\"button\\" value=\\"Save\\" onClick=\\"javascript:updateChoice(1)\\">&nbsp;&nbsp;");
+     hDoc.write("</td></tr></table>&nbsp;");
-     hwdWin.document.write("<input type=\\"button\\" value=\\"Cancel\\" onClick=\\"self.close()\\"><br><br>");
+     hDoc.write("<input type=\\"button\\" value=\\"Save\\" onClick=\\"javascript:updateChoice(1)\\">&nbsp;&nbsp;");
-     hwdWin.document.write("</form>");
+     hDoc.write("<input type=\\"button\\" value=\\"Cancel\\" onClick=\\"self.close()\\"><br><br>");
-     hwdWin.document.write("</body></html>");
+     hDoc.write("</form>");
+     hDoc.write("</body></html>");
+     hDoc.close();
    }
  </script>
- Line 927  sub gradeBox {
+ Line 1167  sub gradeBox {
  	'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";
+ 	    '<option selected="on">excused</option>';
      } else {
  	$result.='<option selected="on"> </option>'.
- 	    '<option>excused</option></select>'."\n";
+ 	    '<option>excused</option>';
      }
+     $result.='<option>reset status</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".
- Line 974  sub submission {
+ Line 1215  sub submission {
      (my $url=$ENV{'form.url'})=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;
      my ($uname,$udom)     = ($ENV{'form.student'},$ENV{'form.userdom'});
-     ($uname,$udom)        = &finduser($uname) if $udom eq '';
+     $udom = ($udom eq '' ? $ENV{'user.domain'} : $udom); #has form.userdom changed for a student?
+     my $usec = &Apache::lonnet::getsection($udom,$uname,$ENV{'request.course.id'});
      $ENV{'form.fullname'} = &get_fullname ($uname,$udom) if $ENV{'form.fullname'} eq '';
      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 (!&canview($usec)) {
+ 	$request->print('<font color="red">Unable to view requested student.('.
+ 			$uname.$udom.$usec.$ENV{'request.course.id'}.')</font>');
+ 	$request->print(&show_grading_menu_form($symb,$url));
+ 	return;
+     }
+     $ENV{'form.lastSub'} = ($ENV{'form.lastSub'} eq '' ? 'datesub' : $ENV{'form.lastSub'});
      my $last = ($ENV{'form.lastSub'} eq 'last' ? 'last' : '');
+     my $checkIcon = '<img src="'.$request->dir_config('lonIconsURL').
+ 	'/check.gif" height="16" border="0" />';
      # header info
      if ($counter == 0) {
  	&sub_page_js($request);
- 	&sub_page_kw_js($request);
+ 	&sub_page_kw_js($request) if ($ENV{'form.handgrade'} eq 'yes');
+ 	$ENV{'form.probTitle'} = $ENV{'form.probTitle'} eq '' ?
+ 	    &Apache::lonnet::gettitle($symb) : $ENV{'form.probTitle'};
  	$request->print('<h3>&nbsp;<font color="#339933">Submission Record</font></h3>'."\n".
- 			'<font size=+1>&nbsp;<b>Problem: </b>'.$ENV{'form.probTitle'}.'</font>'."\n");
+ 			'<font size=+1>&nbsp;<b>Resource: </b>'.$ENV{'form.probTitle'}.'</font>'."\n");
+ 	if ($ENV{'form.handgrade'} eq 'no') {
+ 	    my $checkMark='<br /><br />&nbsp;<b>Note:</b> Part(s) graded correct by the computer is marked with a '.
+ 		$checkIcon.' symbol.'."\n";
+ 	    $request->print($checkMark);
+ 	}
  	# option to display problem, only once else it cause problems
          # with the form later since the problem has a form.
- Line 997  sub submission {
+ Line 1259  sub submission {
  	# kwclr is the only variable that is guaranteed to be non blank
          # if this subroutine has been called once.
  	my %keyhash = ();
- 	if ($ENV{'form.kwclr'} eq '') {
+ 	if ($ENV{'form.kwclr'} eq '' && $ENV{'form.handgrade'} eq 'yes') {
  	    %keyhash = &Apache::lonnet::dump('nohist_handgrade',
  					     $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
  					     $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
- Line 1010  sub submission {
+ Line 1272  sub submission {
  	    $ENV{'form.msgsub'}   = $keyhash{$symb.'_subject'} ne '' ?
  		$keyhash{$symb.'_subject'} : $ENV{'form.probTitle'};
  	    $ENV{'form.savemsgN'} = $keyhash{$symb.'_savemsgN'} ne '' ? $keyhash{$symb.'_savemsgN'} : '0';
  	}
+ 	my $overRideScore = $ENV{'form.overRideScore'} eq '' ? 'no' : $ENV{'form.overRideScore'};
  	$request->print('<form action="/adm/grades" method="post" name="SCORE">'."\n".
  			'<input type="hidden" name="command"    value="handgrade" />'."\n".
- 			'<input type="hidden" name="lastCmd"    value="'.$ENV{'form.lastCmd'}.'" />'."\n".
+ 			'<input type="hidden" name="saveState"  value="'.$ENV{'form.saveState'}.'" />'."\n".
- 			'<input type="hidden" name="lastSec"    value="'.$ENV{'form.lastSec'}.'" />'."\n".
+ 			'<input type="hidden" name="Status"     value="'.$ENV{'form.Status'}.'" />'."\n".
+ 			'<input type="hidden" name="overRideScore" value="'.$overRideScore.'" />'."\n".
  			'<input type="hidden" name="probTitle"  value="'.$ENV{'form.probTitle'}.'" />'."\n".
  			'<input type="hidden" name="refresh"    value="off" />'."\n".
+ 			'<input type="hidden" name="studentNo"  value="" />'."\n".
+ 			'<input type="hidden" name="gradeOpt"   value="" />'."\n".
  			'<input type="hidden" name="symb"       value="'.$symb.'" />'."\n".
  			'<input type="hidden" name="url"        value="'.$url.'" />'."\n".
  			'<input type="hidden" name="showgrading" value="'.$ENV{'form.showgrading'}.'" />'."\n".
- Line 1026  sub submission {
+ Line 1291  sub submission {
  			'<input type="hidden" name="lastSub"    value="'.$ENV{'form.lastSub'}.'" />'."\n".
  			'<input type="hidden" name="section"    value="'.$ENV{'form.section'}.'">'."\n".
  			'<input type="hidden" name="submitonly" value="'.$ENV{'form.submitonly'}.'">'."\n".
- 			'<input type="hidden" name="response"   value="'.$ENV{'form.response'}.'">'."\n".
  			'<input type="hidden" name="handgrade"  value="'.$ENV{'form.handgrade'}.'">'."\n".
- 			'<input type="hidden" name="keywords"   value="'.$ENV{'form.keywords'}.'" />'."\n".
- 			'<input type="hidden" name="kwclr"      value="'.$ENV{'form.kwclr'}.'" />'."\n".
- 			'<input type="hidden" name="kwsize"     value="'.$ENV{'form.kwsize'}.'" />'."\n".
- 			'<input type="hidden" name="kwstyle"    value="'.$ENV{'form.kwstyle'}.'" />'."\n".
- 			'<input type="hidden" name="msgsub"     value="'.$ENV{'form.msgsub'}.'" />'."\n".
- 			'<input type="hidden" name="savemsgN"   value="'.$ENV{'form.savemsgN'}.'" />'."\n".
  			'<input type="hidden" name="NCT"'.
  			' value="'.($ENV{'form.NTSTU'} ne '' ? $ENV{'form.NTSTU'} : $total+1).'" />'."\n");
+ 	if ($ENV{'form.handgrade'} eq 'yes') {
+ 	    $request->print('<input type="hidden" name="keywords" value="'.$ENV{'form.keywords'}.'" />'."\n".
+ 			    '<input type="hidden" name="kwclr"    value="'.$ENV{'form.kwclr'}.'" />'."\n".
+ 			    '<input type="hidden" name="kwsize"   value="'.$ENV{'form.kwsize'}.'" />'."\n".
+ 			    '<input type="hidden" name="kwstyle"  value="'.$ENV{'form.kwstyle'}.'" />'."\n".
+ 			    '<input type="hidden" name="msgsub"   value="'.$ENV{'form.msgsub'}.'" />'."\n".
+ 			    '<input type="hidden" name="shownSub" value="0" />'."\n".
+ 			    '<input type="hidden" name="savemsgN" value="'.$ENV{'form.savemsgN'}.'" />'."\n");
+ 	}
  	my ($cts,$prnmsg) = (1,'');
  	while ($cts <= $ENV{'form.savemsgN'}) {
  	    $prnmsg.='<input type="hidden" name="savemsg'.$cts.'" value="'.
- 		($keyhash{$symb.'_savemsg'.$cts} eq '' ? $ENV{'form.savemsg'.$cts} : $keyhash{$symb.'_savemsg'.$cts}).
+ 		(!exists($keyhash{$symb.'_savemsg'.$cts}) ?
- 		'" />'."\n";
+ 		 &Apache::lonfeedback::clear_out_html($ENV{'form.savemsg'.$cts}) :
+ 		 &Apache::lonfeedback::clear_out_html($keyhash{$symb.'_savemsg'.$cts})).
+ 		'" />'."\n".
+ 		'<input type="hidden" name="shownOnce'.$cts.'" value="0" />'."\n";
  	    $cts++;
  	}
  	$request->print($prnmsg);
  	if ($ENV{'form.handgrade'} eq 'yes' && $ENV{'form.showgrading'} eq 'yes') {
+ #
+ # Print out the keyword options line
+ #
  	    $request->print(<<KEYWORDS);
  &nbsp;<b>Keyword Options:</b>&nbsp;
- <a href="javascript:keywords(document.SCORE.keywords)"; TARGET=_self>List</a>&nbsp; &nbsp;
+ <a href="javascript:keywords(document.SCORE)"; TARGET=_self>List</a>&nbsp; &nbsp;
  <a href="#" onMouseDown="javascript:getSel(); return false"
   CLASS="page">Paste Selection to List</a>&nbsp; &nbsp;
  <a href="javascript:kwhighlight()"; TARGET=_self>Highlight Attribute</a><br /><br />
  KEYWORDS
+ #
+ # Load the other essays for similarity check
+ #
+             my $essayurl=&Apache::lonnet::declutter($url);
+ 	    my ($adom,$aname,$apath)=($essayurl=~/^(\w+)\/(\w+)\/(.*)$/);
+ 	    $apath=&Apache::lonnet::escape($apath);
+ 	    $apath=~s/\W/\_/gs;
+ 	    %oldessays=&Apache::lonnet::dump('nohist_essay_'.$apath,$adom,$aname);
          }
      }
- Line 1061  KEYWORDS
+ Line 1342  KEYWORDS
  	$request->print('<br /><br /><br />') if ($counter > 0);
  	$request->print(&show_problem($request,$symb,$uname,$udom,1,1));
      }
      my %record = &Apache::lonnet::restore($symb,$ENV{'request.course.id'},$udom,$uname);
-     my ($partlist,$handgrade) = &response_type($url);
+     my ($partlist,$handgrade) = &response_type($url,$symb);
      # Display student info
      $request->print(($counter == 0 ? '' : '<br />'));
- Line 1071  KEYWORDS
+ Line 1352  KEYWORDS
  	'<table border="0" width=100%><tr bgcolor="#edffff"><td>'."\n";
      $result.='<b>Fullname: </b>'.$ENV{'form.fullname'}.
- 	'<font color="#999999">&nbsp; &nbsp;Username: '.$uname.'</font>'.
+ 	'<font color="#999999">&nbsp; &nbsp;Username: '.$uname.
- 	'<font color="#999999">&nbsp; &nbsp;Domain: '.$udom.'</font><br />'."\n";
+ 	($ENV{'user.domain'} eq $udom ? '' : ' ('.$udom.')').'</font><br />'."\n";
      $result.='<input type="hidden" name="name'.$counter.
  	'" value="'.$ENV{'form.fullname'}.'" />'."\n";
-     # If this is handgraded, then check for collaborators
+     # If any part of the problem is an essay-response (handgraded), then check for collaborators
      my @col_fullnames;
      my ($classlist,$fullname);
      if ($ENV{'form.handgrade'} eq 'yes') {
- 	my @col_list;
  	($classlist,undef,$fullname) = &getclasslist('all','0');
  	for (keys (%$handgrade)) {
  	    my $ncol = &Apache::lonnet::EXT('resource.'.$_.
- Line 1089  KEYWORDS
+ Line 1369  KEYWORDS
  	    next if ($ncol <= 0);
              s/\_/\./g;
              next if ($record{'resource.'.$_.'.collaborators'} eq '');
-             my (@collaborators) = split(/,?\s+/,
+             my @goodcollaborators = ();
-                                    $record{'resource.'.$_.'.collaborators'});
+             my @badcollaborators  = ();
-             my (@badcollaborators);
+ 	    foreach (split(/,?\s+/,$record{'resource.'.$_.'.collaborators'})) {
-             if (scalar(@collaborators) != 0) {
+ 		$_ =~ s/[\$\^\(\)]//g;
+ 		next if ($_ eq '');
+ 		my ($co_name,$co_dom) = split /\@|:/,$_;
+ 		$co_dom = $udom if (! defined($co_dom) || $co_dom =~ /^domain$/i);
+ 		next if ($co_name eq $uname && $co_dom eq $udom);
+ 		# Doing this grep allows 'fuzzy' specification
+ 		my @Matches = grep /^$co_name:$co_dom$/i,keys %$classlist;
+ 		if (! scalar(@Matches)) {
+ 		    push @badcollaborators,$_;
+ 		} else {
+ 		    push @goodcollaborators, @Matches;
+ 		}
+ 	    }
+             if (scalar(@goodcollaborators) != 0) {
                  $result.='<b>Collaborators: </b>';
-                 foreach my $collaborator (@collaborators) {
+                 foreach (@goodcollaborators) {
-                     my ($co_name,$co_dom) = split /\@|:/,$collaborator;
+ 		    my ($lastname,$givenn) = split(/,/,$$fullname{$_});
-                     $co_dom = $udom if (! defined($co_dom));
+ 		    push @col_fullnames, $givenn.' '.$lastname;
-                     next if ($co_name eq $uname && $co_dom eq $udom);
+ 		    $result.=$$fullname{$_}.'&nbsp; &nbsp; &nbsp;';
-                     # Doing this grep allows 'fuzzy' specification
+ 		}
-                     my @Matches = grep /^$co_name:$co_dom/i,
-                     keys %$classlist;
-                     if (! scalar(@Matches)) {
-                         push @badcollaborators,$collaborator;
-                         next;
-                     }
-                     push @col_list, @Matches;
-                     foreach (@Matches) {
-                         my ($lastname,$givenn) = split(/,/,$$fullname{$_});
-                         push @col_fullnames, $givenn.' '.$lastname;
-                         $result.=$$fullname{$_}.'&nbsp; &nbsp; &nbsp;';
-                     }
-                 }
                  $result.='<br />'."\n";
-                 if (scalar(@badcollaborators) > 0) {
+ 		$result.='<input type="hidden" name="collaborator'.$counter.
-                     $result.='<table border="0"><tr bgcolor="#ffbbbb"><td>';
+ 		    '" value="'.(join ':',@goodcollaborators).'" />'."\n";
-                     $result.='This student has submitted ';
+ 	    }
-                     if (scalar(@badcollaborators) == 1) {
+ 	    if (scalar(@badcollaborators) > 0) {
-                         $result .= 'an invalid collaborator';
+ 		$result.='<table border="0"><tr bgcolor="#ffbbbb"><td>';
-                     } else {
+ 		$result.='This student has submitted ';
-                         $result .= 'invalid collaborators';
+ 		$result.=(scalar(@badcollaborators) == 1) ? 'an invalid collaborator' : 'invalid collaborators';
-                     }
+ 		$result .= ': '.join(', ',@badcollaborators);
-                     $result .= ': '.join(', ',@badcollaborators);
+ 		$result .= '</td></tr></table>';
+ 	    }
-                 }
+ 	    if (scalar(@badcollaborators > $ncol)) {
-                 if (scalar(@collaborators > $ncol)) {
+ 		$result .= '<table border="0"><tr bgcolor="#ffbbbb"><td>';
-                     $result .= '<table border="0"><tr bgcolor="#ffbbbb"><td>';
+ 		$result .= 'This student has submitted too many '.
-                     $result .= 'This student has sumbitted too many '.
+ 		    'collaborators.  Maximum is '.$ncol.'.';
-                         'collaborators.  Maximum is '.$ncol;
+ 		$result .= '</td></tr></table>';
-                     $result .= '</td></tr></table>';
+ 	    }
-                 }
-                 $result.='<input type="hidden" name="collaborator'.$counter.
-                     '" value="'.(join ':',@col_list).'" />'."\n";
-             }
  	}
      }
      $request->print($result."\n");
- Line 1153  KEYWORDS
+ Line 1429  KEYWORDS
  		$$fullname{$ENV{'form.'.$uname.':'.$udom.':submitted_by'}}.'</a>';
  	    $request->print($submitby);
  	} else {
- 	    my ($string,$timestamp)=
+ 	    my ($string,$timestamp)= &get_last_submission (\%record);
- 		&get_last_submission (%record);
  	    my $lastsubonly=''.
  		($$timestamp eq '' ? '' : '<b>Date Submitted:</b> '.
- 		 $$timestamp).'';
+ 		 $$timestamp)."</td></tr>\n";
  	    if ($$timestamp eq '') {
- 		$lastsubonly.='<tr><td bgcolor="#ffffe6">'.$$string[0].'</td></tr>'."\n";
+ 		$lastsubonly.='<tr><td bgcolor="#ffffe6">'.$$string[0];
  	    } else {
  		for my $part (sort keys(%$handgrade)) {
- 		    foreach (@$string) {
+ 		    my ($responsetype,$foo) = split(/:/,$$handgrade{$part});
- 			my ($partid,$respid) = /^resource\.(\d+)\.(\d+)\.submission/;
+ 		    my ($partid,$respid) = split(/_/,$part);
- 			if ($part eq ($partid.'_'.$respid)) {
+ 		    if (!exists($record{'resource.'.$partid.'.'.$respid.'.submission'})) {
- 			    my ($ressub,$subval) = split(/:/,$_,2);
+ 			$lastsubonly.='<tr><td bgcolor="#ffffe6"><b>Part '.
- 			    $lastsubonly.='<tr><td bgcolor="#ffffe6"><b>Part '.
+ 			    $partid.'</b> <font color="#999999">( ID '.$respid.
- 				$partid.'</b> <font color="#999999">( ID '.$respid.
+ 			    ' )</font>&nbsp; &nbsp;'.
- 				' )</font>&nbsp; &nbsp;'.
+ 			    '<font color="red">Nothing submitted - no attempts</font><br /><br />';
-                                 ($record{"resource.$partid.$respid.uploadedurl"}?
+  		    } else {
-                                 '<a href="'.
+ 			foreach (@$string) {
-                                 &Apache::lonnet::tokenwrapper($record{"resource.$partid.$respid.uploadedurl"}).
+ 			    my ($partid,$respid) = /^resource\.(\w+)\.(\w+)\.submission/;
-    '"><img src="/adm/lonIcons/unknown.gif" border=0"> File uploaded by student</a> <font color="red" size="1">Like all files provided by users, this file may contain virusses</font><br />':'').
+ 			    if ($part eq ($partid.'_'.$respid)) {
-                                 '<b>Answer: </b>'.
+ 				my ($ressub,$subval) = split(/:/,$_,2);
- 				&keywords_highlight($subval).'</td></tr>'."\n"
+                             # Similarity check
- 				if ($ENV{'form.lastSub'} eq 'lastonly' ||
+ 				my $similar='';
- 				    ($ENV{'form.lastSub'} eq 'hdgrade' &&
+ 				my ($oname,$odom,$ocrsid,$oessay,$osim)=&most_similar($uname,$udom,$subval);
- 				     $$handgrade{$part} =~ /:yes$/));
+ 				if ($osim) {
+ 				    $osim=int($osim*100.0);
+ 				    $similar='<hr /><h3><font color="#FF0000">Essay is '.$osim.
+ 					'% similar to an essay by '.&Apache::loncommon::plainname($oname,$odom).
+ 					'</font></h3><blockquote><i>'.
+ 					&keywords_highlight($oessay).'</i></blockquote><hr />';
+ 				}
+ 				$lastsubonly.='<tr><td bgcolor="#ffffe6"><b>Part '.
+ 				    $partid.'</b> <font color="#999999">( ID '.$respid.
+ 				    ' )</font>&nbsp; &nbsp;'.
+ 				    ($record{"resource.$partid.$respid.uploadedurl"}?
+ 				     '<a href="'.
+ 				     &Apache::lonnet::tokenwrapper($record{"resource.$partid.$respid.uploadedurl"}).
+ 				     '"><img src="/adm/lonIcons/unknown.gif" border=0"> File uploaded by student</a> '.
+ 				     '<font color="red" size="1">Like all files provided by users, '.
+ 				     'this file may contain virusses</font><br />':'').
+ 				     '<b>Submitted Answer: </b>'.
+ 				     &cleanRecord($subval,$responsetype,$symb).
+ 				      '<br /><br />'.$similar."\n"
+ 				     if ($ENV{'form.lastSub'} eq 'lastonly' ||
+ 					 ($ENV{'form.lastSub'} eq 'hdgrade' &&
+ 					  $$handgrade{$part} =~ /:yes$/));
+ 			    }
  			}
  		    }
  		}
  	    }
- 	    $lastsubonly.='</td></tr>'."\n";
+ 	    $lastsubonly.='</td></tr><tr bgcolor="#ffffff"><td>'."\n";
  	    $request->print($lastsubonly);
  	}
-     } else {
+     } elsif ($ENV{'form.lastSub'} eq 'datesub') {
+ 	my (undef,$responseType,undef,$parts) = &showResourceInfo($url);
+ 	$request->print(&displaySubByDates(\$symb,\%record,$parts,$responseType,$checkIcon));
+     } elsif ($ENV{'form.lastSub'} =~ /^(last|all)$/) {
  	$request->print(&Apache::loncommon::get_previous_attempt($symb,$uname,$udom,
  								 $ENV{'request.course.id'},
  								 $last,'.submission',
  								 'Apache::grades::keywords_highlight'));
      }
+     $request->print('<input type="hidden" name="unamedom'.$counter.'" value="'.$uname.':'
+ 	.$udom.'" />'."\n");
      # return if view submission with no grading option
-     if ($ENV{'form.showgrading'} eq '') {
+     if ($ENV{'form.showgrading'} eq '' || (!&canmodify($usec))) {
- 	$request->print('</td></tr></table></td></tr></table></form>'."\n");
+ 	my $toGrade.='<input type="button" value="Grade Student" '.
- 	$request->print(&show_grading_menu_form($symb,$url))
+ 	    'onClick="javascript:checksubmit(this.form,\'Grade Student\',\''
+ 	    .$counter.'\');" TARGET=_self> &nbsp;'."\n" if (&canmodify($usec));
+ 	$toGrade.='</td></tr></table></td></tr></table></form>'."\n";
+ 	$toGrade.=&show_grading_menu_form($symb,$url)
  	    if (($ENV{'form.command'} eq 'submission') ||
  		($ENV{'form.command'} eq 'processGroup' && $counter == $total));
+ 	$request = print($toGrade);
  	return;
      }
-     # Grading options
+     # essay grading message center
-     $result='<input type="hidden" name="newmsg'.$counter.'" value="" />'."\n".
+     if ($ENV{'form.handgrade'} eq 'yes') {
- 	'<input type="hidden" name="includemsg'.$counter.'" value="" />'."\n".
+ 	my ($lastname,$givenn) = split(/,/,$ENV{'form.fullname'});
- 	'<input type="hidden" name="unamedom'.$counter.'" value="'.$uname.':'
+ 	my $msgfor = $givenn.' '.$lastname;
- 	.$udom.'" />'."\n";
+ 	if (scalar(@col_fullnames) > 0) {
-     my ($lastname,$givenn) = split(/,/,$ENV{'form.fullname'});
+ 	    my $lastone = pop @col_fullnames;
-     my $msgfor = $givenn.' '.$lastname;
+ 	    $msgfor .= ', '.(join ', ',@col_fullnames).' and '.$lastone.'.';
-     if (scalar(@col_fullnames) > 0) {
+ 	}
- 	my $lastone = pop @col_fullnames;
+ 	$msgfor =~ s/\'/\\'/g; #' stupid emacs - no! javascript
- 	$msgfor .= ', '.(join ', ',@col_fullnames).' and '.$lastone.'.';
+ 	$result='<input type="hidden" name="includemsg'.$counter.'" value="" />'."\n".
-     }
+ 	    '<input type="hidden" name="newmsg'.$counter.'" value="" />'."\n";
-     $result.='<tr><td bgcolor="#ffffff">'."\n".
+ 	$result.='&nbsp;<a href="javascript:msgCenter(document.SCORE,'.$counter.
- 	'&nbsp;<a href="javascript:msgCenter(document.SCORE,'.$counter.
+ 	    ',\''.$msgfor.'\')"; TARGET=_self>'.
- 	',\''.$msgfor.'\')"; TARGET=_self>'.
+ 	    'Compose Message to student'.(scalar(@col_fullnames) >= 1 ? 's' : '').'</a> &nbsp;'.
- 	'Compose Message to student'.(scalar(@col_fullnames) >= 1 ? 's' : '').'</a>'.
+ 	    '<img src="'.$request->dir_config('lonIconsURL').
- 	'<br />&nbsp;(Message will be sent when you click on Save & Next below.)'."\n"
+ 	    '/mailbkgrd.gif" width="14" height="10" name="mailicon'.$counter.'" />'."\n".
- 	if ($ENV{'form.handgrade'} eq 'yes');
+ 	    '<br />&nbsp;(Message will be sent when you click on Save & Next below.)'."\n"
-     $request->print($result);
+ 	    if ($ENV{'form.handgrade'} eq 'yes');
+ 	$request->print($result);
+     }
      my %seen = ();
      my @partlist;
- Line 1226  KEYWORDS
+ Line 1535  KEYWORDS
  	my ($partid,$respid) = split(/_/);
  	next if ($seen{$partid} > 0);
  	$seen{$partid}++;
- 	next if ($$handgrade{$_} =~ /:no$/);
+ 	next if ($$handgrade{$_} =~ /:no$/ && $ENV{'form.lastSub'} =~ /^(hdgrade)$/);
  	push @partlist,$partid;
  	$request->print(&gradeBox($request,$symb,$uname,$udom,$counter,$partid,\%record));
- Line 1243  KEYWORDS
+ Line 1552  KEYWORDS
      # print end of form
      if ($counter == $total) {
- 	my $endform='<table border="0"><tr><td>'.
+ 	my $endform='<table border="0"><tr><td>'."\n";
- 	    '<input type="hidden" name="gradeOpt" value="" />'."\n";
+ 	$endform.='<input type="button" value="Save & Next" '.
- 	if ($ENV{'form.handgrade'} eq 'yes') {
+ 	    'onClick="javascript:checksubmit(this.form,\'Save & Next\','.
- 	    $endform.='<input type="button" value="Save & Next" '.
+ 	    $total.','.scalar(@partlist).');" TARGET=_self> &nbsp;'."\n";
- 		'onClick="javascript:checksubmit(this.form,\'Save & Next\','.
+ 	my $ntstu ='<select name="NTSTU">'.
- 		$total.','.scalar(@partlist).');" TARGET=_self> &nbsp;'."\n";
+ 	    '<option>1</option><option>2</option>'.
- 	    my $ntstu ='<select name="NTSTU">'.
+ 	    '<option>3</option><option>5</option>'.
- 		'<option>1</option><option>2</option>'.
+ 	    '<option>7</option><option>10</option></select>'."\n";
- 		'<option>3</option><option>5</option>'.
+ 	my $nsel = ($ENV{'form.NTSTU'} ne '' ? $ENV{'form.NTSTU'} : '1');
- 		'<option>7</option><option>10</option></select>'."\n";
+ 	$ntstu =~ s/<option>$nsel</<option selected="on">$nsel</;
- 	    my $nsel = ($ENV{'form.NTSTU'} ne '' ? $ENV{'form.NTSTU'} : '1');
+ 	$endform.=$ntstu.'student(s) &nbsp;&nbsp;';
- 	    $ntstu =~ s/<option>$nsel</<option selected="on">$nsel</;
+ 	$endform.='<input type="button" value="Previous" '.
- 	    $endform.=$ntstu.'student(s) &nbsp;&nbsp;';
+ 	    'onClick="javascript:checksubmit(this.form,\'Previous\');" TARGET=_self> &nbsp;'."\n".
- 	} else {
+ 	    '<input type="button" value="Next" '.
- 	    $endform.='<input type="hidden" name="NTSTU" value="1" />'."\n";
+ 	    'onClick="javascript:checksubmit(this.form,\'Next\');" TARGET=_self> &nbsp;';
- 	}
+ 	$endform.='(Next and Previous (student) do not save the scores.)'."\n" ;
- 	$endform.='<input type="button" value="Next" '.
- 	    'onClick="javascript:checksubmit(this.form,\'Next\');" TARGET=_self> &nbsp;'."\n".
- 	    '<input type="button" value="Previous" '.
- 	    'onClick="javascript:checksubmit(this.form,\'Previous\');" TARGET=_self> &nbsp;';
- 	$endform.='(Next and Previous do not save the scores.)'."\n"
- 	    if ($ENV{'form.handgrade'} eq 'yes');
  	$endform.='</td><tr></table></form>';
  	$endform.=&show_grading_menu_form($symb,$url);
  	$request->print($endform);
- Line 1274  KEYWORDS
+ Line 1577  KEYWORDS
  #--- Retrieve the last submission for all the parts
  sub get_last_submission {
-     my (%returnhash)=@_;
+     my ($returnhash)=@_;
      my (@string,$timestamp);
-     if ($returnhash{'version'}) {
+     if ($$returnhash{'version'}) {
  	my %lasthash=();
  	my ($version);
- 	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.':'.$_};
- 		   $timestamp = scalar(localtime($returnhash{$version.':timestamp'}));
+ 		   $timestamp = scalar(localtime($$returnhash{$version.':timestamp'}));
  	    }
  	}
  	foreach ((keys %lasthash)) {
- Line 1294  sub get_last_submission {
+ Line 1597  sub get_last_submission {
  	    }
  	}
      }
-     @string = $string[0] eq '' ? 'Nothing submitted - no attempts.' : @string;
+     @string = $string[0] eq '' ? '<font color="red">Nothing submitted - no attempts.</font>' : @string;
      return \@string,\$timestamp;
  }
- Line 1306  sub keywords_highlight {
+ Line 1609  sub keywords_highlight {
      (my $styleoff = $styleon) =~ s/\</\<\//;
      my @keylist   = split(/[,\s+]/,$ENV{'form.keywords'});
      foreach (@keylist) {
- 	$string =~ s/\b\Q$_\E(\b|\.)/\<font color\=$ENV{'form.kwclr'} $size\>$styleon$_$styleoff\<\/font\>/gi;
+ 	$string =~ s/\b\Q$_\E(\b|\.)/<font color\=$ENV{'form.kwclr'} $size\>$styleon$_$styleoff<\/font>/gi;
      }
-     # This is not really the right place to do this, but I cannot find a
-     # better one at this time.  So here we go - the m in the s:::mg causes
-     # ^ to match the beginning of a new line.  So we replace(???) the beginning
-     # of the line with <br /> to make things formatted a little better.
-     $string =~ s:^:<br />:mg;
      return $string;
  }
- Line 1324  sub processHandGrade {
+ Line 1622  sub processHandGrade {
      my $button = $ENV{'form.gradeOpt'};
      my $ngrade = $ENV{'form.NCT'};
      my $ntstu  = $ENV{'form.NTSTU'};
      if ($button eq 'Save & Next') {
  	my $ctr = 0;
  	while ($ctr < $ngrade) {
  	    my ($uname,$udom) = split(/:/,$ENV{'form.unamedom'.$ctr});
- 	    my ($errorflag) = &saveHandGrade($request,$url,$symb,$uname,$udom,$ctr);
+ 	    my ($errorflag,$pts,$wgt) = &saveHandGrade($request,$url,$symb,$uname,$udom,$ctr);
  	    if ($errorflag eq 'no_score') {
  		$ctr++;
  		next;
  	    }
+ 	    if ($errorflag eq 'not_allowed') {
+ 		$request->print("<font color=\"red\">Not allowed to modify grades for $uname:$udom</font>");
+ 		$ctr++;
+ 		next;
+ 	    }
  	    my $includemsg = $ENV{'form.includemsg'.$ctr};
  	    my ($subject,$message,$msgstatus) = ('','','');
  	    if ($includemsg =~ /savemsg|newmsg\Q$ctr\E/) {
- Line 1343  sub processHandGrade {
+ Line 1644  sub processHandGrade {
  		foreach (@msgnum) {
  		    $message.=$ENV{'form.'.$_} if ($_ =~ /savemsg|newmsg/ && $_ ne '');
  		}
- 		#$message =~ s/\s+/ /g;
+ 		$message =&Apache::lonfeedback::clear_out_html($message);
+ 		$message.="\n\nPoint".($pts > 1 ? 's':'').' awarded = '.$pts.' out of '.$wgt;
+ 		$message.=" for <a href=\"".
+ 		    &Apache::lonnet::clutter($url).
+ 		    "?symb=$symb\">$ENV{'form.probTitle'}</a>";
  		$msgstatus = &Apache::lonmsg::user_normal_msg ($uname,$udom,
  							       $ENV{'form.msgsub'},$message);
  	    }
  	    if ($ENV{'form.collaborator'.$ctr}) {
  		my (@collaborators) = split(/:/,$ENV{'form.collaborator'.$ctr});
  		foreach (@collaborators) {
- 		    &saveHandGrade($request,$url,$symb,$_,$udom,$ctr,
+ 		    my ($errorflag,$pts,$wgt) =
- 				   $ENV{'form.unamedom'.$ctr});
+ 			&saveHandGrade($request,$url,$symb,$_,$udom,$ctr,$ENV{'form.unamedom'.$ctr});
- 		    if ($message ne '') {
+ 		    if ($errorflag eq 'not_allowed') {
- 			$msgstatus = &Apache::lonmsg::user_normal_msg ($_,$udom,
+ 			$request->print("<font color=\"red\">Not allowed to modify grades for $_:$udom</font>");
- 								       $ENV{'form.msgsub'},
+ 			next;
- 								       $message);
+ 		    } else {
+ 			if ($message ne '') {
+ 			    $msgstatus = &Apache::lonmsg::user_normal_msg ($_,$udom,
+ 									   $ENV{'form.msgsub'},
+ 									   $message);
+ 			}
  		    }
  		}
  	    }
- Line 1363  sub processHandGrade {
+ Line 1673  sub processHandGrade {
  	}
      }
-     # Keywords sorted in alphabatical order
+     if ($ENV{'form.handgrade'} eq 'yes') {
-     my $loginuser = $ENV{'user.name'}.':'.$ENV{'user.domain'};
+ 	# Keywords sorted in alphabatical order
-     my %keyhash = ();
+ 	my $loginuser = $ENV{'user.name'}.':'.$ENV{'user.domain'};
-     $ENV{'form.keywords'}           =~ s/,\s{0,}|\s+/ /g;
+ 	my %keyhash = ();
-     $ENV{'form.keywords'}           =~ s/^\s+|\s+$//;
+ 	$ENV{'form.keywords'}           =~ s/,\s{0,}|\s+/ /g;
-     my (@keywords) = sort(split(/\s+/,$ENV{'form.keywords'}));
+ 	$ENV{'form.keywords'}           =~ s/^\s+|\s+$//;
-     $ENV{'form.keywords'} = join(' ',@keywords);
+ 	my (@keywords) = sort(split(/\s+/,$ENV{'form.keywords'}));
-     $keyhash{$symb.'_keywords'}     = $ENV{'form.keywords'};
+ 	$ENV{'form.keywords'} = join(' ',@keywords);
-     $keyhash{$symb.'_subject'}      = $ENV{'form.msgsub'};
+ 	$keyhash{$symb.'_keywords'}     = $ENV{'form.keywords'};
-     $keyhash{$loginuser.'_kwclr'}   = $ENV{'form.kwclr'};
+ 	$keyhash{$symb.'_subject'}      = $ENV{'form.msgsub'};
-     $keyhash{$loginuser.'_kwsize'}  = $ENV{'form.kwsize'};
+ 	$keyhash{$loginuser.'_kwclr'}   = $ENV{'form.kwclr'};
-     $keyhash{$loginuser.'_kwstyle'} = $ENV{'form.kwstyle'};
+ 	$keyhash{$loginuser.'_kwsize'}  = $ENV{'form.kwsize'};
+ 	$keyhash{$loginuser.'_kwstyle'} = $ENV{'form.kwstyle'};
-     # message center - Order of message gets changed. Blank line is eliminated.
-     # New messages are saved in ENV for the next student.
+ 	# message center - Order of message gets changed. Blank line is eliminated.
-     # All messages are saved in nohist_handgrade.db
+ 	# New messages are saved in ENV for the next student.
-     my ($ctr,$idx) = (1,1);
+ 	# All messages are saved in nohist_handgrade.db
-     while ($ctr <= $ENV{'form.savemsgN'}) {
+ 	my ($ctr,$idx) = (1,1);
- 	if ($ENV{'form.savemsg'.$ctr} ne '') {
+ 	while ($ctr <= $ENV{'form.savemsgN'}) {
- 	    $keyhash{$symb.'_savemsg'.$idx} = $ENV{'form.savemsg'.$ctr};
+ 	    if ($ENV{'form.savemsg'.$ctr} ne '') {
- 	    $idx++;
+ 		$keyhash{$symb.'_savemsg'.$idx} = $ENV{'form.savemsg'.$ctr};
+ 		$idx++;
+ 	    }
+ 	    $ctr++;
  	}
- 	$ctr++;
+ 	$ctr = 0;
-     }
+ 	while ($ctr < $ngrade) {
-     $ctr = 0;
+ 	    if ($ENV{'form.newmsg'.$ctr} ne '') {
-     while ($ctr < $ngrade) {
+ 		$keyhash{$symb.'_savemsg'.$idx} = $ENV{'form.newmsg'.$ctr};
- 	if ($ENV{'form.newmsg'.$ctr} ne '') {
+ 		$ENV{'form.savemsg'.$idx} = $ENV{'form.newmsg'.$ctr};
- 	    $keyhash{$symb.'_savemsg'.$idx} = $ENV{'form.newmsg'.$ctr};
+ 		$idx++;
- 	    $ENV{'form.savemsg'.$idx} = $ENV{'form.newmsg'.$ctr};
+ 	    }
- 	    $idx++;
+ 	    $ctr++;
  	}
- 	$ctr++;
+ 	$ENV{'form.savemsgN'} = --$idx;
+ 	$keyhash{$symb.'_savemsgN'} = $ENV{'form.savemsgN'};
+ 	my $putresult = &Apache::lonnet::put
+ 	    ('nohist_handgrade',\%keyhash,
+ 	     $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
+ 	     $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
      }
-     $ENV{'form.savemsgN'} = --$idx;
-     $keyhash{$symb.'_savemsgN'} = $ENV{'form.savemsgN'};
-     my $putresult = &Apache::lonnet::put
- 	('nohist_handgrade',\%keyhash,
- 	 $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
- 	 $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
      # Called by Save & Refresh from Highlight Attribute Window
+     my (undef,undef,$fullname) = &getclasslist($ENV{'form.section'},'1');
      if ($ENV{'form.refresh'} eq 'on') {
- 	my $ctr = 0;
+ 	my ($ctr,$total) = (0,0);
- 	$ENV{'form.NTSTU'}=$ngrade;
  	while ($ctr < $ngrade) {
- 	    ($ENV{'form.student'},$ENV{'form.userdom'}) = split(/:/,$ENV{'form.unamedom'.$ctr});
+ 	    $total++ if  $ENV{'form.unamedom'.$ctr} ne '';
- 	    &submission($request,$ctr,$ngrade-1);
+ 	    $ctr++;
+ 	}
+ 	$ENV{'form.NTSTU'}=$ngrade;
+ 	$ctr = 0;
+ 	while ($ctr < $total) {
+ 	    my $processUser = $ENV{'form.unamedom'.$ctr};
+ 	    ($ENV{'form.student'},$ENV{'form.userdom'}) = split(/:/,$processUser);
+ 	    $ENV{'form.fullname'} = $$fullname{$processUser};
+ 	    &submission($request,$ctr,$total-1);
  	    $ctr++;
  	}
  	return '';
      }
+ # Go directly to grade student - from submission or link from chart page
+     if ($button eq 'Grade Student') {
+ 	(undef,undef,$ENV{'form.handgrade'},undef,undef) = &showResourceInfo($url);
+ 	my $processUser = $ENV{'form.unamedom'.$ENV{'form.studentNo'}};
+ 	($ENV{'form.student'},$ENV{'form.userdom'}) = split(/:/,$processUser);
+ 	$ENV{'form.fullname'} = $$fullname{$processUser};
+ 	&submission($request,0,0);
+ 	return '';
+     }
      # Get the next/previous one or group of students
      my $firststu = $ENV{'form.unamedom0'};
      my $laststu = $ENV{'form.unamedom'.($ngrade-1)};
-     $ctr = 2;
+     my $ctr = 2;
      while ($laststu eq '') {
  	$laststu  = $ENV{'form.unamedom'.($ngrade-$ctr)};
  	$ctr++;
  	$laststu = $firststu if ($ctr > $ngrade);
      }
-     my (undef,undef,$fullname) = &getclasslist($ENV{'form.section'},'0');
      my (@parsedlist,@nextlist);
      my ($nextflg) = 0;
      foreach (sort {lc($$fullname{$a}) cmp lc($$fullname{$b}) } keys %$fullname) {
- Line 1439  sub processHandGrade {
+ Line 1767  sub processHandGrade {
  	}
      }
      $ctr = 0;
-     my ($partlist,$handgrade) = &response_type($ENV{'form.url'});
      @parsedlist = reverse @parsedlist if ($button eq 'Previous');
      foreach my $student (@parsedlist) {
  	my ($uname,$udom) = split(/:/,$student);
  	if ($ENV{'form.submitonly'} eq 'yes') {
- 	    my (%status) = &student_gradeStatus($ENV{'form.url'},$symb,$udom,$uname,$partlist) ;
+ 	    my %record = &Apache::lonnet::restore($symb,$ENV{'request.course.id'},$udom,$uname);
  	    my $statusflg = '';
- 	    foreach (keys(%status)) {
+ 	    foreach (split(/:/,$ENV{'form.partlist0'})){
- 		$statusflg = 1 if ($status{$_} ne 'nothing');
+ 		$statusflg = 1 if (exists ($record{'resource.'.$_.'.solved'}));
- 		my ($foo,$partid,$foo1) = split(/\./);
- 		$statusflg = '' if ($status{'resource.'.$partid.'.submitted_by'} ne '');
  	    }
  	    next if ($statusflg eq '');
  	}
- Line 1481  sub processHandGrade {
+ Line 1806  sub processHandGrade {
  #---- Save the score and award for each student, if changed
  sub saveHandGrade {
      my ($request,$url,$symb,$stuname,$domain,$newflg,$submitter) = @_;
-     my %record=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},$domain,$stuname);
+     my $usec = &Apache::lonnet::getsection($domain,$stuname,
-     my %newrecord;
+ 					   $ENV{'request.course.id'});
+     if (!&canmodify($usec)) { return('not_allowed'); }
+     my %record     = &Apache::lonnet::restore($symb,$ENV{'request.course.id'},$domain,$stuname);
+     my %newrecord  = ();
+     my ($pts,$wgt) = ('','');
      foreach (split(/:/,$ENV{'form.partlist'.$newflg})) {
- 	if ($ENV{'form.GD_SEL'.$newflg.'_'.$_} eq 'excused') {
+ 	my $dropMenu = $ENV{'form.GD_SEL'.$newflg.'_'.$_};
+ 	if ($dropMenu eq 'excused') {
  	    if ($record{'resource.'.$_.'.solved'} ne 'excused') {
  		$newrecord{'resource.'.$_.'.solved'} = 'excused';
  		if (exists($record{'resource.'.$_.'.awarded'})) {
  		    $newrecord{'resource.'.$_.'.awarded'} = '';
  		}
+ 	    $newrecord{'resource.'.$_.'.regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";
  	    }
- 	} else {
+ 	} elsif ($dropMenu eq 'reset status'
- 	    my $pts = ($ENV{'form.GD_BOX'.$newflg.'_'.$_} ne '' ?
+ 		 && exists($record{'resource.'.$_.'.solved'})) { #don't bother if no old records -> no attempts
- 		       $ENV{'form.GD_BOX'.$newflg.'_'.$_} :
+ 	    $newrecord{'resource.'.$_.'.tries'} = 0;
- 		       $ENV{'form.RADVAL'.$newflg.'_'.$_});
+ 	    $newrecord{'resource.'.$_.'.solved'} = '';
+ 	    $newrecord{'resource.'.$_.'.award'} = '';
+ 	    $newrecord{'resource.'.$_.'.awarded'} = 0;
+ 	    $newrecord{'resource.'.$_.'.regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";
+ 	} elsif ($dropMenu eq '') {
+ 	    $pts = ($ENV{'form.GD_BOX'.$newflg.'_'.$_} ne '' ?
+ 		    $ENV{'form.GD_BOX'.$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 :
+ 	    $wgt = $ENV{'form.WGT'.$newflg.'_'.$_} eq '' ? 1 :
  		$ENV{'form.WGT'.$newflg.'_'.$_};
  	    my $partial= $pts/$wgt;
+ 	    next if ($partial eq $record{'resource.'.$_.'.awarded'}); #do not update score for part if not changed.
  	    $newrecord{'resource.'.$_.'.awarded'}  = $partial
  		if ($record{'resource.'.$_.'.awarded'} ne $partial);
  	    my $reckey = 'resource.'.$_.'.solved';
- Line 1511  sub saveHandGrade {
+ Line 1850  sub saveHandGrade {
  	    }
  	    $newrecord{'resource.'.$_.'.submitted_by'} = $submitter
  		if ($submitter && ($record{'resource.'.$_.'.submitted_by'} ne $submitter));
- 	    $newrecord{'resource.'.$_.'regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";
+ 	    $newrecord{'resource.'.$_.'.regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";
  	}
      }
- Line 1519  sub saveHandGrade {
+ Line 1858  sub saveHandGrade {
  	&Apache::lonnet::cstore(\%newrecord,$symb,
  				$ENV{'request.course.id'},$domain,$stuname);
      }
-     return '';
+     return '',$pts,$wgt;
  }
  #--------------------------------------------------------------------------------------
- Line 1533  sub viewgrades_js {
+ Line 1872  sub viewgrades_js {
      $request->print(<<VIEWJAVASCRIPT);
  <script type="text/javascript" language="javascript">
     function writePoint(partid,weight,point) {
- 	var radioButton = eval("document.classgrade.RADVAL_"+partid);
+ 	var radioButton = document.classgrade["RADVAL_"+partid];
- 	var textbox = eval("document.classgrade.TEXTVAL_"+partid);
+ 	var textbox = document.classgrade["TEXTVAL_"+partid];
  	if (point == "textval") {
- 	    var point = eval("document.classgrade.TEXTVAL_"+partid+".value");
+ 	    point = document.classgrade["TEXTVAL_"+partid].value;
- 	    if (isNaN(point) || point < 0) {
+ 	    if (isNaN(point) || parseFloat(point) < 0) {
- 		alert("A number equal or greater than 0 is expected. Entered value = "+point);
+ 		alert("A number equal or greater than 0 is expected. Entered value = "+parseFloat(point));
  		var resetbox = false;
  		for (var i=0; i<radioButton.length; i++) {
  		    if (radioButton[i].checked) {
- Line 1551  sub viewgrades_js {
+ Line 1890  sub viewgrades_js {
  		}
  		return;
  	    }
- 	    if (point > weight) {
+ 	    if (parseFloat(point) > parseFloat(weight)) {
- 		var resp = confirm("You entered a value ("+point+
+ 		var resp = confirm("You entered a value ("+parseFloat(point)+
  				   ") greater than the weight for the part. Accept?");
  		if (resp == false) {
  		    textbox.value = "";
- Line 1561  sub viewgrades_js {
+ Line 1900  sub viewgrades_js {
  	    }
  	    for (var i=0; i<radioButton.length; i++) {
  		radioButton[i].checked=false;
- 		if (point == i) {
+ 		if (parseFloat(point) == i) {
  		    radioButton[i].checked=true;
  		}
  	    }
  	} else {
- 	    textbox.value = point;
+ 	    textbox.value = parseFloat(point);
  	}
  	for (i=0;i<document.classgrade.total.value;i++) {
- 	    var user = eval("document.classgrade.ctr"+i+".value");
+ 	    var user = document.classgrade["ctr"+i].value;
- 	    var scorename = eval("document.classgrade.GD_"+user+
+ 	    var scorename = document.classgrade["GD_"+user+"_"+partid+"_awarded"];
- 				 "_"+partid+"_awarded");
+ 	    var saveval   = document.classgrade["GD_"+user+"_"+partid+"_solved_s"].value;
- 	    var saveval   = eval("document.classgrade.GD_"+user+
+ 	    var selname   = document.classgrade["GD_"+user+"_"+partid+"_solved"];
- 				 "_"+partid+"_solved_s.value");
- 	    var selname   = eval("document.classgrade.GD_"+user+"_"+partid+"_solved");
  	    if (saveval != "correct") {
  		scorename.value = point;
  		if (selname[0].selected != true) {
- Line 1583  sub viewgrades_js {
+ Line 1920  sub viewgrades_js {
  		}
  	    }
  	}
- 	var selval   = eval("document.classgrade.SELVAL_"+partid);
+ 	document.classgrade["SELVAL_"+partid][0].selected = true;
- 	selval[0].selected = true;
      }
      function writeRadText(partid,weight) {
- 	var selval   = eval("document.classgrade.SELVAL_"+partid);
+ 	var selval   = document.classgrade["SELVAL_"+partid];
- 	var radioButton = eval("document.classgrade.RADVAL_"+partid);
+ 	var radioButton = document.classgrade["RADVAL_"+partid];
- 	var textbox = eval("document.classgrade.TEXTVAL_"+partid);
+ 	var textbox = document.classgrade["TEXTVAL_"+partid];
- 	if (selval[1].selected) {
+ 	if (selval[1].selected || selval[2].selected) {
  	    for (var i=0; i<radioButton.length; i++) {
  		radioButton[i].checked=false;
- Line 1599  sub viewgrades_js {
+ Line 1935  sub viewgrades_js {
  	    textbox.value = "";
  	    for (i=0;i<document.classgrade.total.value;i++) {
- 		var user = eval("document.classgrade.ctr"+i+".value");
+ 		var user = document.classgrade["ctr"+i].value;
- 		var scorename = eval("document.classgrade.GD_"+user+
+ 		var scorename = document.classgrade["GD_"+user+"_"+partid+"_awarded"];
- 				     "_"+partid+"_awarded");
+ 		var saveval   = document.classgrade["GD_"+user+"_"+partid+"_solved_s"].value;
- 		var saveval   = eval("document.classgrade.GD_"+user+
+ 		var selname   = document.classgrade["GD_"+user+"_"+partid+"_solved"];
- 				     "_"+partid+"_solved_s.value");
- 		var selname   = eval("document.classgrade.GD_"+user+
- 				     "_"+partid+"_solved");
  		if (saveval != "correct") {
  		    scorename.value = "";
- 		    selname[1].selected = true;
+ 		    if (selval[1].selected) {
+ 			selname[1].selected = true;
+ 		    } else {
+ 			selname[2].selected = true;
+ 			if (Number(document.classgrade["GD_"+user+"_"+partid+"_tries"].value))
+ 			{document.classgrade["GD_"+user+"_"+partid+"_tries"].value = '0';}
+ 		    }
  		}
  	    }
  	} else {
  	    for (i=0;i<document.classgrade.total.value;i++) {
- 		var user = eval("document.classgrade.ctr"+i+".value");
+ 		var user = document.classgrade["ctr"+i].value;
- 		var scorename = eval("document.classgrade.GD_"+user+
+ 		var scorename = document.classgrade["GD_"+user+"_"+partid+"_awarded"];
- 				     "_"+partid+"_awarded");
+ 		var saveval   = document.classgrade["GD_"+user+"_"+partid+"_solved_s"].value;
- 		var saveval   = eval("document.classgrade.GD_"+user+
+ 		var selname   = document.classgrade["GD_"+user+"_"+partid+"_solved"];
- 				     "_"+partid+"_solved_s.value");
- 		var selname   = eval("document.classgrade.GD_"+user+
- 				     "_"+partid+"_solved");
  		if (saveval != "correct") {
- 		    scorename.value = eval("document.classgrade.GD_"+user+
+ 		    scorename.value = document.classgrade["GD_"+user+"_"+partid+"_awarded_s"].value;
- 				     "_"+partid+"_awarded_s.value");;
  		    selname[0].selected = true;
  		}
  	    }
- Line 1630  sub viewgrades_js {
+ Line 1965  sub viewgrades_js {
      }
      function changeSelect(partid,user) {
- 	var selval = eval("document.classgrade.GD_"+user+'_'+partid+"_solved");
+ 	var selval = document.classgrade["GD_"+user+'_'+partid+"_solved"];
- 	var textbox = eval("document.classgrade.GD_"+user+'_'+partid+"_awarded");
+ 	var textbox = document.classgrade["GD_"+user+'_'+partid+"_awarded"];
  	var point  = textbox.value;
- 	var weight = eval("document.classgrade.weight_"+partid+".value");
+ 	var weight = document.classgrade["weight_"+partid].value;
- 	if (isNaN(point) || point < 0) {
+ 	if (isNaN(point) || parseFloat(point) < 0) {
- 	    alert("A number equal or greater than 0 is expected. Entered value = "+point);
+ 	    alert("A number equal or greater than 0 is expected. Entered value = "+parseFloat(point));
  	    textbox.value = "";
  	    return;
  	}
- 	if (point > weight) {
+ 	if (parseFloat(point) > parseFloat(weight)) {
- 	    var resp = confirm("You entered a value ("+point+
+ 	    var resp = confirm("You entered a value ("+parseFloat(point)+
  			       ") greater than the weight of the part. Accept?");
  	    if (resp == false) {
  		textbox.value = "";
- Line 1652  sub viewgrades_js {
+ Line 1987  sub viewgrades_js {
      }
      function changeOneScore(partid,user) {
- 	var selval = eval("document.classgrade.GD_"+user+'_'+partid+"_solved");
+ 	var selval = document.classgrade["GD_"+user+'_'+partid+"_solved"];
- 	if (selval[1].selected) {
+ 	if (selval[1].selected || selval[2].selected) {
- 	    var boxval = eval("document.classgrade.GD_"+user+'_'+partid+"_awarded");
+ 	    document.classgrade["GD_"+user+'_'+partid+"_awarded"].value = "";
- 	    boxval.value = "";
+ 	    if (selval[2].selected) {
+ 		document.classgrade["GD_"+user+'_'+partid+"_tries"].value = "0";
+ 	    }
  	}
      }
      function resetEntry(numpart) {
  	for (ctpart=0;ctpart<numpart;ctpart++) {
- 	    var partid = eval("document.classgrade.partid_"+ctpart+".value");
+ 	    var partid = document.classgrade["partid_"+ctpart].value;
- 	    var radioButton = eval("document.classgrade.RADVAL_"+partid);
+ 	    var radioButton = document.classgrade["RADVAL_"+partid];
- 	    var textbox = eval("document.classgrade.TEXTVAL_"+partid);
+ 	    var textbox = document.classgrade["TEXTVAL_"+partid];
- 	    var selval  = eval("document.classgrade.SELVAL_"+partid);
+ 	    var selval  = document.classgrade["SELVAL_"+partid];
  	    for (var i=0; i<radioButton.length; i++) {
  		radioButton[i].checked=false;
- Line 1673  sub viewgrades_js {
+ Line 2010  sub viewgrades_js {
  	    selval[0].selected = true;
  	    for (i=0;i<document.classgrade.total.value;i++) {
- 		var user = eval("document.classgrade.ctr"+i+".value");
+ 		var user = document.classgrade["ctr"+i].value;
- 		var resetscore = eval("document.classgrade.GD_"+user+
+ 		var resetscore = document.classgrade["GD_"+user+"_"+partid+"_awarded"];
- 				      "_"+partid+"_awarded");
+ 		resetscore.value = document.classgrade["GD_"+user+"_"+partid+"_awarded_s"].value;
- 		resetscore.value = eval("document.classgrade.GD_"+user+
+ 		var resettries = document.classgrade["GD_"+user+"_"+partid+"_tries"];
- 					"_"+partid+"_awarded_s.value");
+ 		resettries.value = document.classgrade["GD_"+user+"_"+partid+"_tries_s"].value;
+ 		var saveselval   = document.classgrade["GD_"+user+"_"+partid+"_solved_s"].value;
- 		var saveselval   = eval("document.classgrade.GD_"+user+
+ 		var selname   = document.classgrade["GD_"+user+"_"+partid+"_solved"];
- 				     "_"+partid+"_solved_s.value");
- 		var selname   = eval("document.classgrade.GD_"+user+"_"+partid+"_solved");
  		if (saveselval == "excused") {
  		    if (selname[1].selected == false) { selname[1].selected = true;}
  		} else {
- Line 1704  sub viewgrades {
+ Line 2038  sub viewgrades {
      my ($symb,$url) = ($ENV{'form.symb'},$ENV{'form.url'});
      my $result='<h3><font color="#339933">Manual Grading</font></h3>';
-     $result.='<font size=+1><b>Problem: </b>'.$ENV{'form.probTitle'}.'</font>'."\n";
+     $result.='<font size=+1><b>Current Resource: </b>'.$ENV{'form.probTitle'}.'</font>'."\n";
      #view individual student submission form - called using Javascript viewOneStudent
      $result.=&jscriptNform($url,$symb);
- Line 1715  sub viewgrades {
+ Line 2049  sub viewgrades {
  	'<input type="hidden" name="url"     value="'.$url.'" />'."\n".
  	'<input type="hidden" name="command" value="editgrades" />'."\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="saveState" value="'.$ENV{'form.saveState'}.'" />'."\n".
- 	'<input type="hidden" name="lastSec" value="'.$ENV{'form.lastSec'}.'" />'."\n".
+ 	'<input type="hidden" name="Status" value="'.$ENV{'form.Status'}.'" />'."\n".
  	'<input type="hidden" name="probTitle" value="'.$ENV{'form.probTitle'}.'" />'."\n";
-     $result.='<h3>Assign Common Grade To ';
+     my $sectionClass;
      if ($ENV{'form.section'} eq 'all') {
- 	$result.='Class </h3>';
+ 	$sectionClass='Class </h3>';
      } elsif ($ENV{'form.section'} eq 'no') {
- 	$result.='Students in no Section </h3>';
+ 	$sectionClass='Students in no Section </h3>';
      } else {
- 	$result.='Students in Section '.$ENV{'form.section'}.'</h3>';
+ 	$sectionClass='Students in Section '.$ENV{'form.section'}.'</h3>';
      }
+     $result.='<h3>Assign Common Grade To '.$sectionClass;
      $result.= '<table border=0><tr><td bgcolor="#777777">'."\n".
  	'<table border=0><tr bgcolor="#ffffdd"><td>';
      #radio buttons/text box for assigning points for a section or class.
      #handles different parts of a problem
-     my ($partlist,$handgrade) = &response_type($ENV{'form.url'});
+     my ($partlist,$handgrade) = &response_type($url,$symb);
      my %weight = ();
      my $ctsparts = 0;
      $result.='<table border="0">';
- Line 1767  sub viewgrades {
+ Line 2102  sub viewgrades {
  	    'onChange="javascript:writeRadText(\''.$partid.'\','.
  		$weight{$partid}.')"> '.
  	    '<option selected="on"> </option>'.
- 	    '<option>excused</option></select></td></tr>'."\n";
+ 	    '<option>excused</option>'.
+ 	    '<option>reset status</option></select></td></tr>'."\n";
  	$ctsparts++;
      }
      $result.='</table>'.'</td></tr></table>'.'</td></tr></table>'."\n".
  	'<input type="hidden" name="totalparts" value="'.$ctsparts.'" />';
      $result.='<input type="button" value="Reset" '.
- 	'onClick="javascript:resetEntry('.$ctsparts.');" TARGET=_self> &nbsp; &nbsp;';
+ 	'onClick="javascript:resetEntry('.$ctsparts.');" TARGET=_self>';
-     $result.='<input type="button" value="Submit Changes" '.
- 	'onClick="javascript:submit();" TARGET=_self />'."\n";
      #table listing all the students in a section/class
      #header of table
-     $result.= '<h3>Assign Grade to Specific Students in ';
+     $result.= '<h3>Assign Grade to Specific Students in '.$sectionClass;
-     if ($ENV{'form.section'} eq 'all') {
- 	$result.='the Class </h3>';
-     } elsif ($ENV{'form.section'} eq 'no') {
- 	$result.='no Section </h3>';
-     } else {
- 	$result.='Section '.$ENV{'form.section'}.'</h3>';
-     }
      $result.= '<table border=0><tr><td bgcolor="#777777">'."\n".
- 	'<table border=0><tr bgcolor="#deffff">'.
+ 	'<table border=0><tr bgcolor="#deffff"><td>&nbsp;<b>No.</b>&nbsp;</td>'.
- 	'<td><b>Fullname</b></td><td><b>Username</b></td><td><b>Domain</b></td>'."\n";
+ 	'<td>&nbsp;<b>Fullname</b> <font color="#999999">(Username)</font></td>'."\n";
      my (@parts) = sort(&getpartlist($url));
      foreach my $part (@parts) {
  	my $display=&Apache::lonnet::metadata($url,$part.'.display');
+ 	$display =~ s|^Number of Attempts|Tries<br />|; # makes the column narrower
  	if  (!$display) { $display = &Apache::lonnet::metadata($url,$part.'.name'); }
  	if ($display =~ /^Partial Credit Factor/) {
  	    my ($partid) = &split_part_type($part);
- Line 1807  sub viewgrades {
+ Line 2135  sub viewgrades {
      #get info for each student
      #list all the students - with points and grade status
-     my (undef,undef,$fullname) = &getclasslist($ENV{'form.section'},'0');
+     my (undef,undef,$fullname) = &getclasslist($ENV{'form.section'},'1');
      my $ctr = 0;
      foreach (sort {lc($$fullname{$a}) cmp lc($$fullname{$b}) } keys %$fullname) {
- 	my ($uname,$udom) = split(/:/);
+ 	my $uname = $_;
+ 	$uname=~s/:/_/;
  	$result.='<input type="hidden" name="ctr'.$ctr.'" value="'.$uname.'" />'."\n";
- 	$result.=&viewstudentgrade($url,$symb,$ENV{'request.course.id'},
- 				   $_,$$fullname{$_},\@parts,\%weight);
  	$ctr++;
+ 	$result.=&viewstudentgrade($url,$symb,$ENV{'request.course.id'},
+ 				   $_,$$fullname{$_},\@parts,\%weight,$ctr);
      }
      $result.='</table></td></tr></table>';
      $result.='<input type="hidden" name="total" value="'.$ctr.'" />'."\n";
-     $result.='<input type="button" value="Submit Changes" '.
+     $result.='<input type="button" value="Save" '.
  	'onClick="javascript:submit();" TARGET=_self /></form>'."\n";
+     if (scalar(%$fullname) eq 0) {
+ 	my $colspan=3+scalar(@parts);
+ 	$result='<font color="red">There are no students in section "'.$ENV{'form.section'}.
+ 	    '" with enrollment status "'.$ENV{'form.Status'}.'" to modify or grade.</font>';
+     }
      $result.=&show_grading_menu_form($symb,$url);
      return $result;
  }
  #--- call by previous routine to display each student
  sub viewstudentgrade {
-     my ($url,$symb,$courseid,$student,$fullname,$parts,$weight) = @_;
+     my ($$url,$symb,$courseid,$student,$fullname,$parts,$weight,$ctr) = @_;
      my ($uname,$udom) = split(/:/,$student);
+     $student=~s/:/_/;
      my %record=&Apache::lonnet::restore($symb,$courseid,$udom,$uname);
-     my $result='<tr bgcolor="#ffffdd"><td>'.
+     my $result='<tr bgcolor="#ffffdd"><td align="right">'.$ctr.'&nbsp;</td><td>&nbsp;'.
  	'<a href="javascript:viewOneStudent(\''.$uname.'\',\''.$udom.
- 	'\')"; TARGET=_self>'.$fullname.'</a>'.
+ 	'\')"; TARGET=_self>'.$fullname.'</a> '.
- 	'</td><td>'.$uname.'</td><td align="middle">'.$udom.'</td>'."\n";
+ 	'<font color="#999999">('.$uname.($ENV{'user.domain'} eq $udom ? '' : ':'.$udom).')</font></td>'."\n";
      foreach my $apart (@$parts) {
  	my ($part,$type) = &split_part_type($apart);
  	my $score=$record{"resource.$part.$type"};
  	if ($type eq 'awarded') {
  	    my $pts = $score eq '' ? '' : $score*$$weight{$part};
  	    $result.='<input type="hidden" name="'.
- 		'GD_'.$uname.'_'.$part.'_awarded_s" value="'.$pts.'" />'."\n";
+ 		'GD_'.$student.'_'.$part.'_awarded_s" value="'.$pts.'" />'."\n";
  	    $result.='<td align="middle"><input type="text" name="'.
- 		'GD_'.$uname.'_'.$part.'_awarded" '.
+ 		'GD_'.$student.'_'.$part.'_awarded" '.
- 		'onChange="javascript:changeSelect(\''.$part.'\',\''.$uname.
+ 		'onChange="javascript:changeSelect(\''.$part.'\',\''.$student.
  		'\')" value="'.$pts.'" size="4" /></td>'."\n";
  	} elsif ($type eq 'solved') {
  	    my ($status,$foo)=split(/_/,$score,2);
  	    $status = 'nothing' if ($status eq '');
- 	    $result.='<input type="hidden" name="'.'GD_'.$uname.'_'.
+ 	    $result.='<input type="hidden" name="'.'GD_'.$student.'_'.
  		$part.'_solved_s" value="'.$status.'" />'."\n";
- 	    $result.='<td align="middle"><select name="'.
+ 	    $result.='<td align="middle">&nbsp;<select name="'.
- 		'GD_'.$uname.'_'.$part.'_solved" '.
+ 		'GD_'.$student.'_'.$part.'_solved" '.
- 		'onChange="javascript:changeOneScore(\''.$part.'\',\''.$uname.'\')" >'."\n";
+ 		'onChange="javascript:changeOneScore(\''.$part.'\',\''.$student.'\')" >'."\n";
- 	    my $optsel = '<option selected="on"> </option><option>excused</option>'."\n";
+ 	    $result.= (($status eq 'excused') ? '<option> </option><option selected="on">excused</option>'
- 	    $optsel = '<option> </option><option selected="on">excused</option>'."\n"
+ 		: '<option selected="on"> </option><option>excused</option>')."\n";
- 		if ($status eq 'excused');
+ 	    $result.='<option>reset status</option>';
- 	    $result.=$optsel;
+ 	    $result.="</select>&nbsp;</td>\n";
- 	    $result.="</select></td>\n";
  	} else {
  	    $result.='<input type="hidden" name="'.
- 		'GD_'.$uname.'_'.$part.'_'.$type.'_s" value="'.$score.'" />'.
+ 		'GD_'.$student.'_'.$part.'_'.$type.'_s" value="'.$score.'" />'.
  		    "\n";
  	    $result.='<td align="middle"><input type="text" name="'.
- 		'GD_'.$uname.'_'.$part.'_'.$type.'" '.
+ 		'GD_'.$student.'_'.$part.'_'.$type.'" '.
  		'value="'.$score.'" size="4" /></td>'."\n";
  	}
      }
- Line 1878  sub editgrades {
+ Line 2212  sub editgrades {
      my $symb=$ENV{'form.symb'};
      my $url =$ENV{'form.url'};
      my $title='<h3><font color="#339933">Current Grade Status</font></h3>';
-     $title.='<font size=+1><b>Problem: </b>'.$ENV{'form.probTitle'}.'</font><br />'."\n";
+     $title.='<font size=+1><b>Current Resource: </b>'.$ENV{'form.probTitle'}.'</font><br />'."\n";
      $title.='<font size=+1><b>Section: </b>'.$ENV{'form.section'}.'</font>'."\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>&nbsp;<b>No.</b>&nbsp;</td>'.
- 	'<td rowspan=2><b>Username</b></td><td rowspan=2><b>Fullname</b></td>'."\n";
+ 	'<td rowspan=2>&nbsp;<b>Fullname</b>&nbsp;<font color="#999999">(username)</font></td>'."\n";
      my %scoreptr = (
  		    'correct'  =>'correct_by_override',
- Line 1916  sub editgrades {
+ Line 2251  sub editgrades {
  	    if ($type eq 'awarded' || $type eq 'solved') { next; }
  	    my $display=&Apache::lonnet::metadata($url,$stores.'.display');
  	    $display =~ s/\[Part: (\w)+\]//;
- 	    $header .= '<td align="center">&nbsp;<b>Old</b> '.$display.'&nbsp;</td>'.
+ 	    $display =~ s/Number of Attempts/Tries/;
- 		'<td align="center">&nbsp;<b>New</b> '.$display.'&nbsp;</td>';
+ 	    $header .= '<td align="center">&nbsp;<b>Old '.$display.'</b>&nbsp;</td>'.
+ 		'<td align="center">&nbsp;<b>New '.$display.'</b>&nbsp;</td>';
  	    $columns{$partid}+=2;
  	}
      }
- Line 1930  sub editgrades {
+ Line 2266  sub editgrades {
      $result .= '</tr><tr bgcolor="#deffff">';
      $result .= $header;
      $result .= '</tr>'."\n";
+     my $noupdate;
+     my ($updateCtr,$noupdateCtr) = (1,1);
      for ($i=0; $i<$ENV{'form.total'}; $i++) {
+ 	my $line;
  	my $user = $ENV{'form.ctr'.$i};
+ 	my $usercolon = $user;
+ 	$usercolon =~s/_/:/;
+ 	my ($uname,$udom)=split(/_/,$user);
  	my %newrecord;
  	my $updateflag = 0;
- 	my @userdom = grep /^$user:/,keys %$classlist;
+ 	$line .= '<td>&nbsp;'.$$fullname{$usercolon}.
- 	my (undef,$udom) = split(/:/,$userdom[0]);
+ 	    '&nbsp<font color="#999999">('.$uname.($udom eq $ENV{'user.domain'} ? '' : '$udom').')</font></td>';
+ 	my $usec=$classlist->{"$uname:$udom"}[5];
- 	$result .= '<tr bgcolor="#ffffde"><td>'.$user.'&nbsp;</td><td>'.
+ 	if (!&canmodify($usec)) {
- 	    $$fullname{$userdom[0]}.'&nbsp;</td>';
+ 	    my $numcols=scalar(@partid)*4+2;
+ 	    $noupdate.=$line."<td colspan=\"$numcols\"><font color=\"red\">Not allowed to modify student</font></td></tr>";
+ 	    next;
+ 	}
  	foreach (@partid) {
  	    my $old_aw    = $ENV{'form.GD_'.$user.'_'.$_.'_awarded_s'};
  	    my $old_part_pcr = $old_aw/($weight{$_} ne '0' ? $weight{$_}:1);
- Line 1957  sub editgrades {
+ Line 2301  sub editgrades {
  	    } elsif ($partial == 0) {
  		$score = 'incorrect_by_override';
  	    }
- 	    $score = 'excused' if (($ENV{'form.GD_'.$user.'_'.$_.'_solved'} eq 'excused') &&
+ 	    my $dropMenu = $ENV{'form.GD_'.$user.'_'.$_.'_solved'};
- 				   ($score ne 'excused'));
+ 	    $score = 'excused' if (($dropMenu eq 'excused') && ($score ne 'excused'));
- 	    $result .= '<td align="center">'.$old_aw.'&nbsp;</td>'.
+ 	    if ($dropMenu eq 'reset status' &&
+ 		$old_score ne '') { # ignore if no previous attempts => nothing to reset
+ 		$newrecord{'resource.'.$_.'.tries'} = 0;
+ 		$newrecord{'resource.'.$_.'.solved'} = '';
+ 		$newrecord{'resource.'.$_.'.award'} = '';
+ 		$newrecord{'resource.'.$_.'.awarded'} = 0;
+ 		$newrecord{'resource.'.$_.'.regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";
+ 		$updateflag = 1;
+ 	    }
+ 	    $line .= '<td align="center">'.$old_aw.'&nbsp;</td>'.
  		'<td align="center">'.$awarded.
  		($score eq 'excused' ? $score : '').'&nbsp;</td>';
- Line 1979  sub editgrades {
+ Line 2334  sub editgrades {
  		my $awarded   = $ENV{'form.GD_'.$user.'_'.$part.'_'.$type};
  		if ($awarded ne '' && $awarded ne $old_aw) {
  		    $newrecord{'resource.'.$part.'.'.$type}= $awarded;
- 		    $newrecord{'resource.'.$part.'regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";
+ 		    $newrecord{'resource.'.$part.'.regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";
  		    $updateflag=1;
  		}
- 		$result .= '<td align="center">'.$old_aw.'&nbsp;</td>'.
+ 		$line .= '<td align="center">'.$old_aw.'&nbsp;</td>'.
  		    '<td align="center">'.$awarded.'&nbsp;</td>';
  	    }
  	}
- 	$result .= '</tr>'."\n";
+ 	$line.='</tr>'."\n";
  	if ($updateflag) {
  	    $count++;
  	    &Apache::lonnet::cstore(\%newrecord,$symb,$ENV{'request.course.id'},
- 				    $udom,$user);
+ 				    $udom,$uname);
+ 	    $result.='<tr bgcolor="#ffffde"><td align="right">&nbsp;'.$updateCtr.'&nbsp;</td>'.$line;
+ 	    $updateCtr++;
+ 	} else {
+ 	    $noupdate.='<tr bgcolor="#ffffde"><td align="right">&nbsp;'.$noupdateCtr.'&nbsp;</td>'.$line;
+ 	    $noupdateCtr++;
  	}
      }
+     if ($noupdate) {
+ #	my $numcols=(scalar(@partid)*(scalar(@parts)-1)*2)+3;
+ 	my $numcols=scalar(@partid)*4+2;
+ 	$result .= '<tr bgcolor="#ffffff"><td align="center" colspan="'.$numcols.'">No Changes Occurred For the Students Below</td></tr>'.$noupdate;
+     }
      $result .= '</table></td></tr></table>'."\n".
  	&show_grading_menu_form ($symb,$url);
-     my $msg = '<b>Number of records updated = '.$rec_update.
+     my $msg = '<br /><b>Number of records updated = '.$rec_update.
  	' for '.$count.' student'.($count <= 1 ? '' : 's').'.</b><br />'.
  	'<b>Total number of students = '.$ENV{'form.total'}.'</b><br />';
      return $title.$msg.$result;
- Line 2018  sub split_part_type {
+ Line 2383  sub split_part_type {
  #
  #-------------------------- 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::metadata($url,'title');
-     $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
  sub csvupload_javascript_reverse_associate {
    return(<<ENDPICK);
- Line 2143  sub csvuploadmap_header {
+ Line 2466  sub csvuploadmap_header {
  	$javascript=&csvupload_javascript_forward_associate();
      }
-     my $result='<table border="0">';
+     my ($result) = &showResourceInfo($url,$ENV{'form.probTitle'});
-     $result.='<tr><td colspan=3><font size=+1><b>Problem: </b>'.$ENV{'form.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>';
      $request->print(<<ENDPICK);
  <form method="post" enctype="multipart/form-data" action="/adm/grades" name="gradesupload">
  <h3><font color="#339933">Uploading Class Grades</font></h3>
- Line 2175  to this page if the data selected is ins
+ Line 2487  to this page if the data selected is ins
                                         value="$ENV{'form.upfile_associate'}" />
  <input type="hidden" name="symb"       value="$symb" />
  <input type="hidden" name="url"        value="$url" />
- <input type="hidden" name="lastCmd"    value="$ENV{'form.lastCmd'}" />
+ <input type="hidden" name="saveState"  value="$ENV{'form.saveState'}" />
- <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" />
  <hr />
- Line 2184  to this page if the data selected is ins
+ Line 2495  to this page if the data selected is ins
  $javascript
  </script>
  ENDPICK
- return '';
+     $request->print(&show_grading_menu_form($symb,$url));
+     return '';
  }
- Line 2214  sub csvuploadmap_footer {
+ Line 2526  sub csvuploadmap_footer {
  ENDPICK
  }
+ 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();
+     }
+     </script>
+ CSVFORMJS
+     $ENV{'form.probTitle'} = &Apache::lonnet::gettitle($symb);
+     my ($table) = &showResourceInfo($url,$ENV{'form.probTitle'});
+     $result.=$table;
+     $result.='<br /><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 current 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" />
+ <input type="hidden" name="probTitle" value="$ENV{'form.probTitle'}" />
+ <input type="hidden" name="saveState"  value="$ENV{'form.saveState'}" />
+ $upfile_select
+ <br /><input type="button" onClick="javascript:checkUpload(this.form);" value="Upload Scores" />
+ </form>
+ ENDUPFORM
+     $result.='</td></tr></table>'."\n";
+     $result.='</td></tr></table><br /><br />'."\n";
+     $result.=&show_grading_menu_form($symb,$url);
+     return $result;
+ }
  sub csvuploadmap {
      my ($request)= @_;
      my ($symb,$url)=&get_symb_and_url($request);
- Line 2273  sub csvuploadassign {
+ Line 2628  sub csvuploadassign {
      }
      $request->print('<h3>Assigning Grades</h3>');
      my $courseid=$ENV{'request.course.id'};
-     my ($classlist) = &getclasslist('all','1');
+     my ($classlist) = &getclasslist('all',0);
+     my @notallowed;
      my @skipped;
      my $countdone=0;
      foreach my $grade (@gradedata) {
- Line 2284  sub csvuploadassign {
+ Line 2640  sub csvuploadassign {
  	    push(@skipped,"$username:$domain");
  	    next;
  	}
+ 	my $usec=$classlist->{"$username:$domain"}[5];
+ 	if (!&canmodify($usec)) {
+ 	    push(@notallowed,"$username:$domain");
+ 	    next;
+ 	}
  	my %grades;
  	foreach my $dest (keys(%fields)) {
  	    if ($dest eq 'username' || $dest eq 'domain') { next; }
- Line 2302  sub csvuploadassign {
+ Line 2663  sub csvuploadassign {
      }
      $request->print("<br />Stored $countdone students\n");
      if (@skipped) {
- 	$request->print('<br /><font size="+1"><b>Skipped Students</b></font><br />');
+ 	$request->print('<p<font size="+1"><b>Skipped Students</b></font></p>');
- 	foreach my $student (@skipped) { $request->print("<br />$student"); }
+ 	foreach my $student (@skipped) { $request->print("$student<br />\n"); }
      }
-     $request->print(&view_edit_entire_class_form($symb,$url));
+     if (@notallowed) {
+ 	$request->print('<p><font size="+1" color="red"><b>Students Not Allowed to Modify</b></font></p>');
+ 	foreach my $student (@notallowed) { $request->print("$student<br />\n"); }
+     }
+     $request->print("<br />\n");
      $request->print(&show_grading_menu_form($symb,$url));
      return '';
  }
- Line 2313  sub csvuploadassign {
+ Line 2678  sub csvuploadassign {
  #
  #-------------------------------------------------------------------
  #
- #-------------- Next few routines handles grading by page/sequence
+ #-------------- Next few routines handle grading by page/sequence
  #
  #--- Select a page/sequence and a student to grade
  sub pickStudentPage {
- Line 2323  sub pickStudentPage {
+ Line 2688  sub pickStudentPage {
  <script type="text/javascript" language="javascript">
  function checkPickOne(formname) {
-     var user = radioSelection(formname.student);
+     if (radioSelection(formname.student) == null) {
-     if (user == null) {
  	alert("Please select the student you wish to grade.");
  	return;
      }
-     var ptr = pullDownSelection(formname.selectpage);
+     ptr = pullDownSelection(formname.selectpage);
-     formname.page.value = eval("formname.page"+ptr+".value");
+     formname.page.value = formname["page"+ptr].value;
-     formname.title.value = eval("formname.title"+ptr+".value");
+     formname.title.value = formname["title"+ptr].value;
      formname.submit();
  }
- function radioSelection(radioButton) {
-     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=null;
-     for (var i=0; i<selectOne.length; i++) {
-         if (selectOne[i].selected) {
-             return selectOne[i].value;
-         }
-     }
- }
  </script>
  LISTJAVASCRIPT
+     &commonJSfunctions($request);
      my ($symb,$url) = &get_symb_and_url($request);
      my $cdom      = $ENV{"course.$ENV{'request.course.id'}.domain"};
      my $cnum      = $ENV{"course.$ENV{'request.course.id'}.num"};
- Line 2363  LISTJAVASCRIPT
+ Line 2709  LISTJAVASCRIPT
      my $result='<h3><font color="#339933">&nbsp;'.
  	'Manual Grading by Page or Sequence</font></h3>';
-     $result.='<form action="/adm/grades" method="post" name="displayPage">'."<br>\n";
+     $result.='<form action="/adm/grades" method="post" name="displayPage">'."\n";
      $result.='&nbsp;<b>Problems from:</b> <select name="selectpage">'."\n";
-     my ($titles,$symbx) = &getSymbMap();
+     my ($titles,$symbx) = &getSymbMap($request);
      my ($curpage,$type,$mapId) = ($symb =~ /(.*?\.(page|sequence))___(\d+)___/);
      my $ctr=0;
      foreach (@$titles) {
- Line 2386  LISTJAVASCRIPT
+ Line 2732  LISTJAVASCRIPT
      $result.='<input type="hidden" name="page" />'."\n".
  	'<input type="hidden" name="title" />'."\n";
-     $result.='&nbsp;<b>View Problems: </b><input type="radio" name="vProb" value="no" checked /> no '."\n".
+     $result.='&nbsp;<b>View Problems Text: </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="datesub" checked /> by dates and submissions'."\n".
  	'<input type="radio" name="lastSub" value="all" /> all details'."\n";
      $result.='<input type="hidden" name="section"     value="'.$getsec.'" />'."\n".
+ 	'<input type="hidden" name="Status"  value="'.$ENV{'form.Status'}.'" />'."\n".
  	'<input type="hidden" name="command" value="displayPage" />'."\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.'" />'."\n".
- 	'<input type="hidden" name="lastCmd" value="'.$ENV{'form.lastCmd'}.'" />'."\n".
+ 	'<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."<br />\n";
- 	'<input type="hidden" name="lastSec" value="'.$ENV{'form.lastSec'}.'" />'."\n";
-     $result.='<br />&nbsp;<input type="button" '.
+     $result.='&nbsp;<input type="button" '.
- 	'onClick="javascript:checkPickOne(this.form);"value="Submit" /><br />'."\n";
+ 	'onClick="javascript:checkPickOne(this.form);"value="Next->" /><br />'."\n";
      $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 and then click on the Next button.</b><br>'.
  	'<table border="0"><tr><td bgcolor="#777777">'.
  	'<table border="0"><tr bgcolor="#e6ffff">'.
+ 	'<td align="right">&nbsp;<b>No.</b></td>'.
  	'<td><b>&nbsp;Fullname <font color="#999999">(username)</font></b></td>'.
- 	'<td><b>&nbsp;Fullname <font color="#999999">(username)</font></b></td>'.
+ 	'<td align="right">&nbsp;<b>No.</b></td>'.
- 	'<td><b>&nbsp;Fullname <font color="#999999">(username)</font></b></td>'.
  	'<td><b>&nbsp;Fullname <font color="#999999">(username)</font></b></td></tr>';
-     my (undef,undef,$fullname) = &getclasslist($getsec,'0');
+     my (undef,undef,$fullname) = &getclasslist($getsec,'1');
      my $ptr = 1;
      foreach my $student (sort {lc($$fullname{$a}) cmp lc($$fullname{$b}) } keys %$fullname) {
  	my ($uname,$udom) = split(/:/,$student);
- 	$studentTable.=($ptr%4 == 1 ? '<tr bgcolor="#ffffe6"><td>' : '</td><td>');
+ 	$studentTable.=($ptr%2 == 1 ? '<tr bgcolor="#ffffe6">' : '</td>');
- 	$studentTable.='<input type="radio" name="student" value="'.$student.'" /> '.$$fullname{$student}.
+ 	$studentTable.='<td align="right">'.$ptr.'&nbsp;</td>';
+ 	$studentTable.='<td>&nbsp;<input type="radio" name="student" value="'.$student.'" /> '.$$fullname{$student}.
  	    '<font color="#999999"> ('.$uname.($udom eq $cdom ? '':':'.$udom).')</font>'."\n";
- 	$studentTable.=($ptr%4 == 0 ? '</td></tr>' : '');
+ 	$studentTable.=($ptr%2 == 0 ? '</td></tr>' : '');
  	$ptr++;
      }
-     $studentTable.='</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;' if ($ptr%4 == 2);
+     $studentTable.='</td><td>&nbsp;</td><td>&nbsp;' if ($ptr%2 == 0);
-     $studentTable.='</td><td>&nbsp;</td><td>&nbsp;' if ($ptr%4 == 3);
-     $studentTable.='</td><td>&nbsp;' if ($ptr%4 == 0);
      $studentTable.='</td></tr></table></td></tr></table>'."\n";
-     $studentTable.='<br />&nbsp;<input type="button" '.
+     $studentTable.='<input type="button" '.
- 	'onClick="javascript:checkPickOne(this.form);"value="Submit" /></form>'."\n";
+ 	'onClick="javascript:checkPickOne(this.form);"value="Next->" /></form>'."\n";
      $studentTable.=&show_grading_menu_form($symb,$url);
      $request->print($studentTable);
- Line 2438  LISTJAVASCRIPT
+ Line 2783  LISTJAVASCRIPT
  }
  sub getSymbMap {
-     my $navmap = Apache::lonnavmaps::navmap-> new(
+     my ($request) = @_;
- 						  $ENV{'request.course.fn'}.'.db',
+     my $navmap = Apache::lonnavmaps::navmap-> new($ENV{'request.course.fn'}.'.db',
- 						  $ENV{'request.course.fn'}.'_parms.db',1, 1);
+ 						  $ENV{'request.course.fn'}.'_parms.db');
-     my $res = $navmap->firstResource(); # temp resource to access constants
      $navmap->init();
-     # End navmap using boilerplate
-     my $iterator = $navmap->getIterator(undef, undef, undef, 1);
-     my $depth = 1;
-     $iterator->next(); # ignore first BEGIN_MAP
-     my $curRes = $iterator->next();
      my %symbx = ();
      my @titles = ();
-     my $minder=0;
+     my $minder = 0;
-     while ($depth > 0) {
-         if ($curRes == $iterator->BEGIN_MAP()) {$depth++;}
-         if ($curRes == $iterator->END_MAP()) { $depth--; }
-         if (ref($curRes) && $curRes->is_map()) {
- 	    my ($mapUrl, $id, $resUrl) = split(/___/, $curRes->symb()); # check map contains at least one problem
- 	    my $map = $navmap->getResourceByUrl($resUrl); # add to navmaps
- 	    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) {
+     # Gather every sequence that has problems.
- 		    $countProblems++;
+     my @sequences = $navmap->retrieveResources(undef, sub { shift->is_map(); }, 1);
- 		}
+     for my $sequence ($navmap->getById('0.0'), @sequences) {
- 		$ctr++;
+ 	if ($navmap->hasResource($sequence, sub { shift->is_problem(); }, 0) ) {
- 	    }
+ 	    my $title = $minder.'.'.$sequence->compTitle();
- 	    if ($countProblems > 0) {
+ 	    push @titles, $title; # minder in case two titles are identical
- 		my $title = $curRes->compTitle();
+ 	    $symbx{$title} = $sequence->symb();
- 		push @titles,$minder.'.'.$title; # minder, just in case two titles are identical
+ 	    $minder++;
- 		$symbx{$minder.'.'.$title} = $curRes->symb();
+ 	}
- 		$minder++;
- 	    }
-        }
-         $curRes = $iterator->next();
      }
      $navmap->untieHashes();
- Line 2504  sub displayPage {
+ Line 2817  sub displayPage {
      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 ($classlist,undef,$fullname) = &getclasslist($getsec,'1');
      my ($uname,$udom) = split(/:/,$ENV{'form.student'});
+     my $usec=$classlist->{$ENV{'form.student'}}[5];
+     if (!&canview($usec)) {
+ 	$request->print('<font color="red">Unable to view requested student.('.$ENV{'form.student'}.')</font>');
+ 	$request->print(&show_grading_menu_form($symb,$url));
+ 	return;
+     }
      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";
- Line 2514  sub displayPage {
+ Line 2832  sub displayPage {
      &sub_page_js($request);
      $request->print($result);
-     my $navmap = Apache::lonnavmaps::navmap-> new(
+     my $navmap = Apache::lonnavmaps::navmap-> new($ENV{'request.course.fn'}.'.db',
- 						  $ENV{'request.course.fn'}.'.db',
  						  $ENV{'request.course.fn'}.'_parms.db',1, 1);
      my ($mapUrl, $id, $resUrl) = split(/___/, $ENV{'form.page'});
      my $map = $navmap->getResourceByUrl($resUrl); # add to navmaps
- Line 2525  sub displayPage {
+ Line 2842  sub displayPage {
      my $studentTable='<form action="/adm/grades" method="post" name="gradePage">'."\n".
  	'<input type="hidden" name="command" value="gradeByPage" />'."\n".
+ 	'<input type="hidden" name="fullname" value="'.$$fullname{$ENV{'form.student'}}.'" />'."\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="overRideScore" value="no" />'."\n".
- 	'<input type="hidden" name="lastSec" value="'.$ENV{'form.lastSec'}.'" />'."\n";
+ 	'<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."\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.
+     $studentTable.='&nbsp;<b>Note:</b> Problems graded correct by the computer are marked with a '.$checkIcon.
- 	') by the computer cannot be changed.'."\n".
+ 	' symbol.'."\n".
  	'<table border="0"><tr><td bgcolor="#777777">'.
  	'<table border="0"><tr bgcolor="#e6ffff">'.
- 	'<td align="center"><b>&nbsp;No&nbsp;</b></td>'.
+ 	'<td align="center"><b>&nbsp;Prob.&nbsp;</b></td>'.
- 	'<td><b>&nbsp;'.($ENV{'form.vProb'} eq 'no' ? 'Title' : 'Problem View').'/Grade</b></td></tr>';
+ 	'<td><b>&nbsp;'.($ENV{'form.vProb'} eq 'no' ? 'Title' : 'Problem Text').'/Grade</b></td></tr>';
-     my ($depth,$ctr,$question) = (1,0,1);
+     my ($depth,$question) = (1,1);
      $iterator->next(); # skip the first BEGIN_MAP
      my $curRes = $iterator->next(); # for "current resource"
-     while ($depth > 0 && $ctr < 100) { # ctr, just in case it never gets out of loop
+     while ($depth > 0) {
          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()) {
  	    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.
- Line 2561  sub displayPage {
+ Line 2878  sub displayPage {
  	    if ($ENV{'form.vProb'} eq 'yes') {
  		$studentTable.=&show_problem($request,$symbx,$uname,$udom,1);
  	    } else {
- 		my $companswer = &Apache::loncommon::get_student_answers(
+ 		my $companswer = &Apache::loncommon::get_student_answers($symbx,$uname,$udom,$ENV{'request.course.id'});
- 									 $symbx,$uname,$udom,$ENV{'request.course.id'});
+ 		$companswer =~ s|<form(.*?)>||g;
- 		$companswer=~s|<form(.*?)>||g;
+ 		$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/ /ms;
- #		    $companswer =~ s/$1/ /s;
+ #		    $request->print('match='.$1."<br>\n");
  #		}
- #		$companswer =~ s/<table border=\"1\">/<table border=\"0\">/g;
+ #		$companswer =~ s|<table border=\"1\">|<table border=\"0\">|g;
  		$studentTable.='&nbsp;<b>'.$title.'</b>&nbsp;<br>&nbsp;<b>Correct answer:</b><br>'.$companswer;
  	    }
- Line 2580  sub displayPage {
+ Line 2895  sub displayPage {
  		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">'.
+ 		    my %responseType = ();
- 			'<table border="0" width="100%"><tr bgcolor="#e6ffff">'.
+ 		    foreach my $partid (@{$parts}) {
- 			'<td><b>Date/Time</b></td>'.
+ 			$responseType{$partid} = $curRes->responseType($partid);
- 			'<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>';
+ 		    $studentTable.= &displaySubByDates(\$symbx,\%record,$parts,\%responseType,$checkIcon);
  		}
  	    } elsif ($ENV{'form.lastSub'} eq 'all') {
  		my $last = ($ENV{'form.lastSub'} eq 'last' ? 'last' : '');
- Line 2617  sub displayPage {
+ Line 2908  sub displayPage {
  									'','.submission');
  	    }
+ 	    if (&canmodify($usec)) {
- 	    foreach my $partid (@{$parts}) {
+ 		foreach my $partid (@{$parts}) {
- 		$studentTable.=&gradeBox($request,$symbx,$uname,$udom,$question,$partid,\%record);
+ 		    $studentTable.=&gradeBox($request,$symbx,$uname,$udom,$question,$partid,\%record);
- 		$studentTable.='<input type="hidden" name="q_'.$question.'" value="'.$partid.'" />'."\n";
+ 		    $studentTable.='<input type="hidden" name="q_'.$question.'" value="'.$partid.'" />'."\n";
- 		$question++;
+ 		    $question++;
+ 		}
  	    }
  	    $studentTable.='</td></tr>';
-        }
+ 	}
          $curRes = $iterator->next();
- 	$ctr++;
      }
+     $navmap->untieHashes();
      $studentTable.='</td></tr></table></td></tr></table>'."\n".
- 	'&nbsp;&nbsp;<input type="button" value="Save" '.
+ 	'<input type="button" value="Save" '.
  	'onClick="javascript:checkSubmitPage(this.form,'.$question.');" TARGET=_self />'.
  	'</form>'."\n";
      $studentTable.=&show_grading_menu_form($symb,$url);
- Line 2640  sub displayPage {
+ Line 2933  sub displayPage {
      return '';
  }
- sub temp_parts_fix { #remove sub once lonnavmap is fixed
+ sub displaySubByDates {
-     my $parts = shift;
+     my ($symbx,$record,$parts,$responseType,$checkIcon) = @_;
-     my %seen = ();
+     my $studentTable='<table border="0" width="100%"><tr><td bgcolor="#777777">'.
-     my @correctParts = ();
+ 	'<table border="0" width="100%"><tr bgcolor="#e6ffff">'.
-     foreach (@{$parts}) {
+ 	'<td><b>Date/Time</b></td>'.
- 	next if ($seen{$_} > 0);
+ 	'<td><b>Submission</b></td>'.
- 	$seen{$_}++;
+ 	'<td><b>Status&nbsp;</b></td></tr>';
- 	push @correctParts,$_;
+     my ($version);
+     my %mark;
+     $mark{'correct_by_student'} = $checkIcon;
+     return '<br />&nbsp;<font color="red">Nothing submitted - no attempts</font><br />'
+ 	if (!exists($$record{'1:timestamp'}));
+     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;
+ #	    next if ($$record{"$version:resource.$partid.solved"} eq '');
+ 	    $displaySub[0].=(exists $$record{$version.':'.$matchKey[0]}) ?
+ 		'<b>Part&nbsp;'.$partid.'&nbsp;'.
+ 		($$record{"$version:resource.$partid.tries"} eq '' ? 'Trial&nbsp;not&nbsp;counted' :
+ 		 'Trial&nbsp;'.$$record{"$version:resource.$partid.tries"}).'</b>&nbsp; '.
+ 		 &cleanRecord($$record{$version.':'.$matchKey[0]},$$responseType{$partid},$$symbx).'<br />' : '';
+ 	    $displaySub[1].=(exists $$record{"$version:resource.$partid.award"}) ?
+ 		'<b>Part&nbsp;'.$partid.'</b> &nbsp;'.
+ 		lc($$record{"$version:resource.$partid.award"}).' '.
+ 		$mark{$$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"} : ''; # needed because old essay regrader has not parts info
+ 	$studentTable.='<td>'.$displaySub[0].'&nbsp;</td><td>'.$displaySub[1].
+ 	    ($displaySub[2] eq '' ? '' : 'Manually graded by '.$displaySub[2]).'&nbsp;</td></tr>';
      }
-     return \@correctParts;
+     $studentTable.='</table></td></tr></table>';
+     return $studentTable;
  }
  sub updateGradeByPage {
- Line 2659  sub updateGradeByPage {
+ Line 2981  sub updateGradeByPage {
      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 ($classlist,undef,$fullname) = &getclasslist($getsec,'1');
      my ($uname,$udom) = split(/:/,$ENV{'form.student'});
+     my $usec=$classlist->{$ENV{'form.student'}}[5];
+     if (!&canmodify($usec)) {
+ 	$request->print('<font color="red">Unable to modify requested student.('.$ENV{'form.student'}.'</font>');
+ 	$request->print(&show_grading_menu_form($ENV{'form.symb'},$ENV{'form.url'}));
+ 	return;
+     }
      my $result='<h3><font color="#339933">&nbsp;'.$ENV{'form.title'}.'</font></h3>';
-     $result.='<h3>&nbsp;Student: '.$$fullname{$ENV{'form.student'}}.
+     $result.='<h3>&nbsp;Student: '.$ENV{'form.fullname'}.
  	'<font color="#999999"> ('.$uname.($udom eq $cdom ? '':':'.$udom).')</font></h3>'."\n";
      $request->print($result);
-     my $navmap = Apache::lonnavmaps::navmap-> new(
+     my $navmap = Apache::lonnavmaps::navmap-> new($ENV{'request.course.fn'}.'.db',
- 						  $ENV{'request.course.fn'}.'.db',
  						  $ENV{'request.course.fn'}.'_parms.db',1, 1);
      my ($mapUrl, $id, $resUrl) = split(/___/, $ENV{'form.page'});
      my $map = $navmap->getResourceByUrl($resUrl); # add to navmaps
- Line 2679  sub updateGradeByPage {
+ Line 3005  sub updateGradeByPage {
      my $studentTable='<table border="0"><tr><td bgcolor="#777777">'.
  	'<table border="0"><tr bgcolor="#e6ffff">'.
- 	'<td align="center"><b>&nbsp;No&nbsp;</b></td>'.
+ 	'<td align="center"><b>&nbsp;Prob.&nbsp;</b></td>'.
  	'<td><b>&nbsp;Title&nbsp;</b></td>'.
  	'<td><b>&nbsp;Previous Score&nbsp;</b></td>'.
  	'<td><b>&nbsp;New Score&nbsp;</b></td></tr>';
      $iterator->next(); # skip the first BEGIN_MAP
      my $curRes = $iterator->next(); # for "current resource"
-     my ($depth,$ctr,$question,$changeflag)= (1,0,1,0);
+     my ($depth,$question,$changeflag)= (1,1,0);
-     while ($depth > 0 && $ctr < 100) { # ctr, just in case it never gets out of loop
+     while ($depth > 0) {
          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) {
  	    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.
- Line 2712  sub updateGradeByPage {
+ Line 3037  sub updateGradeByPage {
  		my $score;
  		if ($partial > 0) {
  		    $score = 'correct_by_override';
- 		} elsif ($partial == 0) {
+ 		} elsif ($newpts ne '') { #empty is taken as 0
  		    $score = 'incorrect_by_override';
  		}
- 		if ($ENV{'form.GD_SEL'.$question.'_'.$partid} eq 'excused') {
+ 		my $dropMenu = $ENV{'form.GD_SEL'.$question.'_'.$partid};
+ 		if ($dropMenu eq 'excused') {
  		    $partial = '';
  		    $score = 'excused';
+ 		} elsif ($dropMenu eq 'reset status'
+ 			 && $ENV{'form.solved'.$question.'_'.$partid} ne '') { #update only if previous record exists
+ 		    $newrecord{'resource.'.$partid.'.tries'} = 0;
+ 		    $newrecord{'resource.'.$partid.'.solved'} = '';
+ 		    $newrecord{'resource.'.$partid.'.award'} = '';
+ 		    $newrecord{'resource.'.$partid.'.awarded'} = 0;
+ 		    $newrecord{'resource.'.$partid.'.regrader'} = "$ENV{'user.name'}:$ENV{'user.domain'}";
+ 		    $changeflag++;
+ 		    $newpts = '';
  		}
  		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).
- 		     (($score eq 'excused') ? 'excused' : $newpts)).
  		    '&nbsp;<br>';
  		$question++;
- 		if (($oldstatus eq 'correct_by_student') ||
+ 		next if ($dropMenu eq 'reset status' || ($newpts == $oldpts && $score ne 'excused'));
- 		    ($newpts eq $oldpts && $score eq $oldstatus))
- 		{
- 		    next;
- 		}
  		$newrecord{'resource.'.$partid.'.awarded'}  = $partial if $partial ne '';
- 		$newrecord{'resource.'.$partid.'.solved'}   = $score;
+ 		$newrecord{'resource.'.$partid.'.solved'}   = $score if $score ne '';
- 		$newrecord{'resource.'.$partid.'.regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";
+ 		$newrecord{'resource.'.$partid.'.regrader'} = "$ENV{'user.name'}:$ENV{'user.domain'}"
+ 		    if (scalar(keys(%newrecord)) > 0);
  		$changeflag++;
  	    }
- Line 2744  sub updateGradeByPage {
+ Line 3077  sub updateGradeByPage {
  		&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>';
  	}
          $curRes = $iterator->next();
- 	$ctr++;
      }
+     $navmap->untieHashes();
      $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);
+     my $grademsg=($changeflag == 0 ? 'No score was changed or updated.' :
+ 		  'The scores were changed for '.
+ 		  $changeflag.' problem'.($changeflag == 1 ? '.' : 's.'));
+     $request->print($grademsg.$studentTable);
      return '';
  }
- Line 2767  sub updateGradeByPage {
+ Line 3102  sub updateGradeByPage {
  #
  #-------------------------------------------------------------------
+ #--------------------Scantron Grading-----------------------------------
+ #
+ #------ start of section for handling grading by page/sequence ---------
+ sub defaultFormData {
+     my ($symb,$url)=@_;
+     return '
+       <input type="hidden" name="symb"    value="'.$symb.'" />'."\n".
+      '<input type="hidden" name="url"     value="'.$url.'" />'."\n".
+      '<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."\n".
+      '<input type="hidden" name="probTitle" value="'.$ENV{'form.probTitle'}.'" />'."\n";
+ }
+ sub getSequenceDropDown {
+     my ($request,$symb)=@_;
+     my $result='<select name="selectpage">'."\n";
+     my ($titles,$symbx) = &getSymbMap($request);
+     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++;
+     }
+     $result.= '</select>';
+     return $result;
+ }
+ sub scantron_uploads {
+     if (!-e $Apache::lonnet::perlvar{'lonScansDir'}) { return ''};
+     my $result=	'<select name="scantron_selectfile">';
+     opendir(DIR,$Apache::lonnet::perlvar{'lonScansDir'});
+     my @files=sort(readdir(DIR));
+     foreach my $filename (@files) {
+ 	if ($filename eq '.' or $filename eq '..') { next; }
+ 	$result.="<option>$filename</option>\n";
+     }
+     closedir(DIR);
+     $result.="</select>";
+     return $result;
+ }
+ sub scantron_scantab {
+     my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab');
+     my $result='<select name="scantron_format">'."\n";
+     foreach my $line (<$fh>) {
+ 	my ($name,$descrip)=split(/:/,$line);
+ 	if ($name =~ /^\#/) { next; }
+ 	$result.='<option value="'.$name.'">'.$descrip.'</option>'."\n";
+     }
+     $result.='</select>'."\n";
+     return $result;
+ }
+ sub scantron_selectphase {
+     my ($r) = @_;
+     my ($symb,$url)=&get_symb_and_url($r);
+     if (!$symb) {return '';}
+     my $sequence_selector=&getSequenceDropDown($r,$symb);
+     my $default_form_data=&defaultFormData($symb,$url);
+     my $grading_menu_button=&show_grading_menu_form($symb,$url);
+     my $file_selector=&scantron_uploads();
+     my $format_selector=&scantron_scantab();
+     my $result;
+     $result.= <<SCANTRONFORM;
+ <form method="post" enctype="multipart/form-data" action="/adm/grades" name="scantro_process">
+   <input type="hidden" name="command" value="scantron_process" />
+   $default_form_data
+   <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>
+ 		Filename of scoring office file: $file_selector
+ 	    </td>
+           </tr>
+           <tr bgcolor="#ffffe6">
+             <td>
+               Format of data file: $format_selector
+ 	    </td>
+           </tr>
+         </table>
+       </td>
+     </tr>
+   </table>
+   <input type="submit" value="Submit" />
+ </form>
+ $grading_menu_button
+ SCANTRONFORM
+     return $result;
+ }
+ sub get_scantron_config {
+     my ($which) = @_;
+     my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab');
+     my %config;
+     foreach my $line (<$fh>) {
+ 	my ($name,$descrip)=split(/:/,$line);
+ 	if ($name ne $which ) { next; }
+ 	chomp($line);
+ 	my @config=split(/:/,$line);
+ 	$config{'name'}=$config[0];
+ 	$config{'description'}=$config[1];
+ 	$config{'CODElocation'}=$config[2];
+ 	$config{'CODEstart'}=$config[3];
+ 	$config{'CODElength'}=$config[4];
+ 	$config{'IDstart'}=$config[5];
+ 	$config{'IDlength'}=$config[6];
+ 	$config{'Qstart'}=$config[7];
+ 	$config{'Qlength'}=$config[8];
+ 	$config{'Qoff'}=$config[9];
+ 	$config{'Qon'}=$config[10];
+ 	last;
+     }
+     return %config;
+ }
+ sub username_to_idmap {
+     my ($classlist)= @_;
+     my %idmap;
+     foreach my $student (keys(%$classlist)) {
+ 	$idmap{$classlist->{$student}->[&Apache::loncoursedata::CL_ID]}=
+ 	    $student;
+     }
+     return %idmap;
+ }
+ sub scantron_parse_scanline {
+     my ($line,$scantron_config)=@_;
+     my %record;
+     my $questions=substr($line,$$scantron_config{'Qstart'}-1);
+     my $data=substr($line,0,$$scantron_config{'Qstart'}-1);
+     if ($$scantron_config{'CODElocation'} ne 0) {
+ 	if ($$scantron_config{'CODElocation'} < 0) {
+ 	    $record{'scantron.CODE'}=substr($data,$$scantron_config{'CODEstart'}-1,
+ 					    $$scantron_config{'CODElength'});
+ 	} else {
+ 	    #FIXME interpret first N questions
+ 	}
+     }
+     $record{'scantron.ID'}=substr($data,$$scantron_config{'IDstart'}-1,
+ 				  $$scantron_config{'IDlength'});
+     my @alphabet=('A'..'Z');
+     my $questnum=0;
+     while ($questions) {
+ 	$questnum++;
+ 	my $currentquest=substr($questions,0,$$scantron_config{'Qlength'});
+ 	substr($questions,0,$$scantron_config{'Qlength'})='';
+ 	if (length($currentquest) < $$scantron_config{'Qlength'}) { next; }
+ 	my (@array)=split(/$$scantron_config{'Qon'}/,$currentquest);
+ 	if (scalar(@array) gt 2) {
+ 	    #FIXME do something intelligent with double bubbles
+ 	    Apache->request->print("<br ><b>Wha!!!</b> <pre>".scalar(@array).
+ 				   '-'.$currentquest.'-'.$questnum.'</pre><br />');
+ 	}
+ 	if (length($array[0]) eq $$scantron_config{'Qlength'}) {
+ 	    $record{"scantron.$questnum.answer"}='';
+ 	} else {
+ 	    $record{"scantron.$questnum.answer"}=$alphabet[length($array[0])];
+ 	}
+     }
+     $record{'scantron.maxquest'}=$questnum;
+     return \%record;
+ }
+ sub scantron_add_delay {
+ }
+ sub scantron_find_student {
+     my ($scantron_record,$idmap)=@_;
+     my $scanID=$$scantron_record{'scantron.ID'};
+     foreach my $id (keys(%$idmap)) {
+ 	Apache->request->print('<pre>checking studnet -'.$id.'- againt -'.$scanID.'- </pre>');
+ 	if (lc($id) eq lc($scanID)) { Apache->request->print('success');return $$idmap{$id}; }
+     }
+     return undef;
+ }
+ sub scantron_filter {
+     my ($curres)=@_;
+     if (ref($curres) && $curres->is_problem() && !$curres->randomout) {
+ 	return 1;
+     }
+     return 0;
+ }
+ sub scantron_process_students {
+     my ($r) = @_;
+     my (undef,undef,$sequence)=split(/___/,$ENV{'form.selectpage'});
+     my ($symb,$url)=&get_symb_and_url($r);
+     if (!$symb) {return '';}
+     my $default_form_data=&defaultFormData($symb,$url);
+     my %scantron_config=&get_scantron_config($ENV{'form.scantron_format'});
+     my $scanlines=Apache::File->new($Apache::lonnet::perlvar{'lonScansDir'}."/$ENV{'form.scantron_selectfile'}");
+     my @scanlines=<$scanlines>;
+     my $classlist=&Apache::loncoursedata::get_classlist();
+     my %idmap=&username_to_idmap($classlist);
+     my $navmap=Apache::lonnavmaps::navmap->new($ENV{'request.course.fn'}.'.db',$ENV{'request.course.fn'}.'_parms.db',1, 1);
+     my $map=$navmap->getResourceByUrl($sequence);
+     my @resources=$navmap->retrieveResources($map,\&scantron_filter,1,0);
+     $r->print("geto ".scalar(@resources)."<br />");
+     my $result= <<SCANTRONFORM;
+ <form method="post" enctype="multipart/form-data" action="/adm/grades" name="scantronupload">
+   <input type="hidden" name="command" value="scantron_configphase" />
+   $default_form_data
+ SCANTRONFORM
+     $r->print($result);
+     my @delayqueue;
+     my $totalcorrect;
+     my $totalincorrect;
+     my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,
+ 	           'Scantron Status','Scantron Progress',scalar(@scanlines));
+     foreach my $line (@scanlines) {
+ 	my $studentcorrect;
+ 	my $studentincorrect;
+ 	chomp($line);
+ 	my $scan_record=&scantron_parse_scanline($line,\%scantron_config);
+ 	my ($uname,$udom);
+ 	if ($uname=&scantron_find_student($scan_record,\%idmap)) {
+ 	    &scantron_add_delay(\@delayqueue,$line,
+ 				'Unable to find a student that matches');
+ 	}
+ 	$r->print('<pre>doing studnet'.$uname.'</pre>');
+ 	($uname,$udom)=split(/:/,$uname);
+ 	&Apache::lonnet::delenv('form.counter');
+ 	&Apache::lonnet::appenv(%$scan_record);
+ #    &Apache::lonhomework::showhash(%ENV);
+     $Apache::lonxml::debug=1;
+ 	&Apache::lonxml::debug("line is $line");
+ 	    my $i=0;
+ 	foreach my $resource (@resources) {
+ 	    $i++;
+ 	    my $result=&Apache::lonnet::ssi($resource->src(),
+ 				 ('submitted'     =>'scantron',
+ 				  'grade_target'  =>'grade',
+ 				  'grade_username'=>$uname,
+ 				  'grade_domain'  =>$udom,
+ 				  'grade_courseid'=>$ENV{'request.course.id'},
+ 				  'grade_symb'    =>$resource->symb()));
+ 	    my %score=&Apache::lonnet::restore($resource->symb(),
+ 					       $ENV{'request.course.id'},
+ 					       $udom,$uname);
+ 	    foreach my $part ($resource->{PARTS}) {
+ 		if ($score{'resource.'.$part.'.solved'} =~ /^correct/) {
+ 		    $studentcorrect++;
+ 		    $totalcorrect++;
+ 		} else {
+ 		    $studentincorrect++;
+ 		    $totalincorrect++;
+ 		}
+ 	    }
+ 	    $r->print('<pre>'.
+ 		      $resource->symb().'-'.
+ 		      $resource->src().'-'.'</pre>result is'.$result);
+ 	    &Apache::lonhomework::showhash(%score);
+ 	#    if ($i eq 3) {last;}
+ 	}
+ 	&Apache::lonnet::delenv('form.counter');
+ 	&Apache::lonnet::delenv('scantron\.');
+ 	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
+              'last student Who got a '.$studentcorrect.' correct and '.
+ 	     $studentincorrect.' incorrect. The class has gotten '.
+              $totalcorrect.' correct and '.$totalincorrect.' incorrect');
+ 	last;
+ 	#FIXME
+ 	#get iterator for $sequence
+ 	#foreach question 'submit' the students answer to the server
+ 	#   through grade target {
+ 	#   generate data to pass back that includes grade recevied
+ 	#}
+     }
+     $Apache::lonxml::debug=0;
+     foreach my $delay (@delayqueue) {
+ 	#FIXME
+ 	#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
+     }
+     #FIXME
+     # if delay queue exists 2 submits one to process delayed students one
+     #     to ignore delayed students, possibly saving the delay queue for later
+     $navmap->untieHashes();
+ }
+ #-------- end of section for handling grading scantron forms -------
+ #
+ #-------------------------------------------------------------------
  #-------------------------- Menu interface -------------------------
  #
  #--- Show a Grading Menu button - Calls the next routine ---
  sub show_grading_menu_form {
      my ($symb,$url)=@_;
-     my $result.='<form action="/adm/grades" method="post">'."\n".
+     my $result.='<br /><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="saveState"  value="'.$ENV{'form.saveState'}.'" />'."\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;
  }
+ # -- Retrieve choices for grading form
+ sub savedState {
+     my %savedState = ();
+     if ($ENV{'form.saveState'}) {
+ 	foreach (split(/:/,$ENV{'form.saveState'})) {
+ 	    my ($key,$value) = split(/=/,$_,2);
+ 	    $savedState{$key} = $value;
+ 	}
+     }
+     return \%savedState;
+ }
  #--- Displays the main menu page -------
  sub gradingmenu {
      my ($request) = @_;
      my ($symb,$url)=&get_symb_and_url($request);
      if (!$symb) {return '';}
+     my $probTitle = &Apache::lonnet::gettitle($symb);
      $request->print(<<GRADINGMENUJS);
  <script type="text/javascript" language="javascript">
-     function checkChoice(formname) {
+     function checkChoice(formname,val,cmdx) {
- 	var cmd = formname.command;
+ 	if (val <= 2) {
- 	formname.lastCmd.value = radioSelection(formname.command);
+ 	    var cmd = radioSelection(formname.radioChoice);
- 	formname.lastSec.value = pullDownSelection(formname.section);
+ 	    var cmdsave = cmd;
- 	if (cmd[0].checked || cmd[1].checked || cmd[2].checked) {
+ 	} else {
- 	    formname.submit();
+ 	    cmd = cmdx;
- 	}
+ 	    cmdsave = 'submission';
- 	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();
  	}
+ 	formname.command.value = cmd;
- 	if (cmd[4].checked) {
+ 	formname.saveState.value = "saveCmd="+cmdsave+":saveSec="+pullDownSelection(formname.section)+
+ 	    ":saveSub="+radioSelection(formname.submitonly)+":saveStatus="+pullDownSelection(formname.Status);
+ 	if (val < 5) formname.submit();
+ 	if (val == 5) {
  	    if (!checkReceiptNo(formname,'notOK')) { return false;}
  	    formname.submit();
  	}
- Line 2825  sub gradingmenu {
+ Line 3479  sub gradingmenu {
  	    formname.receipt.focus();
  	    return false;
  	}
- 	formname.command[4].checked = true;
  	return true;
      }
-     function radioSelection(radioButton) {
- 	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
+     &commonJSfunctions($request);
-     my $probTitle = &Apache::lonnet::metadata($ENV{'form.url'},'title');
+     my $result='<h3>&nbsp;<font color="#339933">Manual Grading/View Submission</font></h3>';
-     my $result='<h3>&nbsp;<font color="#339933">Manual Grading/View Submission</font></h3>'.
+     my ($table,undef,$hdgrade) = &showResourceInfo($url,$probTitle);
- 	'<table border="0">'.
+     $result.=$table;
- 	'<tr><td colspan=3><font size=+1><b>Problem: </b>'.$probTitle.'</font></td></tr>';
+     my (undef,$sections) = &getclasslist('all','0');
-     my ($partlist,$handgrade) = &response_type($url);
+     my $savedState = &savedState();
-     my ($resptype,$hdgrade)=('','no');
+     my $saveCmd = ($$savedState{'saveCmd'} eq '' ? 'submission' : $$savedState{'saveCmd'});
-     for (sort keys(%$handgrade)) {
+     my $saveSec = ($$savedState{'saveSec'} eq '' ? 'all' : $$savedState{'saveSec'});
- 	my ($responsetype,$handgrade)=split(/:/,$$handgrade{$_});
+     my $saveSub = ($$savedState{'saveSub'} eq '' ? 'all' : $$savedState{'saveSub'});
- 	$resptype = $responsetype;
+     my $saveStatus = ($$savedState{'saveStatus'} eq '' ? 'Active' : $$savedState{'saveStatus'});
- 	$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="command"     value="" />'."\n".
- 	'<input type="hidden" name="lastSec"     value="" />'."\n".
+ 	'<input type="hidden" name="saveState"   value="" />'."\n".
+ 	'<input type="hidden" name="gradingMenu" value="1" />'."\n".
  	'<input type="hidden" name="showgrading" value="yes" />'."\n";
-     $result.='<table width=100% border=0><tr><td bgcolor=#777777>'."\n".
+     $result.='<table width="100%" border=0><tr><td bgcolor=#777777>'."\n".
- 	'<table width=100% border=0><tr bgcolor="#e6ffff"><td>'."\n".
+ 	'<table width=100% border=0><tr bgcolor="#e6ffff"><td colspan="2">'."\n".
  	'&nbsp;<b>Select a Grading/Viewing Option</b></td></tr>'."\n".
- 	'<tr bgcolor=#ffffe6><td>'."\n";
+ 	'<tr bgcolor="#ffffe6" valign="top"><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";
-     if ((&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'})) && ($symb)) {
+     $result.='<table width="100%" border=0>';
- 	$result.='<tr bgcolor="#ffffe6"valign="top"><td>'.
+     $result.='<tr bgcolor="#ffffe6" valign="top"><td>'."\n".
- 	    '<input type="radio" name="command" value="verify" onSelect="javascript:this.form.receipt.focus()" '.
+ 	'&nbsp;Select Section: <select name="section">'."\n";
- 	    ($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";}
+ 					 ($saveSec eq $_ ? 'selected="on"' : '').'>'.$_.'</option>'."\n";}
      }
-     $result.= '<option value="all" '.($lastSec eq 'all' ? 'selected="on"' : ''). '>all</select> &nbsp; '.
+     $result.= '<option value="all" '.($saveSec eq 'all' ? 'selected="on"' : ''). '>all</select> &nbsp; ';
- 	'<font color="red">(Applies to the first three options only.)</font>'."\n";
+     $result.='Student Status:</b>'.&Apache::lonhtmlcommon::StatusOptions($saveStatus,undef,1,undef);
      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 />'.
+     $result.='<tr bgcolor="#ffffe6"valign="top"><td>'.
- 	'<input type="button" onClick="javascript:checkChoice(this.form);" value="View/Grade" />'."\n".
+ 	'<input type="radio" name="radioChoice" value="submission" '.
- 	'</form></td></tr></table>'."\n".
+ 	($saveCmd eq 'submission' ? 'checked' : '').'> '.'<b>Current Resource:</b> For one or more students'.
+ 	'<br />&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;-->For students with '.
+ 	'<input type="radio" name="submitonly" value="yes" '.
+ 	($saveSub eq 'yes' ? 'checked' : '').' /> submissions or '.
+ 	'<input type="radio" name="submitonly" value="all" '.
+ 	($saveSub eq 'all' ? 'checked' : '').' /> for all</td></tr>'."\n";
+     $result.='<tr bgcolor="#ffffe6"valign="top"><td>'.
+ 	'<input type="radio" name="radioChoice" value="viewgrades" '.
+ 	($saveCmd eq 'viewgrades' ? 'checked' : '').'> '.
+ 	'<b>Current Resource:</b> For all students in selected section or course</td></tr>'."\n";
+     $result.='<tr bgcolor="#ffffe6" valign="top"><td>'.
+ 	'<input type="radio" name="radioChoice" value="pickStudentPage" '.
+ 	($saveCmd eq 'pickStudentPage' ? 'checked' : '').'> '.
+ 	'The <b>complete</b> set/page/sequence: For one student</td></tr>'."\n";
+     $result.='<tr bgcolor="#ffffe6"><td><br />'.
+ 	'<input type="button" onClick="javascript:checkChoice(this.form,\'2\');" value="Next->" />'.
+ 	'</td></tr></table>'."\n";
+     $result.='</td><td valign="top">';
+     $result.='<table width="100%" border=0>';
+     $result.='<tr bgcolor="#ffffe6"><td>'.
+ 	'<input type="button" onClick="javascript:checkChoice(this.form,\'3\',\'csvform\');" value="Upload" />'.
+ 	' scores from file </td></tr>'."\n";
+     $result.='<tr bgcolor="#ffffe6"valign="top"><td colspan="2">'.
+ 	'<input type="button" onClick="javascript:checkChoice(this.form,\'4\',\'scantron_selectphase\');'.
+ 	'" value="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="button" onClick="javascript:checkChoice(this.form,\'5\',\'verify\');" value="Verify" />'.
+ 	    ' submission 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.='</form></td></tr></table>'."\n".
  	'</td></tr></table>'."\n".
  	'</td></tr></table>'."\n";
      return $result;
- Line 2943  GRADINGMENUJS
+ Line 3576  GRADINGMENUJS
  sub handler {
      my $request=$_[0];
+     undef(%perm);
      if ($ENV{'browser.mathml'}) {
  	$request->content_type('text/xml');
      } else {
- Line 2972  sub handler {
+ Line 3606  sub handler {
  		if ($tsymb) {
  		    my ($map,$id,$url)=split(/\_\_\_/,$tsymb);
  		    if (&Apache::lonnet::allowed('mgr',$tcrsid)) {
- 			$request->print(
+ 			$request->print(&Apache::lonnet::ssi_body('/res/'.$url,
- 					&Apache::lonnet::ssi('/res/'.$url,
+ 					  ('grade_username' => $tuname,
- 							     ('grade_username' => $tuname,
+ 					   'grade_domain' => $tudom,
- 							      'grade_domain' => $tudom,
+ 					   'grade_courseid' => $tcrsid,
- 							      'grade_courseid' => $tcrsid,
+ 					   'grade_symb' => $tsymb)));
- 							      'grade_symb' => $tsymb)));
  		    } else {
  			$request->print('<h3>Not authorized: '.$token.'</h3>');
  		    }
  		} else {
  		    $request->print('<h3>Not a valid DocID: '.$token.'</h3>');
  		}
- Line 2989  sub handler {
+ Line 3622  sub handler {
  	    }
  	}
      } else {
- 	$Apache::grades::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'});
+ 	if (!($perm{'vgr'}=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}))) {
- 	if ($command eq 'submission') {
+ 	    if ($perm{'vgr'}=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}.'/'.$ENV{'request.course.sec'})) {
+ 		$perm{'vgr_section'}=$ENV{'request.course.sec'};
+ 	    } else {
+ 		delete($perm{'vgr'});
+ 	    }
+ 	}
+ 	if (!($perm{'mgr'}=&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) {
+ 	    if ($perm{'mgr'}=&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}.'/'.$ENV{'request.course.sec'})) {
+ 		$perm{'mgr_section'}=$ENV{'request.course.sec'};
+ 	    } else {
+ 		delete($perm{'mgr'});
+ 	    }
+ 	}
+ 	if ($command eq 'submission' && $perm{'vgr'}) {
  	    ($ENV{'form.student'} eq '' ? &listStudents($request) : &submission($request,0,0));
- 	} elsif ($command eq 'pickStudentPage') {
+ 	} elsif ($command eq 'pickStudentPage' && $perm{'vgr'}) {
  	    &pickStudentPage($request);
- 	} elsif ($command eq 'displayPage') {
+ 	} elsif ($command eq 'displayPage' && $perm{'vgr'}) {
  	    &displayPage($request);
- 	} elsif ($command eq 'gradeByPage') {
+ 	} elsif ($command eq 'gradeByPage' && $perm{'mgr'}) {
  	    &updateGradeByPage($request);
- 	} elsif ($command eq 'processGroup') {
+ 	} elsif ($command eq 'processGroup' && $perm{'vgr'}) {
  	    &processGroup($request);
- 	} elsif ($command eq 'gradingmenu') {
+ 	} elsif ($command eq 'gradingmenu' && $perm{'vgr'}) {
  	    $request->print(&gradingmenu($request));
- 	} elsif ($command eq 'viewgrades') {
+ 	} elsif ($command eq 'viewgrades' && $perm{'vgr'}) {
  	    $request->print(&viewgrades($request));
- 	} elsif ($command eq 'handgrade') {
+ 	} elsif ($command eq 'handgrade' && $perm{'mgr'}) {
  	    $request->print(&processHandGrade($request));
- 	} elsif ($command eq 'editgrades') {
+ 	} elsif ($command eq 'editgrades' && $perm{'mgr'}) {
  	    $request->print(&editgrades($request));
- 	} elsif ($command eq 'verify') {
+ 	} elsif ($command eq 'verify' && $perm{'vgr'}) {
  	    $request->print(&verifyreceipt($request));
- 	} elsif ($command eq 'csvform') {
+ 	} elsif ($command eq 'csvform' && $perm{'mgr'}) {
  	    $request->print(&upcsvScores_form($request));
- 	} elsif ($command eq 'csvupload') {
+ 	} elsif ($command eq 'csvupload' && $perm{'mgr'}) {
  	    $request->print(&csvupload($request));
- 	} elsif ($command eq 'viewclasslist') {
+ 	} elsif ($command eq 'csvuploadmap' && $perm{'mgr'} ) {
- 	    $request->print(&viewclasslist($request));
- 	} elsif ($command eq 'csvuploadmap') {
  	    $request->print(&csvuploadmap($request));
- 	} elsif ($command eq 'csvuploadassign') {
+ 	} elsif ($command eq 'csvuploadassign' && $perm{'mgr'}) {
  	    if ($ENV{'form.associate'} ne 'Reverse Association') {
  		$request->print(&csvuploadassign($request));
  	    } else {
- Line 3029  sub handler {
+ Line 3674  sub handler {
  		}
  		$request->print(&csvuploadmap($request));
  	    }
- 	} else {
+ 	} elsif ($command eq 'scantron_selectphase' && $perm{'mgr'}) {
- 	    $request->print("Unknown action: $command:");
+ 	    $request->print(&scantron_selectphase($request));
+ 	} elsif ($command eq 'scantron_process' && $perm{'mgr'}) {
+ 	    $request->print(&scantron_process_students($request));
+ 	} elsif ($command) {
+ 	    $request->print("Access Denied");
  	}
      }
      &send_footer($request);

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.73
changed lines
	Added in v.1.128