1: # The LearningOnline Network with CAPA
2: # caparesponse definition
3:
4: package Apache::caparesponse;
5: use strict;
6: use capa;
7:
8: sub BEGIN {
9: &Apache::lonxml::register('Apache::caparesponse',('caparesponse','numericalresponse'));
10: }
11:
12: $Apache::caparesponse::result='';
13: sub start_caparesponse {
14: my ($target,$token,$parstack,$parser,$safeeval)=@_;
15: my $id = &Apache::response::start_response($parstack,$safeeval);
16: return '';
17: }
18:
19: sub end_caparesponse {
20: my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
21: my $result = '';
22: if ( $target eq 'grade' ) {
23: if ( defined $ENV{'form.submit'}) {
24: $Apache::caparesponse::result='';
25: $safeeval->share_from('capa',['&caparesponse_capa_check_answer']);
26: my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};
27: if ( $response =~ /[^\s]/) {
28: #check_for_previous($response,$id,$response);
29: $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].submission"}=$response;
30: &Apache::lonxml::debug("submitted a $response<br>\n");
31: &Apache::lonxml::debug($$parstack[$#$parstack] . "\n<br>");
32: my $expression="&caparesponse_check('".$response."','".
33: $$parstack[$#$parstack].
34: ';my $tol="'.$Apache::inputtags::params{'tol'}.'"'.
35: ';my $sig="'.$Apache::inputtags::params{'sig'}.'"'.
36: "');";
37: $result = &Apache::run::run($expression,$safeeval);
38: my ($ad) = split /:/ , $result;
39: $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].awarddetail"}=$ad;
40: &Apache::lonxml::debug("$expression");
41: &Apache::lonxml::debug("\n<br>result:$Apache::caparesponse::result:$result:$Apache::lonxml::curdepth<br>\n");
42: }
43: }
44: } else {
45: #$result .= "The correct answer is ".&Apache::run::run("{$$parstack['-1'];".'return $answer}',$safeeval)."\n";
46: }
47: #Apache::lonxml::debug("\n<br>\nreal end caparesponse<br>\n");
48: &Apache::response::end_response;
49: return $result;
50: }
51:
52: sub start_numericalresponse {
53: }
54:
55: sub end_numericalresponse {
56: }
57:
58: 1;
59: __END__
60:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>