From 56e89ac4691e47f109d49b8720343476263fd73f Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Fri, 29 May 2015 14:54:19 +0200
Subject: [PATCH] =?utf8?q?DBUpgrade:=20Warnings=20in=20Tests=20unterdr?=
 =?utf8?q?=C3=BCcken?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 sql/Pg-upgrade2/currencies.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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];
     }
   }
-- 
2.20.1