version 1.52, 2002/09/26 20:46:48
|
version 1.53, 2002/09/26 21:54:00
|
Line 101 sub caparesponse_check {
|
Line 101 sub caparesponse_check {
|
$sig_ubound =15; #SIG_UB_DEFAULT |
$sig_ubound =15; #SIG_UB_DEFAULT |
} else { |
} else { |
($sig_lbound,$sig_ubound) = split /,/,$sig; |
($sig_lbound,$sig_ubound) = split /,/,$sig; |
if (!$sig_lbound) { |
if (!defined($sig_lbound)) { |
$sig_lbound = 0; #SIG_LB_DEFAULT |
$sig_lbound = 0; #SIG_LB_DEFAULT |
$sig_ubound =15; #SIG_UB_DEFAULT |
$sig_ubound =15; #SIG_UB_DEFAULT |
} |
} |
if (!$sig_ubound) { $sig_ubound=$sig_lbound; } |
if (!defined($sig_ubound)) { $sig_ubound=$sig_lbound; } |
} |
} |
my $result = &caparesponse_capa_check_answer($response,$answer,$type, |
my $result = &caparesponse_capa_check_answer($response,$answer,$type, |
$tol_type,$tol, |
$tol_type,$tol, |