Annotation of loncom/homework/inputtags.pm, revision 1.3
1.1 albertel 1: # The LearningOnline Network with CAPA
2: # input definitons
3:
4: package Apache::inputtags;
5: use strict;
6:
7: sub BEGIN {
8: &Apache::lonxml::register('Apache::inputtags',('textline','answergroup'));
9: }
10:
11: sub initialize_inputtags {
12: $Apache::inputtags::curvalue=0;
13: }
14:
15: sub start_textline {
16: my ($target,$token,$parstack,$parser,$safeeval)=@_;
17: my $result = "";
18: $Apache::inputtags::curvalue++;
19: if ($target eq 'web') {
20: $result= '<input name="HWVAL'.$Apache::inputtags::curvalue.'" value="">';
21: }
22: return $result;
23: }
24:
25: sub end_textline {
26: my ($target,$token,$parstack,$parser,$safeeval)=@_;
27: }
28:
29: sub start_answergroup {
30: }
31:
32: sub end_answergroup {
1.2 albertel 33: my ($target,$token,$parstack,$parser,$safeeval)=@_;
34: if ( $target == 'web' ) {
1.3 ! albertel 35: return '<input type="submit" value="Submit All Answers">';
1.2 albertel 36: }
1.1 albertel 37: }
38:
39: 1;
40: __END__
41:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>