PrintOptions: keine Warnungen wegen einmaliger Verwendung bekannter Variablen

diff --git a/SL/Helper/PrintOptions.pm b/SL/Helper/PrintOptions.pm
index a4e1f0e..164a5c3 100644 (file)
--- 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