version 1.7, 2000/10/25 22:02:53
|
version 1.8, 2000/10/30 20:24:38
|
Line 18 sub caparesponse_check {
|
Line 18 sub caparesponse_check {
|
|
|
($answer,$type,$tol_type,$tolerance,$sig_lbound,$sig_ubound,$ans_fmt, |
($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'; |
$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, |
my $result = &caparesponse_capa_check_answer($response,$answer,$type, |
$tol_type,$tolerance, |
$tol_type,$tolerance, |
$sig_lbound,$sig_ubound, |
$sig_lbound,$sig_ubound, |