Revision 1a76210c
Von Moritz Bunkus vor mehr als 19 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
next unless ($self->{$field} =~ /\<pagebreak\>/);
|
||
|
$self->{$field} =~ s/\<pagebreak\>//g;
|
||
|
if ($field =~ /.*_(\d+)$/) {
|
||
|
if ($self->{"_forced_pagebreaks"}) {
|
||
|
if (!$self->{"_forced_pagebreaks"}) {
|
||
|
$self->{"_forced_pagebreaks"} = [];
|
||
|
}
|
||
|
push(@{ $self->{"_forced_pagebreaks"} }, "$1");
|
||
| ... | ... | |
|
'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} =~
|
||
Auch abrufbar als: Unified diff
Fehler: <pagebreak> in Variablen funktionierte aufgrund falscher Arrayinitialisierung nur einmal pro Formular. Drei Zeilen Debug-Code entfernt.