version 1.68, 2007/05/23 22:36:21
|
version 1.70, 2008/09/12 09:56:09
|
Line 160 sub end_numericalhint {
|
Line 160 sub end_numericalhint {
|
|
|
my $partid=$Apache::inputtags::part; |
my $partid=$Apache::inputtags::part; |
my $id=$Apache::inputtags::hint[-1]; |
my $id=$Apache::inputtags::hint[-1]; |
#id submissions occured under |
#id submissions occurred under |
my $submitid=$Apache::inputtags::response[-1]; |
my $submitid=$Apache::inputtags::response[-1]; |
|
|
my $response = $Apache::lonhomework::history{ |
my $response = $Apache::lonhomework::history{ |
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 395 sub end_stringhint {
|
Line 395 sub end_stringhint {
|
&Apache::response::setup_params('stringhint',$safeeval); |
&Apache::response::setup_params('stringhint',$safeeval); |
my $partid=$Apache::inputtags::part; |
my $partid=$Apache::inputtags::part; |
my $id=$Apache::inputtags::hint[-1]; |
my $id=$Apache::inputtags::hint[-1]; |
#id submissions occured under |
#id submissions occurred under |
my $submitid=$Apache::inputtags::response[-1]; |
my $submitid=$Apache::inputtags::response[-1]; |
my $response = $Apache::lonhomework::history{ |
my $response = $Apache::lonhomework::history{ |
"resource.$partid.$submitid.submission"}; |
"resource.$partid.$submitid.submission"}; |
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); |
Line 530 sub end_optionhint {
|
Line 530 sub end_optionhint {
|
my ($foilmatch,$conceptmatch)=(-1,-1); |
my ($foilmatch,$conceptmatch)=(-1,-1); |
my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval); |
my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval); |
my $partid=$Apache::inputtags::part; |
my $partid=$Apache::inputtags::part; |
#id submissions occured under |
#id submissions occurred under |
my $submitid=$Apache::inputtags::response[-1]; |
my $submitid=$Apache::inputtags::response[-1]; |
my $part_id="$partid.$submitid"; |
my $part_id="$partid.$submitid"; |
my %answer; |
my %answer; |
Line 610 sub end_radiobuttonhint {
|
Line 610 sub end_radiobuttonhint {
|
my $answer=&Apache::lonxml::get_param('answer',$parstack,$safeeval); |
my $answer=&Apache::lonxml::get_param('answer',$parstack,$safeeval); |
eval('@answer ='.$answer); |
eval('@answer ='.$answer); |
my $partid=$Apache::inputtags::part; |
my $partid=$Apache::inputtags::part; |
#id submissions occured under |
#id submissions occurred under |
my $submitid=$Apache::inputtags::response[-1]; |
my $submitid=$Apache::inputtags::response[-1]; |
my $part_id="$partid.$submitid"; |
my $part_id="$partid.$submitid"; |
my $response = $Apache::lonhomework::history{ |
my $response = $Apache::lonhomework::history{ |