Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

- changed Apache::inputtags::part from @ to $, parts are not allowed to nest

    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',('textarea','textline','answergroup','datasubmission'));
    9: }
   10: 
   11: 
   12: sub initialize_inputtags {
   13:   $Apache::inputtags::curvalue=0;
   14:   @Apache::inputtags::input=();
   15:   @Apache::inputtags::response=();
   16:   @Apache::inputtags::answergroup=();
   17:   $Apache::inputtags::part='';
   18:   %Apache::inputtags::params=();
   19: }
   20: 
   21: sub start_textarea {
   22:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
   23:   my $result = "";
   24:   $Apache::inputtags::curvalue++;
   25:   if ($target eq 'web') {
   26:     $result= '<textarea name="HWVAL'.$Apache::inputtags::curvalue.'" value="">';
   27:   }
   28:   return $result;
   29: }
   30: 
   31: sub end_textarea {
   32:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
   33:   return "</textarea>";
   34: }
   35: 
   36: sub start_textline {
   37:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
   38:   my $result = "";
   39:   $Apache::inputtags::curvalue++;
   40:   my $args ='';
   41:   if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
   42:   my $size = &Apache::run::run("{$args;".'return $size}',$safeeval);
   43:   if ($size eq '') { $size=20; }
   44:   if ($target eq 'web') {
   45:     $result= '<input type="text" name="HWVAL'.$Apache::inputtags::curvalue.'" value="" size="'.$size.'">';
   46:   }
   47:   return $result;
   48: }
   49: 
   50: sub end_textline {
   51:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
   52:   return "";
   53: }
   54: 
   55: sub start_answergroup {
   56:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
   57:   my $args ='';
   58:   if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
   59:   my $id = &Apache::run::run("{$args;".'return $id}',$safeeval);
   60:   push (@Apache::inputtags::answergroup,$id);
   61:   if ($target == 'web') {
   62:     
   63:   }
   64:   return '';
   65: }
   66: 
   67: sub end_answergroup {
   68:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
   69:   my $args ='';
   70:   if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
   71:   my $id = &Apache::run::run("{$args;".'return $id}',$safeeval);
   72:   push (@Apache::inputtags::answergroup,$id);
   73:   my $result='';
   74:   my $button='<input type="submit" name="submit" value="Submit All Answers">';
   75:   my $showbutton='1';
   76:   my $usedtry='1';
   77:   my $response='';
   78:   if ( $target == 'web' ) {
   79:     if ( defined $ENV{'form.submit'}) {
   80:     }
   81:     if ($showbutton > 0) { $result.=$button }
   82:   }
   83:   pop @Apache::inputtags::answergroup;
   84:   return $result;
   85: }
   86: 
   87: 
   88: sub start_datasubmission {
   89: }
   90: 
   91: sub end_datasubmission {
   92:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
   93:   if ( $target == 'web' ) {
   94:     return '<input type="submit" name="submit" value="Submit All Data">';
   95:   }
   96: }
   97: 
   98: 1;
   99: __END__
  100: