Annotation of loncom/homework/inputtags.pm, revision 1.6
1.1 albertel 1: # The LearningOnline Network with CAPA
2: # input definitons
3:
4: package Apache::inputtags;
5: use strict;
6:
7: sub BEGIN {
1.6 ! albertel 8: &Apache::lonxml::register('Apache::inputtags',('textarea','textline','answergroup','datasubmission'));
1.1 albertel 9: }
10:
11: sub initialize_inputtags {
12: $Apache::inputtags::curvalue=0;
13: }
14:
1.6 ! albertel 15: sub start_textarea {
! 16: my ($target,$token,$parstack,$parser,$safeeval)=@_;
! 17: my $result = "";
! 18: $Apache::inputtags::curvalue++;
! 19: if ($target eq 'web') {
! 20: $result= '<textarea name="'.$ENV{'form.request.prefix'}.'HWVAL'.$Apache::inputtags::curvalue.'" value="">';
! 21: }
! 22: return $result;
! 23: }
! 24:
! 25: sub end_textarea {
! 26: my ($target,$token,$parstack,$parser,$safeeval)=@_;
! 27: return "</textarea>";
! 28: }
! 29:
1.1 albertel 30: sub start_textline {
31: my ($target,$token,$parstack,$parser,$safeeval)=@_;
32: my $result = "";
33: $Apache::inputtags::curvalue++;
1.6 ! albertel 34: my $args ='';
! 35: if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
! 36: my $size = &Apache::run::run("{$args;".'return $size}',$safeeval);
! 37: if ($size eq '') { $size=20; }
1.1 albertel 38: if ($target eq 'web') {
1.6 ! albertel 39: $result= '<input type="text" name="'.$ENV{'form.request.prefix'}.'HWVAL'.$Apache::inputtags::curvalue.'" value="" size="'.$size.'">';
1.1 albertel 40: }
41: return $result;
42: }
43:
44: sub end_textline {
45: my ($target,$token,$parstack,$parser,$safeeval)=@_;
1.6 ! albertel 46: return "";
1.1 albertel 47: }
48:
49: sub start_answergroup {
50: }
51:
52: sub end_answergroup {
1.2 albertel 53: my ($target,$token,$parstack,$parser,$safeeval)=@_;
54: if ( $target == 'web' ) {
1.4 albertel 55: return '<input type="submit" name="'.$ENV{'form.request.prefix'}.'submit" value="Submit All Answers">';
1.6 ! albertel 56: }
! 57: }
! 58:
! 59:
! 60: sub start_datasubmission {
! 61: }
! 62:
! 63: sub end_datasubmission {
! 64: my ($target,$token,$parstack,$parser,$safeeval)=@_;
! 65: if ( $target == 'web' ) {
! 66: return '<input type="submit" name="'.$ENV{'form.request.prefix'}.'submit" value="Submit All Data">';
1.2 albertel 67: }
1.1 albertel 68: }
69:
70: 1;
71: __END__
72:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>