From: Sven Schöling <s.schoeling@linet-services.de>
Date: Tue, 20 Jul 2010 09:22:25 +0000 (+0200)
Subject: Zwei Funktionen, die als erstes Argument myconfig erwarten auf \%::myconfig defaulted.
X-Git-Tag: release-2.6.2beta1~275
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/commitdiff_plain/f88cdcc7704de933a34bdf477a072db89e70ccf4

Zwei Funktionen, die als erstes Argument myconfig erwarten auf \%::myconfig defaulted.

Conflicts:

	SL/Form.pm
---

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);