Revision eda8d185
Von Jan Büren vor etwa 13 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
# OHNE Auswahlliste (reines Textfeld) zu laden. Hilft aber auch
|
||
|
# nicht f?r ver?nderbare Belege (oe, do, ...)
|
||
|
my $obsolete = "WHERE NOT obsolete" unless $self->{id};
|
||
|
my $query = qq|SELECT count(*) FROM $table WHERE NOT $obsolete|;
|
||
|
my $query = qq|SELECT count(*) FROM $table $obsolete|;
|
||
|
my ($count) = selectrow_query($self, $dbh, $query);
|
||
|
|
||
|
if ($count < $myconfig->{vclimit}) {
|
||
Auch abrufbar als: Unified diff
Dusselfehler von gerade noch beim diff-Prüfen gesehen