version 1.69, 2004/02/18 22:49:32
|
version 1.70, 2004/03/12 16:55:35
|
Line 44 sub caparesponse_check {
|
Line 44 sub caparesponse_check {
|
#not to be used: $ans_fmt |
#not to be used: $ans_fmt |
my ($type,$tol,$sig,$ans_fmt,$unit,$calc,$samples) = |
my ($type,$tol,$sig,$ans_fmt,$unit,$calc,$samples) = |
eval $_[2]. |
eval $_[2]. |
';return ($type,$tol,$sig,$ans_fmt,$unit,$calc,$samples);'; |
';return ($__LC__type,$__LC__tol,$__LC__sig,$__LC__ans_fmt,$__LC__unit,$__LC__calc,$__LC__samples);'; |
|
|
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 |
Line 165 sub caparesponse_check_list {
|
Line 165 sub caparesponse_check_list {
|
my $answers=join(':',@list); |
my $answers=join(':',@list); |
$result.="Got response :$answers:\n"; |
$result.="Got response :$answers:\n"; |
my @responselist; |
my @responselist; |
my $type =eval $expr.';return $type;'; |
my $type =eval $expr.';return $__LC__type;'; |
|
$result.="Got type :$type:\n"; |
if ($type ne '' && $#list > 0) { |
if ($type ne '' && $#list > 0) { |
(@responselist)=split /,/,$response; |
(@responselist)=split /,/,$response; |
} else { |
} else { |