Revision 1a76210c
Von Moritz Bunkus vor etwa 19 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1030 | 1030 |
next unless ($self->{$field} =~ /\<pagebreak\>/);
|
| 1031 | 1031 |
$self->{$field} =~ s/\<pagebreak\>//g;
|
| 1032 | 1032 |
if ($field =~ /.*_(\d+)$/) {
|
| 1033 |
if ($self->{"_forced_pagebreaks"}) {
|
|
| 1033 |
if (!$self->{"_forced_pagebreaks"}) {
|
|
| 1034 | 1034 |
$self->{"_forced_pagebreaks"} = [];
|
| 1035 | 1035 |
} |
| 1036 | 1036 |
push(@{ $self->{"_forced_pagebreaks"} }, "$1");
|
| ... | ... | |
| 1100 | 1100 |
'u' => 'underline'); |
| 1101 | 1101 |
|
| 1102 | 1102 |
foreach my $field (@fields) {
|
| 1103 |
if ($field =~ /descrip/) {
|
|
| 1104 |
print(STDERR "QFT: ${field}: " . $self->{$field} . "\n");
|
|
| 1105 |
} |
|
| 1106 | 1103 |
foreach my $key (keys(%markup_replace)) {
|
| 1107 | 1104 |
my $new = $markup_replace{$key};
|
| 1108 | 1105 |
$self->{$field} =~
|
Auch abrufbar als: Unified diff
Fehler: <pagebreak> in Variablen funktionierte aufgrund falscher Arrayinitialisierung nur einmal pro Formular. Drei Zeilen Debug-Code entfernt.