Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Annotation of loncom/homework/inputtags.pm, revision 1.5

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') {
1.5     ! albertel   20:     $result= '<input name="'.$ENV{'form.request.prefix'}.'HWVAL'.$Apache::inputtags::curvalue.'" value="">';
1.1       albertel   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.4       albertel   35:     return '<input type="submit" name="'.$ENV{'form.request.prefix'}.'submit" value="Submit All Answers">';
1.2       albertel   36:   }
1.1       albertel   37: }
                     38: 
                     39: 1;
                     40: __END__
                     41: