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