|
version 1.231, 2008/09/09 13:56:49
|
version 1.232, 2008/09/12 09:56:10
|
|
Line 447 sub check_submission {
|
Line 447 sub check_submission {
|
| use Time::HiRes; |
use Time::HiRes; |
| my $t0 = [Time::HiRes::gettimeofday()]; |
my $t0 = [Time::HiRes::gettimeofday()]; |
| my ($result,@msgs) = |
my ($result,@msgs) = |
| &Apache::run::run("&caparesponse_check_list()",$safeeval); |
&Apache::run::run("&caparesponse_check_list($tag)",$safeeval); |
| &Apache::lonxml::debug("checking $name $result with $response took ".&Time::HiRes::tv_interval($t0)); |
&Apache::lonxml::debug("checking $name $result with $response took ".&Time::HiRes::tv_interval($t0)); |
| &Apache::lonxml::debug('msgs are '.join(':',@msgs)); |
&Apache::lonxml::debug('msgs are '.join(':',@msgs)); |
| my ($awards)=split(/:/,$result); |
my ($awards)=split(/:/,$result); |
|
Line 1167 sub end_stringresponse {
|
Line 1167 sub end_stringresponse {
|
| foreach my $name (keys(%answer)) { |
foreach my $name (keys(%answer)) { |
| &Apache::lonxml::debug(" doing $name with ".join(':',@{ $answer{$name}{'answers'} })); |
&Apache::lonxml::debug(" doing $name with ".join(':',@{ $answer{$name}{'answers'} })); |
| ${$safeeval->varglob('LONCAPA::CAPAresponse_answer')}=dclone($answer{$name}); |
${$safeeval->varglob('LONCAPA::CAPAresponse_answer')}=dclone($answer{$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 caparesponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework / caparesponse