version 1.308, 2012/09/10 09:50:57
|
version 1.309, 2012/09/14 11:23:58
|
Line 253 sub start_textfield {
|
Line 253 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 $TeXwidth=$width_of_box/80; |
my $fieldname = $env{'request.symb'}. |
$result = '\vskip 1 mm \fbox{\fbox{\parbox{'.$TeXwidth.'\textwidth-5mm}{'; |
'&part_'. $Apache::inputtags::part. |
for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';} |
'&textresponse'. |
$result.='}}}\vskip 2 mm '; |
'&HWVAL_' . $Apache::inputtags::response['-1']; |
|
$result.='\TextField[name='.$fieldname.',multiline=true,height=6\baselineskip,width=270,borderwidth=0,backgroundcolor={.85 |
|
.85 .85}]\\'; |
} |
} |
} |
} |
return $result; |
return $result; |