Revision 1084d82b
Von Moritz Bunkus vor mehr als 19 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
map { $self->{$_} =~ s/$key/$replace{$format}{$key}/g; } @fields;
|
||
|
}
|
||
|
|
||
|
# Allow some HTML markup to be converted into the output format's
|
||
|
# corresponding markup code, e.g. bold or italic.
|
||
|
if ('html' eq $format) {
|
||
|
my @markup_replace = ('b', 'i', 's', 'u');
|
||
|
|
||
|
foreach my $key (@markup_replace) {
|
||
|
map({ $self->{$_} =~ s/\<(\/?)${key}\>/<$1${key}>/g } @fields);
|
||
|
}
|
||
|
|
||
|
} elsif ('tex' eq $format) {
|
||
|
my %markup_replace = ('b' => 'textbf',
|
||
|
'i' => 'textit',
|
||
|
'u' => 'underline');
|
||
|
|
||
|
foreach my $field (@fields) {
|
||
|
if ($field =~ /descrip/) {
|
||
|
print(STDERR "QFT: ${field}: " . $self->{$field} . "\n");
|
||
|
}
|
||
|
foreach my $key (keys(%markup_replace)) {
|
||
|
my $new = $markup_replace{$key};
|
||
|
$self->{$field} =~
|
||
|
s/\$\<\$${key}\$\>\$(.*?)\$<\$\/${key}\$>\$/\\${new}\{$1\}/gi;
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
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).