loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.333, 2015/03/18 12:53:24
+version 1.334, 2015/04/21 12:28:05
  Line 996  sub finalizeawards {
  	$j++;
      }
+     # if at least one response item is set to include lenient grading
+     # and that item is partially correct then overall award reflects
+     # that, unless an award for one of the other response items does
+     # not fall within the basic awards for correct or incorrect.
+     if ($Apache::inputtags::leniency) {
+         if (($$awardref[$which] eq 'INCORRECT')
+             && (grep { $_ eq 'EXACT_ANS' ||
+                        $_ eq 'APPROX_ANS' ||
+                        $_ eq 'ASSIGNED_SCORE' } (@$awardref))
+             && !((grep { $_ ne 'INCORRECT' &&
+                          $_ ne 'EXACT_ANS' &&
+                          $_ ne 'APPROX_ANS' &&
+                          $_ ne 'ASSIGNED_SCORE' } (@$awardref)))) {
+             return ('ASSIGNED_SCORE');
+         }
+     }
      if (defined($which)) {
  	if (ref($nameref)) {
  	    return ($$awardref[$which],$$msgref[$which],$$nameref[$which]);