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

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

version 1.311, 2012/09/24 11:04:16 version 1.313, 2012/12/28 16:12:07
Line 266  sub start_textfield { Line 266  sub start_textfield {
  my $bodytext=&Apache::lonxml::get_all_text("/textfield",$parser,   my $bodytext=&Apache::lonxml::get_all_text("/textfield",$parser,
    $style);     $style);
  $result.=&Apache::edit::editfield($token->[1],$bodytext,'Text you want to appear by default:',80,2);   $result.=&Apache::edit::editfield($token->[1],$bodytext,'Text you want to appear by default:',80,2);
  $result .= &Apache::edit::select_arg('Spellcheck for; ', 'spellcheck',   $result .= &Apache::edit::select_arg('Spellcheck for:', 'spellcheck',
      ['none', 'en', 'de', 'fr'], $token);       ['none', 'en', 'de', 'fr'], $token);
     } elsif ($target eq 'modified') {      } elsif ($target eq 'modified') {
  my $constructtag=&Apache::edit::get_new_args($token,$parstack,   my $constructtag=&Apache::edit::get_new_args($token,$parstack,
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.311  
changed lines
  Added in v.1.313

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