From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 30 Jan 2007 13:00:30 +0000 (+0000)
Subject: Arrays in $form initialisieren, bevor sie benutzt werden.
X-Git-Tag: release-2.4.2~211
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=9e89e92f5b0963f57da4e4840ad8d53408d7f823;p=kivitendo-erp.git

Arrays in $form initialisieren, bevor sie benutzt werden.
---

diff --git a/SL/AM.pm b/SL/AM.pm
index ab8dc147a..fc7bb7378 100644
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -1166,6 +1166,7 @@ sub printer {
   $sth = $dbh->prepare($query);
   $sth->execute || $form->dberror($query);
 
+  $form->{"ALL"} = [];
   while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
     push @{ $form->{ALL} }, $ref;
   }