From f88cdcc7704de933a34bdf477a072db89e70ccf4 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Tue, 20 Jul 2010 11:22:25 +0200 Subject: [PATCH] Zwei Funktionen, die als erstes Argument myconfig erwarten auf \%::myconfig defaulted. Conflicts: SL/Form.pm --- SL/Form.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/SL/Form.pm b/SL/Form.pm index a6cb9da25..5f5cd72b5 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -1767,8 +1767,9 @@ sub check_exchangerate { sub get_all_currencies { $main::lxdebug->enter_sub(); - my ($self, $myconfig) = @_; - my $dbh = $self->get_standard_dbh($myconfig); + my $self = shift; + my $myconfig = shift || \%::myconfig; + my $dbh = $self->get_standard_dbh($myconfig); my $query = qq|SELECT curr FROM defaults|; @@ -3015,8 +3016,8 @@ sub lastname_used { sub current_date { $main::lxdebug->enter_sub(); - my $self = shift; - my $myconfig = shift || \%::myconfig; + my $self = shift; + my $myconfig = shift || \%::myconfig; my ($thisdate, $days) = @_; my $dbh = $self->get_standard_dbh($myconfig); -- 2.20.1