Revision a5501b16
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1697 | 1697 |
|
| 1698 | 1698 |
$key = "all_customers" unless ($key); |
| 1699 | 1699 |
|
| 1700 |
my $query = qq|SELECT * FROM customer ORDER BY name|; |
|
| 1700 |
my $query = qq|SELECT * FROM customer WHERE NOT obsolete ORDER BY name|;
|
|
| 1701 | 1701 |
|
| 1702 | 1702 |
$self->{$key} = selectall_hashref_query($self, $dbh, $query);
|
| 1703 | 1703 |
|
| ... | ... | |
| 1711 | 1711 |
|
| 1712 | 1712 |
$key = "all_vendors" unless ($key); |
| 1713 | 1713 |
|
| 1714 |
my $query = qq|SELECT * FROM vendor ORDER BY name|; |
|
| 1714 |
my $query = qq|SELECT * FROM vendor WHERE NOT obsolete ORDER BY name|;
|
|
| 1715 | 1715 |
|
| 1716 | 1716 |
$self->{$key} = selectall_hashref_query($self, $dbh, $query);
|
| 1717 | 1717 |
|
Auch abrufbar als: Unified diff
Nur die Lieferanten und Händler zurückliefern, die nicht 'ungültig' markiert sind.