|
version 1.310, 2012/09/24 10:34:19
|
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', |
| |
['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, |
| $safeeval,'rows','cols', |
$safeeval,'rows','cols', |
| 'addchars'); |
'addchars', 'spellcheck'); |
| if ($constructtag) { |
if ($constructtag) { |
| $result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
| } else { |
} else { |
|
Line 284 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; |
|
Line 453 sub start_textline {
|
Line 461 sub start_textline {
|
| 'addchars',$token,10); |
'addchars',$token,10); |
| $result.=&Apache::edit::select_arg('Readonly:','readonly', |
$result.=&Apache::edit::select_arg('Readonly:','readonly', |
| ['no','yes'],$token); |
['no','yes'],$token); |
| |
$result.=&Apache::edit::select_arg("Spellcheck for: ", 'spellcheck', |
| |
['none', 'en', 'de', 'fr'], $token); |
| $result.=&Apache::edit::end_row(); |
$result.=&Apache::edit::end_row(); |
| $result.=&Apache::edit::end_table(); |
$result.=&Apache::edit::end_table(); |
| } 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, |
| $safeeval,'size', |
$safeeval,'size', |
| 'addchars','readonly'); |
'addchars','readonly', 'spellcheck'); |
| if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } |
if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } |
| } elsif ($target eq 'tex' |
} elsif ($target eq 'tex' |
| && $Apache::lonhomework::type ne 'exam') { |
&& $Apache::lonhomework::type ne 'exam') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to inputtags.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework