[BACK]Return to inputtags.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/inputtags.pm between versions 1.27 and 1.28

version 1.27, 2001/02/19 20:34:20 version 1.28, 2001/02/19 21:02:59
Line 1 Line 1
 # The LearningOnline Network with CAPA  # The LearningOnline Network with CAPA
 # input  definitons  # input  definitons
   # 2/19 Guy 
   
 package Apache::inputtags;  package Apache::inputtags;
 use strict;  use strict;
Line 63  sub start_textline { Line 64  sub start_textline {
     my $size = &Apache::run::run("{$args;".'return $size}',$safeeval);      my $size = &Apache::run::run("{$args;".'return $size}',$safeeval);
     if ($size eq '') { $size=20; }      if ($size eq '') { $size=20; }
     my $oldresponse = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].submission"};      my $oldresponse = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].submission"};
     $result= '<input type="text" name="HWVAL'.$Apache::inputtags::response['-1'].'" value="'.$oldresponse.'" size="'.$size.'">';      $result= '<input type="text" name="HWVAL'.$Apache::inputtags::response['-1'].'" value="'.$oldresponse.'" size="'.$size.'" />';
   }    }
   return $result;    return $result;
 }  }
Line 94  sub end_textline { Line 95  sub end_textline {
 #  my $id = &Apache::run::run("{$args;".'return $id}',$safeeval);  #  my $id = &Apache::run::run("{$args;".'return $id}',$safeeval);
 #  push (@Apache::inputtags::answergroup,$id);  #  push (@Apache::inputtags::answergroup,$id);
 #  my $result='';  #  my $result='';
 #  my $button='<input type="submit" name="submit" value="Submit All Answers">';  #  my $button='<input type="submit" name="submit" value="Submit All Answers" />';
 #  my $showbutton='1';  #  my $showbutton='1';
 #  my $usedtry='1';  #  my $usedtry='1';
 #  my $response='';  #  my $response='';
Line 114  sub start_datasubmission { Line 115  sub start_datasubmission {
 sub end_datasubmission {  sub end_datasubmission {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$parstack,$parser,$safeeval)=@_;
   if ( $target == 'web' ) {    if ( $target == 'web' ) {
     return '<input type="submit" name="submit" value="Submit All Data">';      return '<input type="submit" name="submit" value="Submit All Data" />';
   }    }
   return '';    return '';
 }  }
Removed from v.1.27  
changed lines
  Added in v.1.28

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>