Revision 1fa91538
Von Sven Schöling vor fast 18 Jahren hinzugefügt
SL/IS.pm | ||
---|---|---|
2230 | 2230 |
|
2231 | 2231 |
$main::lxdebug->leave_sub() and return 0 unless ($form->{id}); |
2232 | 2232 |
|
2233 |
# make sure there's no funny stuff in $table |
|
2234 |
# ToDO: die when this happens and throw an error |
|
2235 |
$main::lxdebug->leave_sub() and return 0 if ($table =~ /\W/); |
|
2236 |
|
|
2233 | 2237 |
my $dbh = $form->dbconnect($myconfig); |
2234 | 2238 |
|
2235 | 2239 |
my $query = qq|SELECT storno FROM $table WHERE id = ?|; |
Auch abrufbar als: Unified diff
Paranoiasicherheitscheck in IR.pm