Revision 85f2addd
Von Stephan Köhler vor etwa 19 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1035 | 1035 |
map { $self->{$_} =~ s/$key/$replace{$format}{$key}/g; } @fields;
|
| 1036 | 1036 |
} |
| 1037 | 1037 |
|
| 1038 |
# Allow some HTML markup to be converted into the output format's |
|
| 1039 |
# corresponding markup code, e.g. bold or italic. |
|
| 1040 |
if ('html' eq $format) {
|
|
| 1041 |
my @markup_replace = ('b', 'i', 's', 'u');
|
|
| 1042 |
|
|
| 1043 |
foreach my $key (@markup_replace) {
|
|
| 1044 |
map({ $self->{$_} =~ s/\<(\/?)${key}\>/<$1${key}>/g } @fields);
|
|
| 1045 |
} |
|
| 1046 |
|
|
| 1047 |
} elsif ('tex' eq $format) {
|
|
| 1048 |
my %markup_replace = ('b' => 'textbf',
|
|
| 1049 |
'i' => 'textit', |
|
| 1050 |
'u' => 'underline'); |
|
| 1051 |
|
|
| 1052 |
foreach my $field (@fields) {
|
|
| 1053 |
if ($field =~ /descrip/) {
|
|
| 1054 |
print(STDERR "QFT: ${field}: " . $self->{$field} . "\n");
|
|
| 1055 |
} |
|
| 1056 |
foreach my $key (keys(%markup_replace)) {
|
|
| 1057 |
my $new = $markup_replace{$key};
|
|
| 1058 |
$self->{$field} =~
|
|
| 1059 |
s/\$\<\$${key}\$\>\$(.*?)\$<\$\/${key}\$>\$/\\${new}\{$1\}/gi;
|
|
| 1060 |
} |
|
| 1061 |
} |
|
| 1062 |
} |
|
| 1063 |
|
|
| 1038 | 1064 |
$main::lxdebug->leave_sub(); |
| 1039 | 1065 |
} |
| 1040 | 1066 |
|
Auch abrufbar als: Unified diff
Merge von 588 aus unstable:
HTML-Markup zulassen und in das entsprechende Ausgabeformat (HTML oder LaTeX) umsetzen. Unterstuetzt werden <b>...</b> (fett), <i>...</i> (
kursiv), <u>...</u> (unterstrichen) und nur fuer HTML <s>...</s> (durchgestrichen).