From: Sven Schöling <s.schoeling@linet-services.de>
Date: Fri, 23 Oct 2009 13:23:56 +0000 (+0200)
Subject: print_options: fieses refkonstrukt umgeschrieben.
X-Git-Tag: release-2.6.1beta1~166
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=dc3d3e707934cd1f26bdc81b8b436f59156b8cc8;p=kivitendo-erp.git

print_options: fieses refkonstrukt umgeschrieben.
---

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 6e18b5e2b..b796a7b10 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -1193,10 +1193,17 @@ sub print_options {
     map { opthash($_->{id}, ($_->{id} eq $form->{printer_id} ? 'selected' : ''), $_->{printer_description}) } +{}, @{ $form->{printers} }
       if ((ref $form->{printers} eq 'ARRAY') && scalar @{ $form->{printers } });
 
-  {
-    no strict 'refs';
-    @SELECTS = map { sname => lc $_, DATA => \@$_, show => !$options{"hide_" . lc($_)} && scalar @$_ }, qw(FORMNAME LANGUAGE_ID FORMAT SENDMODE MEDIA PRINTER_ID);
-  }
+  @SELECTS = map {
+    sname => $_->[1],
+    DATA  => $_->[0],
+    show  => !$options{"hide_" . $_->[1]} && scalar @{ $_->[0] }
+  },
+  [ \@FORMNAME,    'formname',    ],
+  [ \@LANGUAGE_ID, 'language_id', ],
+  [ \@FORMAT,      'format',      ],
+  [ \@SENDMODE,    'sendmode',    ],
+  [ \@MEDIA,       'media',       ],
+  [ \@PRINTER_ID,  'printer_id',  ];
 
   my %dont_display_groupitems = (
     'dunning' => 1,