';
- $result.=''."\n".
''.
''."  \n";
@@ -809,7 +761,7 @@ sub processHandGrade {
my $statusflg = '';
foreach (keys(%status)) {
$statusflg = 1 if ($status{$_} ne 'nothing');
- my ($foo,$partid,$foo) = split(/\./,$_);
+ my ($foo,$partid,$foo1) = split(/\./,$_);
$statusflg = '' if ($status{'resource.'.$partid.'.submitted_by'} ne '');
}
next if ($statusflg eq '');
@@ -845,11 +797,11 @@ sub saveHandGrade {
# my %record=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},$domain,$stuname);
my %newrecord;
foreach (split(/:/,$ENV{'form.partlist'.$newflg})) {
- if ($ENV{'form.GRADE_SEL'.$newflg.'_'.$_} eq 'excused') {
+ if ($ENV{'form.GD_SEL'.$newflg.'_'.$_} eq 'excused') {
$newrecord{'resource.'.$_.'.solved'} = 'excused';
} else {
- my $pts = ($ENV{'form.GRADE_BOX'.$newflg.'_'.$_} ne '' ?
- $ENV{'form.GRADE_BOX'.$newflg.'_'.$_} : $ENV{'form.RADVAL'.$newflg.'_'.$_});
+ my $pts = ($ENV{'form.GD_BOX'.$newflg.'_'.$_} ne '' ?
+ $ENV{'form.GD_BOX'.$newflg.'_'.$_} : $ENV{'form.RADVAL'.$newflg.'_'.$_});
if ($pts eq '') {
&userError($request,'No point was assigned for part id '.$_.' and for username '.$stuname.'.');
return 'error';
@@ -906,7 +858,7 @@ sub gradingmenu {
my ($responsetype,$handgrade)=split(/:/,$$handgrade{$_});
$resptype = $responsetype;
$hdgrade = $handgrade if ($handgrade eq 'yes');
- $result.='