Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 180163aa

Von Sven Schöling vor mehr als 8 Jahren hinzugefügt

  • ID 180163aaf13906eedc96390ff6c6209bdfa8623d
  • Vorgänger 53cbf0de
  • Nachfolger 50119c7a

DBUpgrade: temporäre dbh Behandlung

Unterschiede anzeigen:

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