From e62861f7943b1ff8fade85fcc39ff668bd3995ee Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Tue, 28 Feb 2017 11:31:54 +0100 Subject: [PATCH] PrintOptions: keine Warnungen wegen einmaliger Verwendung bekannter Variablen --- SL/Helper/PrintOptions.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/SL/Helper/PrintOptions.pm b/SL/Helper/PrintOptions.pm index a4e1f0ef5..164a5c39c 100644 --- a/SL/Helper/PrintOptions.pm +++ b/SL/Helper/PrintOptions.pm @@ -18,11 +18,15 @@ sub opthash { +{ value => shift, selected => shift, oname => shift } } sub get_print_options { my ($class, %params) = @_; + no warnings 'once'; + my $form = $params{form} || $::form; my $myconfig = $params{myconfig} || \%::myconfig; my $locale = $params{locale} || $::locale; my $options = $params{options}; + use warnings 'once'; + my $prefix = $options->{dialog_name_prefix} || ''; # names 3 parameters and returns a hashref, for use in templates -- 2.20.1