version 1.507, 2010/03/21 18:32:02
|
version 1.508, 2010/05/03 14:43:07
|
Line 2188 sub get_tag {
|
Line 2188 sub get_tag {
|
|
|
=pod |
=pod |
|
|
=item &print_pdf_radiobutton(fieldname, value, text) |
=item &print_pdf_radiobutton(fieldname, value) |
|
|
Returns a latexline to generate a PDF-Form-Radiobutton with Text. |
Returns a latexline to generate a PDF-Form-Radiobutton. |
|
Note: Radiobuttons with equal names are automaticly grouped |
|
in a selection-group. |
|
|
$fieldname: PDF internalname of the radiobutton |
$fieldname: PDF internalname of the radiobutton(group) |
$value: Value of radiobutton (read when dumping the PDF data) |
$value: Value of radiobutton |
$text: Text on the rightside of the radiobutton |
|
|
|
=cut |
=cut |
sub print_pdf_radiobutton { |
sub print_pdf_radiobutton { |
my $result = ''; |
my ($fieldname, $value) = @_; |
my ($fieldName, $value, $text) = @_; |
return '\radioButton[\symbolchoice{circle}]{' |
$result .= '\begin{tabularx}{\textwidth}{p{0cm}X}'."\n"; |
.$fieldname.'}{10bp}{10bp}{'.$value.'}'; |
$result .= '\radioButton[\symbolchoice{circle}]{'. |
|
$fieldName.'}{10bp}{10bp}{'.$value.'}&'.$text."\n"; |
|
$result .= '\end{tabularx}' . "\n"; |
|
$result .= '\hspace{2mm}' . "\n"; |
|
return $result; |
|
} |
} |
|
|
|
|