Merge von 630 aus unstable: Fehler: <pagebreak> in Variablen funktionierte aufgrund

falscher Arrayinitialisierung nur einmal pro Formular. Drei Zeilen Debug-Code entfernt.

diff --git a/SL/Form.pm b/SL/Form.pm
index 2150838..0573ed9 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1030,7 +1030,7 @@ sub format_string {
     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");
@@ -1100,9 +1100,6 @@ sub format_string {
                           '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} =~