Nur die Lieferanten und Händler zurückliefern, die nicht 'ungültig' markiert sind.
authorMoritz Bunkus <m.bunkus@linet-services.de>
Tue, 5 Jun 2007 13:59:14 +0000 (13:59 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Tue, 5 Jun 2007 13:59:14 +0000 (13:59 +0000)
SL/Form.pm

index a1e6a4d..dbffe1f 100644 (file)
@@ -1697,7 +1697,7 @@ sub _get_customers {
 
   $key = "all_customers" unless ($key);
 
-  my $query = qq|SELECT * FROM customer ORDER BY name|;
+  my $query = qq|SELECT * FROM customer WHERE NOT obsolete ORDER BY name|;
 
   $self->{$key} = selectall_hashref_query($self, $dbh, $query);
 
@@ -1711,7 +1711,7 @@ sub _get_vendors {
 
   $key = "all_vendors" unless ($key);
 
-  my $query = qq|SELECT * FROM vendor ORDER BY name|;
+  my $query = qq|SELECT * FROM vendor WHERE NOT obsolete ORDER BY name|;
 
   $self->{$key} = selectall_hashref_query($self, $dbh, $query);