Annotation of loncom/homework/inputtags.pm, revision 1.1
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 {
! 33: return '<input type="submit" value="Submit All Answers"';
! 34: }
! 35:
! 36: 1;
! 37: __END__
! 38:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>