From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 11 Jan 2017 09:43:34 +0000 (+0100)
Subject: PrintOptions-Helfer: sub opthash Paket-lokal anstelle von sub-lokal
X-Git-Tag: release-3.5.4~1717
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=575f3ac727df48ba0ae5624e4de0ff0a7fd9f37f;p=kivitendo-erp.git

PrintOptions-Helfer: sub opthash Paket-lokal anstelle von sub-lokal

Wir nutzen Named-Sub-in-Named-Sub nie, daher auch hier
nicht. Ursprünglich war die Funktion in bin/mozilla/io.pl, da ergab es
noch Sinn, um den Funktionsnamensraum nicht zu überladen. Aber nach dem
Verschieben in ein eigenes Paket ist das nicht mehr nötig.
---

diff --git a/SL/Helper/PrintOptions.pm b/SL/Helper/PrintOptions.pm
index 7569ea687..a4e1f0ef5 100644
--- a/SL/Helper/PrintOptions.pm
+++ b/SL/Helper/PrintOptions.pm
@@ -4,6 +4,7 @@ use strict;
 
 use List::MoreUtils qw(any);
 
+sub opthash { +{ value => shift, selected => shift, oname => shift } }
 
 # generate the printing options displayed at the bottom of oe and is forms.
 # this function will attempt to guess what type of form is displayed, and will generate according options
@@ -25,7 +26,6 @@ sub get_print_options {
   my $prefix = $options->{dialog_name_prefix} || '';
 
   # names 3 parameters and returns a hashref, for use in templates
-  sub opthash { +{ value => shift, selected => shift, oname => shift } }
   my (@FORMNAME, @LANGUAGE_ID, @FORMAT, @SENDMODE, @MEDIA, @PRINTER_ID, @SELECTS) = ();
 
   # note: "||"-selection is only correct for values where "0" is _not_ a correct entry