# 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('&caparesponse_capa_check_answer');
$safeeval->share('$Apache::caparesponse::result');
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];";
&Apache::run::run($expression,$safeeval);
&Apache::lonxml::debug("\n
result:$Apache::caparesponse::result:
\n");
}
#Apache::lonxml::debug("\n
\nreal end caparesponse
\n");
}
1;
__END__