From 9e89e92f5b0963f57da4e4840ad8d53408d7f823 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 30 Jan 2007 13:00:30 +0000
Subject: [PATCH] Arrays in $form initialisieren, bevor sie benutzt werden.

---
 SL/AM.pm | 1 +
 1 file changed, 1 insertion(+)

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;
   }
-- 
2.20.1