Revision 9faa9827
Von Jan Büren vor mehr als 12 Jahren hinzugefügt
SL/Form.pm | ||
---|---|---|
2545 | 2545 |
|
2546 | 2546 |
$table = $table eq "customer" ? "customer" : "vendor"; |
2547 | 2547 |
|
2548 |
my $query = qq|SELECT count(*) FROM $table WHERE NOT obsolete|; |
|
2549 |
my ($count) = selectrow_query($self, $dbh, $query); |
|
2550 |
|
|
2551 | 2548 |
# build selection list |
2552 | 2549 |
# Hotfix f?r Bug 1837 - Besser w?re es alte Buchungsbelege |
2553 | 2550 |
# OHNE Auswahlliste (reines Textfeld) zu laden. Hilft aber auch |
2554 | 2551 |
# nicht f?r ver?nderbare Belege (oe, do, ...) |
2555 | 2552 |
my $obsolete = "WHERE NOT obsolete" unless $self->{id}; |
2553 |
my $query = qq|SELECT count(*) FROM $table WHERE NOT $obsolete|; |
|
2554 |
my ($count) = selectrow_query($self, $dbh, $query); |
|
2555 |
|
|
2556 | 2556 |
if ($count < $myconfig->{vclimit}) { |
2557 | 2557 |
$query = qq|SELECT id, name, salesman_id |
2558 | 2558 |
FROM $table $obsolete |
Auch abrufbar als: Unified diff
vclimit auch korrekt für Bugfix 1837 setzen (s.a. Commit davor)