From 9d17c830e06c8b9a24af18b70c622a4fbc8d1b7a Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Mon, 29 Jul 2013 15:10:11 +0200 Subject: [PATCH] Perl-DB-Upgradescripte: nicht manuell Datenbankhandle committen --- sql/Pg-upgrade2/add_more_constraints_fibu_projekt_xplace.pl | 1 - sql/Pg-upgrade2/erzeugnisnummern.pl | 1 - sql/Pg-upgrade2/rundungsfehler_korrigieren_BUG1328.pl | 1 - 3 files changed, 3 deletions(-) diff --git a/sql/Pg-upgrade2/add_more_constraints_fibu_projekt_xplace.pl b/sql/Pg-upgrade2/add_more_constraints_fibu_projekt_xplace.pl index 2ed31f33b..187eea404 100644 --- a/sql/Pg-upgrade2/add_more_constraints_fibu_projekt_xplace.pl +++ b/sql/Pg-upgrade2/add_more_constraints_fibu_projekt_xplace.pl @@ -45,7 +45,6 @@ sub run { do_statement($::form,$sth,$query); $sth->finish(); } - $self->dbh ->commit(); return 1; } diff --git a/sql/Pg-upgrade2/erzeugnisnummern.pl b/sql/Pg-upgrade2/erzeugnisnummern.pl index 5c7f9a43d..ab561ee32 100644 --- a/sql/Pg-upgrade2/erzeugnisnummern.pl +++ b/sql/Pg-upgrade2/erzeugnisnummern.pl @@ -23,7 +23,6 @@ sub run { $update_query = qq|UPDATE parts SET partnumber = '| . $::form->{"partnumber_$i"} . qq|' WHERE id = | . $::form->{"partid_$i"}; $self->db_query($update_query); } - $self->dbh->commit(); } my $query = qq|SELECT id, partnumber, description, unit, notes, assembly, ean, inventory_accno_id, obsolete diff --git a/sql/Pg-upgrade2/rundungsfehler_korrigieren_BUG1328.pl b/sql/Pg-upgrade2/rundungsfehler_korrigieren_BUG1328.pl index 950e023d8..fb742b081 100644 --- a/sql/Pg-upgrade2/rundungsfehler_korrigieren_BUG1328.pl +++ b/sql/Pg-upgrade2/rundungsfehler_korrigieren_BUG1328.pl @@ -41,7 +41,6 @@ ar.id) where ac.chart_id IN (select id from chart where link ='AR' OR link like do_statement($::form,$sth,$query); $sth->finish(); } - $self->dbh ->commit(); return 1; } -- 2.20.1