Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

- uses env. prefix for submissions

    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="'.$ENV{'form.request.prefix'}.'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:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
   34:   if ( $target == 'web' ) {
   35:     return '<input type="submit" name="'.$ENV{'form.request.prefix'}.'submit" value="Submit All Answers">';
   36:   }
   37: }
   38: 
   39: 1;
   40: __END__
   41: