Revision a1a3bfd8
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 2226 | 2226 |
sub has_storno {
|
| 2227 | 2227 |
$main::lxdebug->enter_sub(); |
| 2228 | 2228 |
|
| 2229 |
my ($self, $myconfig, $form) = @_; |
|
| 2229 |
my ($self, $myconfig, $form, $table) = @_;
|
|
| 2230 | 2230 |
|
| 2231 | 2231 |
$main::lxdebug->leave_sub() and return 0 unless ($form->{id});
|
| 2232 | 2232 |
|
| 2233 | 2233 |
my $dbh = $form->dbconnect($myconfig); |
| 2234 | 2234 |
|
| 2235 |
my $query = qq|SELECT storno FROM ar WHERE id = ?|;
|
|
| 2235 |
my $query = qq|SELECT storno FROM $table WHERE id = ?|;
|
|
| 2236 | 2236 |
my ($result) = selectrow_query($form, $dbh, $query, $form->{id});
|
| 2237 | 2237 |
|
| 2238 | 2238 |
$dbh->disconnect(); |
Auch abrufbar als: Unified diff
Codeduplikation vermeiden.