Arrays in $form initialisieren, bevor sie benutzt werden.

diff --git a/SL/AM.pm b/SL/AM.pm
index ab8dc147a8566f08144d207fe2a8d562ef531936..fc7bb7378a3e3f88f93f5cb201d42de255fe85dd 100644 (file)
--- 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;
   }