Revision ef17e41a
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/GL.pm | ||
|---|---|---|
| 211 | 211 |
} |
| 212 | 212 |
} |
| 213 | 213 |
|
| 214 |
my %audittrail = (tablename => 'gl', |
|
| 215 |
reference => $form->{reference},
|
|
| 216 |
formname => 'transaction', |
|
| 217 |
action => 'posted', |
|
| 218 |
id => $form->{id});
|
|
| 219 |
|
|
| 220 |
# $form->audittrail($dbh, "", \%audittrail); |
|
| 221 |
|
|
| 222 | 214 |
# commit and redirect |
| 223 | 215 |
my $rc = $dbh->commit; |
| 224 | 216 |
$dbh->disconnect; |
Auch abrufbar als: Unified diff
Umstellung der Form.pm auf die Verwendung parametrisierter Queries zur Vermeidung von SQL injection. Zusätzlich etwas Kosmetik (trailing whitespace, TABs entfernt).