[LON-CAPA-cvs] cvs: loncom /homework grades.pm

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 10 Apr 2006 06:34:08 -0000


albertel		Mon Apr 10 02:34:08 2006 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - style police
  - correcting invalid html
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.348 loncom/homework/grades.pm:1.349
--- loncom/homework/grades.pm:1.348	Sun Apr  9 16:53:27 2006
+++ loncom/homework/grades.pm	Mon Apr 10 02:34:07 2006
@@ -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 @@
         '&nbsp;<b>Grading Increments:</b> <select name="increment">'.
         '<option value="1">Whole Points</option>'.
         '<option value=".5">Half Points</option>'.
-        '<option value=".25">Quarter Points</options>'.
-        '<option values=".1">Tenths of a Point</option>'.
+        '<option value=".25">Quarter Points</option>'.
+        '<option value=".1">Tenths of a Point</option>'.
         '</select>'.
 
 	'<input type="hidden" name="section"     value="'.$getsec.'" />'."\n".
@@ -1443,8 +1443,7 @@
 SUBJAVASCRIPT
 }
 
-sub getIncrement
-{
+sub get_increment {
     my $increment = $env{'form.increment'};
     if ($increment != 1 && $increment != .5 && $increment != .25 &&
         $increment != .1) {
@@ -1476,7 +1475,7 @@
 	'<b>Part: </b>'.$display_part.' <b>Points: </b></td><td>'."\n";
     my $ctr = 0;
     my $thisweight = 0;
-    my $increment = getIncrement();
+    my $increment = &get_increment();
     $result.='<table border="0"><tr>'."\n";  # display radio buttons in a nice table 10 across
     while ($thisweight<=$wgt) {
 	$result.= '<td><nobr><label><input type="radio" name="RADVAL'.$counter.'_'.$partid.'" '.
@@ -2015,7 +2014,7 @@
 	    '<input type="button" value="Next" '.
 	    'onClick="javascript:checksubmit(this.form,\'Next\');" TARGET=_self> &nbsp;';
 	$endform.='(Next and Previous (student) do not save the scores.)'."\n" ;
-        $endform.="<input type='hidden' value='" . getIncrement() .
+        $endform.="<input type='hidden' value='".&get_increment().
             "' name='increment' />";
 	$endform.='</td><tr></table></form>';
 	$endform.=&show_grading_menu_form($symb);