X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=sql%2FPg-upgrade2%2Fcurrencies.pl;h=30f779537a47911efec1d68d3428d9f2dfe0343a;hb=1d99e3e9537f75342a9f20f1e89a3e8cb4bb5444;hp=e1b8d9c9b219015fedab1bc46f7e1d3930999cf9;hpb=bfdfc9eecd2ea922782f4e1b179b08370b41f2de;p=kivitendo-erp.git

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