X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDBUpgrade2.pm;h=5c8280b2c067555f47cb2e97f52a45e97dc5b783;hb=2b8804456d1d3ee249a70d98679ea3a934b25a39;hp=ede8501540dff0eed1de55afd225c9f2d0c8d705;hpb=180163aaf13906eedc96390ff6c6209bdfa8623d;p=kivitendo-erp.git diff --git a/SL/DBUpgrade2.pm b/SL/DBUpgrade2.pm index ede850154..5c8280b2c 100644 --- a/SL/DBUpgrade2.pm +++ b/SL/DBUpgrade2.pm @@ -243,8 +243,6 @@ sub process_perl_script { $dbh->begin_work; # setup dbup_ export vars & run script - my $old_dbh = SL::DB->client->dbh; - SL::DB->client->dbh($dbh); my %dbup_myconfig = map { ($_ => $::form->{$_}) } qw(dbname dbuser dbpasswd dbhost dbport dbconnect); my $result = eval { SL::DBUpgrade2::Base::execute_script( @@ -257,8 +255,6 @@ sub process_perl_script { my $error = $EVAL_ERROR; - SL::DB->client->dbh($old_dbh); - $dbh->rollback if 1 != ($result // -1); return $error if $self->{return_on_error} && (1 != ($result // -1));