Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

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

1.1       albertel    1: # The LearningOnline Network with CAPA
                      2: # input  definitons
                      3: 
                      4: package Apache::inputtags;
                      5: use strict;
                      6: 
                      7: sub BEGIN {
1.6     ! albertel    8:   &Apache::lonxml::register('Apache::inputtags',('textarea','textline','answergroup','datasubmission'));
1.1       albertel    9: }
                     10: 
                     11: sub initialize_inputtags {
                     12:   $Apache::inputtags::curvalue=0;
                     13: }
                     14: 
1.6     ! albertel   15: sub start_textarea {
        !            16:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
        !            17:   my $result = "";
        !            18:   $Apache::inputtags::curvalue++;
        !            19:   if ($target eq 'web') {
        !            20:     $result= '<textarea name="'.$ENV{'form.request.prefix'}.'HWVAL'.$Apache::inputtags::curvalue.'" value="">';
        !            21:   }
        !            22:   return $result;
        !            23: }
        !            24: 
        !            25: sub end_textarea {
        !            26:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
        !            27:   return "</textarea>";
        !            28: }
        !            29: 
1.1       albertel   30: sub start_textline {
                     31:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
                     32:   my $result = "";
                     33:   $Apache::inputtags::curvalue++;
1.6     ! albertel   34:   my $args ='';
        !            35:   if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
        !            36:   my $size = &Apache::run::run("{$args;".'return $size}',$safeeval);
        !            37:   if ($size eq '') { $size=20; }
1.1       albertel   38:   if ($target eq 'web') {
1.6     ! albertel   39:     $result= '<input type="text" name="'.$ENV{'form.request.prefix'}.'HWVAL'.$Apache::inputtags::curvalue.'" value="" size="'.$size.'">';
1.1       albertel   40:   }
                     41:   return $result;
                     42: }
                     43: 
                     44: sub end_textline {
                     45:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
1.6     ! albertel   46:   return "";
1.1       albertel   47: }
                     48: 
                     49: sub start_answergroup {
                     50: }
                     51: 
                     52: sub end_answergroup {
1.2       albertel   53:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
                     54:   if ( $target == 'web' ) {
1.4       albertel   55:     return '<input type="submit" name="'.$ENV{'form.request.prefix'}.'submit" value="Submit All Answers">';
1.6     ! albertel   56:   }
        !            57: }
        !            58: 
        !            59: 
        !            60: sub start_datasubmission {
        !            61: }
        !            62: 
        !            63: sub end_datasubmission {
        !            64:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
        !            65:   if ( $target == 'web' ) {
        !            66:     return '<input type="submit" name="'.$ENV{'form.request.prefix'}.'submit" value="Submit All Data">';
1.2       albertel   67:   }
1.1       albertel   68: }
                     69: 
                     70: 1;
                     71: __END__
                     72: