Revision 49345708
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/AR.pm | ||
|---|---|---|
| 417 | 417 |
# connect to database, turn AutoCommit off |
| 418 | 418 |
my $dbh = $form->dbconnect_noauto($myconfig); |
| 419 | 419 |
|
| 420 |
# acc_trans entries are deleted by database triggers. |
|
| 420 | 421 |
my $query = qq|DELETE FROM ar WHERE id = ?|; |
| 421 | 422 |
do_query($form, $dbh, $query, $form->{id});
|
| 422 | 423 |
|
| 423 |
$query = qq|DELETE FROM acc_trans WHERE trans_id = ?|; |
|
| 424 |
do_query($form, $dbh, $query, $form->{id});
|
|
| 425 |
|
|
| 426 | 424 |
# commit |
| 427 | 425 |
my $rc = $dbh->commit; |
| 428 | 426 |
$dbh->disconnect; |
Auch abrufbar als: Unified diff
Nach Löschen in ar/ap/gl via DB-Trigger in acc_trans aufräumen