Nicht explizit Transaktion starten

$::form->get_standard_dbh liefert ein Handle, das AutoCommits aus hat
$::form->und daher eh immer explizit in einer Transaktion
$::form->steckt. Vermeidet zusätzlich eine Warnung.

diff --git a/SL/IS.pm b/SL/IS.pm
index 71d547bcda7d9562c7a791af323b8cd5f6a6aee8..372e533e386091f3c2d93ce47d8fb4e9d3fe0a08 100644 (file)
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -1248,7 +1248,6 @@ sub post_payment {
 
   # connect to database, turn off autocommit
   my $dbh = $form->get_standard_dbh;
 
   # connect to database, turn off autocommit
   my $dbh = $form->get_standard_dbh;

-  $dbh->begin_work;

 
   my (%payments, $old_form, $row, $item, $query, %keep_vars);
 
 
   my (%payments, $old_form, $row, $item, $query, %keep_vars);
 


@@ -1507,7 +1506,6 @@ sub delete_invoice {
 
   # connect to database
   my $dbh = $form->get_standard_dbh;
 
   # connect to database
   my $dbh = $form->get_standard_dbh;

-  $dbh->begin_work;

 
   &reverse_invoice($dbh, $form);
 
 
   &reverse_invoice($dbh, $form);