X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/20a083051185f1ec54d8a1b40bd64744dacc8790..9caaa245e1bc3309a7d8f198228dbfd9d4555bee:/bin/mozilla/is.pl

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index 8c1249334..fef4a3edf 100644
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -371,7 +371,8 @@ sub form_header {
                                    "old_id" => \@old_project_ids },
                    "employees" => "ALL_SALESMEN");
 
-  my (%labels, @values);
+  my %labels;
+  my @values = (undef);
   foreach my $item (@{ $form->{"ALL_CONTACTS"} }) {
     push(@values, $item->{"cp_id"});
     $labels{$item->{"cp_id"}} = $item->{"cp_name"} .