|
version 1.507, 2010/03/21 18:32:02
|
version 1.509, 2010/06/05 19:37:01
|
|
Line 476 sub inner_xmlparse {
|
Line 476 sub inner_xmlparse {
|
| } |
} |
| if (($ENV{'QUERY_STRING'}) && ($target eq 'web')) { |
if (($ENV{'QUERY_STRING'}) && ($target eq 'web')) { |
| $finaloutput=&afterburn($finaloutput); |
$finaloutput=&afterburn($finaloutput); |
| |
} |
| |
if ($target eq 'modified') { |
| |
# if modfied, handle startpart and endpart |
| |
$finaloutput=~s/\<startpartmarker[^\>]*\>(.*)\<endpartmarker[^\>]*\>/<part>$1<\/part>/gs; |
| } |
} |
| return $finaloutput; |
return $finaloutput; |
| } |
} |
|
Line 2188 sub get_tag {
|
Line 2192 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; |
|
| } |
} |
| |
|
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonxml.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml