PrintOptions: keine Warnungen wegen einmaliger Verwendung bekannter Variablen

[mfinanz.git] / SL / Helper / PrintOptions.pm

diff --git a/SL/Helper/PrintOptions.pm b/SL/Helper/PrintOptions.pm
index a4e1f0ef5373292c25d92e93f619dcb7302f0127..164a5c39c36769691f54565de8aa6b57896671c0 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) = @_;
 
 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};
 
   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
   my $prefix = $options->{dialog_name_prefix} || '';
 
   # names 3 parameters and returns a hashref, for use in templates