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 2ed31f3..187eea4 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 5c7f9a4..ab561ee 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 950e023..fb742b0 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;
 }