Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

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: