Perl-DB-Upgradescripte: nicht manuell Datenbankhandle committen

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 2ed31f33bfe0721e4473e3cb02e862c8247eff47..187eea4042c70e364966f2a33b5395bc3b281fcd 100644 (file)
--- 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 5c7f9a43dd2037d3dd31393d2d53fa2b59d9b289..ab561ee320c4c300a2af55b81c9a3289aad9d18f 100644 (file)
--- 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 950e023d822fefefe850408b86f843a34ec50c94..fb742b081c17cb46f995f92a9394eb72c2ca0c58 100644 (file)
--- 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;
 }