X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=sql%2FPg-upgrade2%2Fwarehouse.pl;h=6eebb2f7bdba6a52251909a7cb30f99564ec444b;hb=0d12df6dc721dcdbc81ca8db667cd644393bc5fc;hp=3c9097176f233eec5bd25a63199cde30450fdbd9;hpb=347f2cff58f8d798bb0fe52495fb09b4e08db036;p=kivitendo-erp.git 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);