Dusselfehler von gerade noch beim diff-Prüfen gesehen

diff --git a/SL/Form.pm b/SL/Form.pm
index 07e3d3e..050614d 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -2550,7 +2550,7 @@ sub all_vc {
   # 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}) {