From 1a76210c4ec6ce96c12aa5e3a3a2e66a84143089 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 16 Nov 2005 12:42:42 +0000
Subject: [PATCH] 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