version 1.34, 2001/08/22 21:04:58
|
version 1.37, 2001/10/01 20:15:30
|
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 |
Line 87 sub caparesponse_check {
|
Line 87 sub caparesponse_check {
|
return "$result:<br />Error $error:<br />Answer $answer:<br />Response $response:<br /> type-$type|$tol|$tol_type|$sig:$sig_lbound:$sig_ubound|$unit|<br />$message$expr"; |
return "$result:<br />Error $error:<br />Answer $answer:<br />Response $response:<br /> type-$type|$tol|$tol_type|$sig:$sig_lbound:$sig_ubound|$unit|<br />$message$expr"; |
} |
} |
|
|
sub caparesponse_check_list { |
sub get_array_args { |
my ($response,$expr)=@_; |
my ($expr,$arg)=@_; |
# do these first, because who knows what varname the instructor might have used |
# do these first, because who knows what varname the instructor might have used |
# but it probably isn't $CAPARESPONSE_CHECK_LIST_answer |
# but it probably isn't $CAPARESPONSE_CHECK_LIST_answer |
my $CAPARESPONSE_CHECK_LIST_answer = eval $expr.';return $answer'; |
my $CAPARESPONSE_CHECK_LIST_answer = eval $expr.';return $'.$arg; #' |
my (@list) = eval $CAPARESPONSE_CHECK_LIST_answer; |
my (@list) = eval $CAPARESPONSE_CHECK_LIST_answer; |
my $result=''; |
my $result=''; |
$result.="error:$@:<br />"; |
$result.="error:$@:<br />"; |
Line 100 sub caparesponse_check_list {
|
Line 100 sub caparesponse_check_list {
|
$result.="list zero is undefined<br />"; |
$result.="list zero is undefined<br />"; |
$list[0]=$CAPARESPONSE_CHECK_LIST_answer; |
$list[0]=$CAPARESPONSE_CHECK_LIST_answer; |
} |
} |
|
return @list; |
|
} |
|
|
|
sub caparesponse_check_list { |
|
my ($response,$expr)=@_; |
|
my (@list) = &get_array_args($expr,'answer'); |
my $aresult=''; |
my $aresult=''; |
my $current_answer; |
my $current_answer; |
$result.="Got response :$CAPARESPONSE_CHECK_LIST_answer:$list[0]:<br />"; |
$result.="Got response :$CAPARESPONSE_CHECK_LIST_answer:$list[0]:<br />"; |