Revision 2cb9fa7e
Von Moritz Bunkus vor etwa 11 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 1248 | 1248 |
|
| 1249 | 1249 |
# connect to database, turn off autocommit |
| 1250 | 1250 |
my $dbh = $form->get_standard_dbh; |
| 1251 |
$dbh->begin_work; |
|
| 1252 | 1251 |
|
| 1253 | 1252 |
my (%payments, $old_form, $row, $item, $query, %keep_vars); |
| 1254 | 1253 |
|
| ... | ... | |
| 1507 | 1506 |
|
| 1508 | 1507 |
# connect to database |
| 1509 | 1508 |
my $dbh = $form->get_standard_dbh; |
| 1510 |
$dbh->begin_work; |
|
| 1511 | 1509 |
|
| 1512 | 1510 |
&reverse_invoice($dbh, $form); |
| 1513 | 1511 |
|
Auch abrufbar als: Unified diff
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.