loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.7, 2000/10/25 22:02:53
+version 1.8, 2000/10/30 20:24:38
  Line 18  sub caparesponse_check {
    ($answer,$type,$tol_type,$tolerance,$sig_lbound,$sig_ubound,$ans_fmt,
     $unit_str,$calc) = eval $expr.'return $answer,$type,$tol_type,$tolerance,$sig_lbound,$sig_ubound,$ans_fmt,$unit_str,$calc';
+   #type's definitons come from capaParser.h
+   if ($type eq '' ) {
+     if ( $answer eq ($answer *1.0)) { $type = 2;
+     } else { $type = 3; }
+   } else {
+          if ($type eq 'cs')    { $type = 4;
+     } elsif ($type eq 'ci')    { $type = 3;
+     } elsif ($type eq 'mc')    { $type = 5;
+     } elsif ($type eq 'fml')   { $type = 8;
+     } elsif ($type eq 'subj')  { $type = 7;}
+   }
    my $result = &caparesponse_capa_check_answer($response,$answer,$type,
  					       $tol_type,$tolerance,
  					       $sig_lbound,$sig_ubound,