Revision 180163aa
Von Sven Schöling vor mehr als 8 Jahren hinzugefügt
SL/DBUpgrade2.pm | ||
---|---|---|
$dbh->begin_work;
|
||
|
||
# setup dbup_ export vars & run script
|
||
my $old_dbh = SL::DB->client->dbh($dbh);
|
||
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(
|
||
... | ... | |
|
||
my $error = $EVAL_ERROR;
|
||
|
||
$::form->set_standard_dbh($old_dbh);
|
||
SL::DB->client->dbh($old_dbh);
|
||
|
||
$dbh->rollback if 1 != ($result // -1);
|
||
|
Auch abrufbar als: Unified diff
DBUpgrade: temporäre dbh Behandlung