# The LearningOnline Network with CAPA
# caparesponse definition
package Apache::caparesponse;
use strict;
use capa;
sub BEGIN {
&Apache::lonxml::register('Apache::caparesponse',('caparesponse'));
}
$Apache::caparesponse::result='';
sub start_caparesponse {
my $envkey;
#foreach $envkey (sort keys %ENV) {
# Apache::lonxml::debug("$envkey ---- $ENV{$envkey}
");
#}
#Apache::lonxml::debug("\n
\nreal caparesponse
\n");
}
sub end_caparesponse {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
if ( defined $ENV{'form.'.$ENV{'form.request.prefix'}.'submit'}) {
$Apache::caparesponse::result='';
$safeeval->share_from('capa',['&caparesponse_capa_check_answer']);
my $response = $ENV{'form.'.$ENV{'form.request.prefix'}.'HWVAL'.$Apache::inputtags::curvalue};
&Apache::lonxml::debug("submitted a $response
\n");
&Apache::lonxml::debug($$parstack[$#$parstack] . "\n
");
my $expression="&caparesponse_check('".$response."','".$$parstack[$#$parstack]."');";
my $result = &Apache::run::run($expression,$safeeval);
&Apache::lonxml::debug("\n
result:$Apache::caparesponse::result:$result
\n");
} else {
#return "The correct answer is ".&Apache::run::run("{$$parstack['-1'];".'return $answer}',$safeeval)."\n";
}
#Apache::lonxml::debug("\n
\nreal end caparesponse
\n");
return '';
}
1;
__END__