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