--- loncom/homework/grades.pm 2006/04/09 20:53:27 1.348 +++ loncom/homework/grades.pm 2006/04/10 06:34:07 1.349 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.348 2006/04/09 20:53:27 bowersj2 Exp $ +# $Id: grades.pm,v 1.349 2006/04/10 06:34:07 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -726,8 +726,8 @@ LISTJAVASCRIPT ' Grading Increments: '. ''."\n". @@ -1443,8 +1443,7 @@ sub sub_page_kw_js { SUBJAVASCRIPT } -sub getIncrement -{ +sub get_increment { my $increment = $env{'form.increment'}; if ($increment != 1 && $increment != .5 && $increment != .25 && $increment != .1) { @@ -1476,7 +1475,7 @@ sub gradeBox { 'Part: '.$display_part.' Points: '."\n"; my $ctr = 0; my $thisweight = 0; - my $increment = getIncrement(); + my $increment = &get_increment(); $result.=''."\n"; # display radio buttons in a nice table 10 across while ($thisweight<=$wgt) { $result.= '
'; $endform.=&show_grading_menu_form($symb);