version 1.69, 2008/09/11 14:47:17
|
version 1.70, 2008/09/12 09:56:09
|
Line 194 sub end_numericalhint {
|
Line 194 sub end_numericalhint {
|
dclone($answer{$ans_name}); |
dclone($answer{$ans_name}); |
&Apache::caparesponse::setup_capa_response($args_ref,$response); |
&Apache::caparesponse::setup_capa_response($args_ref,$response); |
my ($result,@msgs) = |
my ($result,@msgs) = |
&Apache::run::run("&caparesponse_check_list()",$safeeval); |
&Apache::run::run("&caparesponse_check_list($$tagstack[-1])",$safeeval); |
&Apache::lonxml::debug("checking $ans_name $result with $response"); |
&Apache::lonxml::debug("checking $ans_name $result with $response"); |
&Apache::lonxml::debug('msgs are '.join(':',@msgs)); |
&Apache::lonxml::debug('msgs are '.join(':',@msgs)); |
my ($awards)=split(/:/,$result); |
my ($awards)=split(/:/,$result); |
Line 428 sub end_stringhint {
|
Line 428 sub end_stringhint {
|
foreach my $ans_name (keys(%answer)) { |
foreach my $ans_name (keys(%answer)) { |
&Apache::lonxml::debug(" doing $ans_name with ".join(':',@{ $answer{$ans_name}{'answers'} })); |
&Apache::lonxml::debug(" doing $ans_name with ".join(':',@{ $answer{$ans_name}{'answers'} })); |
${$safeeval->varglob('LONCAPA::CAPAresponse_answer')}=dclone($answer{$ans_name}); |
${$safeeval->varglob('LONCAPA::CAPAresponse_answer')}=dclone($answer{$ans_name}); |
my ($result, @msgs)=&Apache::run::run("&caparesponse_check_list()",$safeeval); |
my ($result, @msgs)=&Apache::run::run("&caparesponse_check_list($$tagstack[-1])",$safeeval); |
&Apache::lonxml::debug('msgs are'.join(':',@msgs)); |
&Apache::lonxml::debug('msgs are'.join(':',@msgs)); |
my ($awards) = split(/:/,$result); |
my ($awards) = split(/:/,$result); |
my (@awards) = split(/,/,$awards); |
my (@awards) = split(/,/,$awards); |