Revision b079ee7c
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/BP.pm | ||
|---|---|---|
| 62 | 62 |
qq| WHERE a.${vc}_id = vc.id AND s.trans_id = a.id AND s.formname = ? | .
|
| 63 | 63 |
qq| AND s.spoolfile IS NOT NULL) AS total|; |
| 64 | 64 |
|
| 65 |
$main::lxdebug->message(0, "kuh1 $query"); |
|
| 66 |
|
|
| 67 | 65 |
my ($count) = selectrow_query($form, $dbh, $query, $form->{type});
|
| 68 | 66 |
|
| 69 | 67 |
# build selection list |
| ... | ... | |
| 82 | 80 |
push @{ $form->{"all_${vc}"} }, $ref;
|
| 83 | 81 |
} |
| 84 | 82 |
$sth->finish; |
| 85 |
|
|
| 86 |
$main::lxdebug->message(0, "kuh2 $query"); |
|
| 87 | 83 |
} |
| 88 | 84 |
|
| 89 | 85 |
$dbh->disconnect; |
Auch abrufbar als: Unified diff
Debugcode