|
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); |
![[BACK]](/icons/back.gif){kind=icon}
Return to hint.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework