Revision 49345708
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/GL.pm | ||
|---|---|---|
| 51 | 51 |
# connect to database |
| 52 | 52 |
my $dbh = $form->dbconnect_noauto($myconfig); |
| 53 | 53 |
|
| 54 |
my @values = (conv_i($form->{id}));
|
|
| 55 |
do_query($form, $dbh, qq|DELETE FROM acc_trans WHERE trans_id = ?|, @values); |
|
| 56 |
do_query($form, $dbh, qq|DELETE FROM gl WHERE id = ?|, @values); |
|
| 54 |
# acc_trans entries are deleted by database triggers. |
|
| 55 |
do_query($form, $dbh, qq|DELETE FROM gl WHERE id = ?|, conv_i($form->{id}));
|
|
| 57 | 56 |
|
| 58 | 57 |
# commit and redirect |
| 59 | 58 |
my $rc = $dbh->commit; |
Auch abrufbar als: Unified diff
Nach Löschen in ar/ap/gl via DB-Trigger in acc_trans aufräumen