version 1.48, 2004/03/12 18:41:43
|
version 1.50, 2004/03/13 00:36:11
|
Line 163 sub end_numericalhint {
|
Line 163 sub end_numericalhint {
|
$$parstack[$#$parstack]; |
$$parstack[$#$parstack]; |
#need to get all possible parms |
#need to get all possible parms |
foreach my $key (keys(%Apache::inputtags::params)) { |
foreach my $key (keys(%Apache::inputtags::params)) { |
$expression.= ';my $'. #' |
$expression.= ';my $__LC__'. #' |
$key.'="'.$Apache::inputtags::params{$key}.'"'; |
$key.'="'.$Apache::inputtags::params{$key}.'"'; |
} |
} |
if ($$tagstack[-1] eq 'formulahint') { |
if ($$tagstack[-1] eq 'formulahint') { |
$expression.=';my $type="fml";'; |
$expression.=';my $__LC__type="fml";'; |
} elsif ($$tagstack[-1] eq 'numericalhint') { |
} elsif ($$tagstack[-1] eq 'numericalhint') { |
$expression.=';my $type="float";'; |
$expression.=';my $__LC__type="float";'; |
} |
} |
$expression.="');"; |
$expression.="');"; |
my @answer=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval); |
my @answer=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval); |
&Apache::lonxml::debug('answer is'.join(':',@answer)); |
&Apache::lonxml::debug('answer is'.join(':',@answer)); |
@{$safeeval->varglob('CAPARESPONSE_CHECK_LIST_answer')}=@answer; |
@{$safeeval->varglob('CAPARESPONSE_CHECK_LIST_answer')}=@answer; |
|
|
$result = &Apache::run::run($expression,$safeeval); |
($result,my @msgs) = &Apache::run::run($expression,$safeeval); |
|
&Apache::lonxml::debug('msgs are'.join(':',@msgs)); |
&Apache::lonxml::debug("$expression:result:$result:$Apache::lonxml::curdepth"); |
&Apache::lonxml::debug("$expression:result:$result:$Apache::lonxml::curdepth"); |
my ($awards) = split /:/ , $result; |
my ($awards)=split(/:/,$result); |
my ($ad) = &Apache::inputtags::finalizeawards(split /,/ , $awards); |
my (@awards) = split(/,/,$awards); |
|
my ($ad, $msg) = &Apache::inputtags::finalizeawards(\@awards,\@msgs); |
if ($ad eq 'EXACT_ANS' || $ad eq 'APPROX_ANS') { push (@Apache::hint::which,$name); } |
if ($ad eq 'EXACT_ANS' || $ad eq 'APPROX_ANS') { push (@Apache::hint::which,$name); } |
$result=''; |
$result=''; |
} elsif ($target eq 'meta') { |
} elsif ($target eq 'meta') { |