From: Sven Schöling <s.schoeling@linet-services.de>
Date: Fri, 29 May 2015 12:54:19 +0000 (+0200)
Subject: DBUpgrade: Warnings in Tests unterdrücken
X-Git-Tag: release-3.3.0beta~75
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=56e89ac4691e47f109d49b8720343476263fd73f;p=kivitendo-erp.git

DBUpgrade: Warnings in Tests unterdrücken
---

diff --git a/sql/Pg-upgrade2/currencies.pl b/sql/Pg-upgrade2/currencies.pl
index e1b8d9c9b..30f779537 100644
--- a/sql/Pg-upgrade2/currencies.pl
+++ b/sql/Pg-upgrade2/currencies.pl
@@ -20,7 +20,7 @@ sub run {
     print_no_default_currency();
     return 2;
   } else {
-    if (length($main::form->{defaultcurrency}) == 0){
+    if (!defined $::form->{defaultcurrency} || length($main::form->{defaultcurrency}) == 0){
       $main::form->{defaultcurrency} = (split m/:/, $currencies)[0];
     }
   }