version 1.34, 2001/08/22 21:04:58
|
version 1.36, 2001/08/23 16:44:22
|
Line 16 sub caparesponse_check {
|
Line 16 sub caparesponse_check {
|
#not properly used yet: calc |
#not properly used yet: calc |
#not to be used: $ans_fmt |
#not to be used: $ans_fmt |
my ($answer,$type,$tol,$sig,$ans_fmt,$unit,$calc) = |
my ($answer,$type,$tol,$sig,$ans_fmt,$unit,$calc) = |
eval $expr.';return ($answer,$type,$tol,$sig,$ans_fmt,$unit,$calc);'; |
eval $_[1].';return ($answer,$type,$tol,$sig,$ans_fmt,$unit,$calc);'; |
|
|
my $tol_type=''; # gets it's value from whether tol has a % or not done |
my $tol_type=''; # gets it's value from whether tol has a % or not done |
my $sig_lbound=''; #done |
my $sig_lbound=''; #done |