Revision 49345708
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
| 395 | 395 |
# connect to database |
| 396 | 396 |
my $dbh = $form->dbconnect_noauto($myconfig); |
| 397 | 397 |
|
| 398 |
# acc_trans entries are deleted by database triggers. |
|
| 398 | 399 |
my $query = qq|DELETE FROM ap WHERE id = ?|; |
| 399 | 400 |
do_query($form, $dbh, $query, $form->{id});
|
| 400 | 401 |
|
| 401 |
$query = qq|DELETE FROM acc_trans WHERE trans_id = ?|; |
|
| 402 |
do_query($form, $dbh, $query, $form->{id});
|
|
| 403 |
|
|
| 404 |
# commit and redirect |
|
| 405 | 402 |
my $rc = $dbh->commit; |
| 406 | 403 |
$dbh->disconnect; |
| 407 | 404 |
|
Auch abrufbar als: Unified diff
Nach Löschen in ar/ap/gl via DB-Trigger in acc_trans aufräumen