From 7e0b89ccfe26396fec60424bf9d1dc94d04e6970 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Stephan=20K=C3=B6hler?= <s.koehler@linet-services.de>
Date: Sat, 26 Nov 2005 14:54:17 +0000
Subject: [PATCH] Merge von 630 aus unstable: Fehler: <pagebreak> in Variablen
 funktionierte aufgrund falscher Arrayinitialisierung nur einmal pro Formular.
 Drei Zeilen Debug-Code entfernt.

---
 SL/Form.pm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/SL/Form.pm b/SL/Form.pm
index 215083830..0573ed9d0 100644
--- 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} =~
-- 
2.20.1