--- loncom/homework/grades.pm 2002/09/20 23:35:30 1.49 +++ loncom/homework/grades.pm 2002/09/20 23:41:47 1.50 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.49 2002/09/20 23:35:30 albertel Exp $ +# $Id: grades.pm,v 1.50 2002/09/20 23:41:47 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -292,7 +292,7 @@ sub verifyreceipt { $contents. ''."\n"; } - return $string.&show_grading_menu_form ($symb,$url); + return $string.&show_grading_menu_form($symb,$url); } #--- This is called by a number of programs. @@ -436,14 +436,14 @@ LISTJAVASCRIPT $gradeTable.=''. '
'."\n"; + 'value="'.$viewgrade.'" />
'."\n"; if ($ctr == 0) { $gradeTable='
 '. 'No submission found for this resource.
'; - $gradeTable.=&show_grading_menu_form($symb,$url); } elsif ($ctr == 1) { $gradeTable =~ s/type=checkbox/type=checkbox checked/; } + $gradeTable.=&show_grading_menu_form($symb,$url); $request->print($gradeTable); return ''; } @@ -1145,6 +1145,7 @@ KEYWORDS $endform.='(Next and Previous do not save the scores.)'."\n" if ($ENV{'form.handgrade'} eq 'yes'); $endform.=''; + $endform.=&show_grading_menu_form($symb,$url); $request->print($endform); } return '';