X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a23454bb1b039a31b7f77710ff663fa9152d530c..5771d385e2f5d65ba0f3c260f52f20ef9af9b2c9:/sql/Pg-upgrade2/warehouse.pl

diff --git a/sql/Pg-upgrade2/warehouse.pl b/sql/Pg-upgrade2/warehouse.pl
index 3c9097176..6eebb2f7b 100644
--- a/sql/Pg-upgrade2/warehouse.pl
+++ b/sql/Pg-upgrade2/warehouse.pl
@@ -140,7 +140,7 @@ SQL
     print_question();
     return 2;
   } else {
-    if ($::form->{do_migrate} eq 'Y') {
+    if (defined $::form->{do_migrate} && $::form->{do_migrate} eq 'Y') {
       # if yes, both warehouse and bin must be given
       if (!$::form->{import_warehouse} || !$::form->{bin_default}) {
         print_question();
@@ -150,8 +150,8 @@ SQL
       $do_sql_migration = 1;
     }
   }
-  my $warehouse = $::form->{import_warehouse} ne '' ? $::form->{import_warehouse} : "Transfer";
-  my $bin       = $::form->{bin_default}      ne '' ? $::form->{bin_default}      : "1";
+  my $warehouse = defined $::form->{import_warehouse} && $::form->{import_warehouse} ne '' ? $::form->{import_warehouse} : "Transfer";
+  my $bin       = defined $::form->{bin_default}      && $::form->{bin_default}      ne '' ? $::form->{bin_default}      : "1";
 
   $warehouse    = $self->dbh->quote($warehouse);
   $bin          = $self->dbh->quote($bin);