Revision e62861f7
Von Moritz Bunkus vor etwa 7 Jahren hinzugefügt
| SL/Helper/PrintOptions.pm | ||
|---|---|---|
| 18 | 18 |
sub get_print_options {
|
| 19 | 19 |
my ($class, %params) = @_; |
| 20 | 20 |
|
| 21 |
no warnings 'once'; |
|
| 22 |
|
|
| 21 | 23 |
my $form = $params{form} || $::form;
|
| 22 | 24 |
my $myconfig = $params{myconfig} || \%::myconfig;
|
| 23 | 25 |
my $locale = $params{locale} || $::locale;
|
| 24 | 26 |
my $options = $params{options};
|
| 25 | 27 |
|
| 28 |
use warnings 'once'; |
|
| 29 |
|
|
| 26 | 30 |
my $prefix = $options->{dialog_name_prefix} || '';
|
| 27 | 31 |
|
| 28 | 32 |
# names 3 parameters and returns a hashref, for use in templates |
Auch abrufbar als: Unified diff
PrintOptions: keine Warnungen wegen einmaliger Verwendung bekannter Variablen