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: sub start_caparesponse {
13: my ($target,$token,$parstack,$parser,$safeeval)=@_;
14: my $id = &Apache::response::start_response($parstack,$safeeval);
15: return '';
16: }
17:
18: sub end_caparesponse {
19: my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
20: my $result = '';
21: if ( $target eq 'grade' ) {
22: if ( defined $ENV{'form.submit'}) {
23: $safeeval->share_from('capa',['&caparesponse_capa_check_answer']);
24: my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};
25: if ( $response =~ /[^\s]/) {
26: my $previous= &check_for_previous($response,$id,$response);
27: if ( $previous ) {
28: $result = 'PREVIOUSLY_USED';
29: } else {
30: $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].submission"}=$response;
31: &Apache::lonxml::debug("submitted a $response<br>\n");
32: &Apache::lonxml::debug($$parstack[$#$parstack] . "\n<br>");
33: my $expression="&caparesponse_check('".$response."','".
34: $$parstack[$#$parstack].
35: ';my $tol="'.$Apache::inputtags::params{'tol'}.'"'.
36: ';my $sig="'.$Apache::inputtags::params{'sig'}.'"'.
37: "');";
38: $result = &Apache::run::run($expression,$safeeval);
39: my ($ad) = split /:/ , $result;
40: $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].awarddetail"}=$ad;
41: &Apache::lonxml::debug("$expression");
42: &Apache::lonxml::debug("\n<br>result:$result:$Apache::lonxml::curdepth<br>\n");
43: }
44: }
45: }
46: } else {
47: #$result .= "The correct answer is ".&Apache::run::run("{$$parstack['-1'];".'return $answer}',$safeeval)."\n";
48: }
49: #Apache::lonxml::debug("\n<br>\nreal end caparesponse<br>\n");
50: &Apache::response::end_response;
51: return $result;
52: }
53:
54: sub start_numericalresponse {
55: my ($target,$token,$parstack,$parser,$safeeval)=@_;
56: my $id = &Apache::response::start_response($parstack,$safeeval);
57: return '';
58: }
59:
60: sub end_numericalresponse {
61: my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
62: my $result = '';
63: if ( $target eq 'grade' ) {
64: if ( defined $ENV{'form.submit'}) {
65: $safeeval->share_from('capa',['&caparesponse_capa_check_answer']);
66: my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};
67: if ( $response =~ /[^\s]/) {
68: my $previous= &check_for_previous($response,$id,$response);
69: if ( $previous ) {
70: $result = 'PREVIOUSLY_USED';
71: } else {
72: $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].submission"}=$response;
73: &Apache::lonxml::debug("submitted a $response<br>\n");
74: &Apache::lonxml::debug($$parstack[$#$parstack] . "\n<br>");
75: my $expression="&caparesponse_check('".$response."','".
76: $$parstack[$#$parstack].
77: ';my $tol="'.$Apache::inputtags::params{'tol'}.'"'.
78: ';my $sig="'.$Apache::inputtags::params{'sig'}.'"'.
79: "');";
80: $result = &Apache::run::run($expression,$safeeval);
81: my ($ad) = split /:/ , $result;
82: $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].awarddetail"}=$ad;
83: &Apache::lonxml::debug("$expression");
84: &Apache::lonxml::debug("\n<br>result:$Apache::caparesponse::result:$result:$Apache::lonxml::curdepth<br>\n");
85: }
86: }
87: }
88: }
89: &Apache::response::end_response;
90: return $result;
91: }
92:
93: 1;
94: __END__
95:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>