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