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

Diff for /loncom/homework/inputtags.pm between versions 1.312 and 1.313

version 1.312, 2012/12/19 17:35:34 version 1.313, 2012/12/28 16:12:07
Line 286  sub start_textfield { Line 286  sub start_textfield {
     for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}      for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}
     $result.='\strut \\\\\strut \\\\\strut \\\\\strut \\\\}}}';      $result.='\strut \\\\\strut \\\\\strut \\\\\strut \\\\}}}';
  } else {   } else {
     my $fieldname = $env{'request.symb'}.              if ($env{'form.pdfFormFields'} eq 'yes') {
                     '&part_'. $Apache::inputtags::part.                  my $fieldname = $env{'request.symb'}.
                     '&textresponse'.                                  '&part_'. $Apache::inputtags::part.
                     '&HWVAL_' . $Apache::inputtags::response['-1'];                                  '&textresponse'.
             $result.='\TextField[name='.$fieldname.',multiline=true,height=6\baselineskip,width=270,borderwidth=0,backgroundcolor={.85                                  '&HWVAL_' . $Apache::inputtags::response['-1'];
                 .85 .85}]\\';                  $result.='\TextField[name='.$fieldname.',multiline=true,height=6\baselineskip,width=270,borderwidth=0,backgroundcolor={.85 .85 .85}]\\';
               } else {
                   my $TeXwidth=$width_of_box/80;
                   $result = '\vskip 1 mm \fbox{\fbox{\parbox{'.$TeXwidth.'\textwidth-5mm}{';
                   for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}
                   $result.='}}}\vskip 2 mm ';
               }
  }   }
     }      }
     return $result;      return $result;
Removed from v.1.312  
changed lines
  Added in v.1.313

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