Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

-started work on web target for homework tags
-lonhomework kinda works

    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: