Revision 3171c378
Von Jan Büren vor mehr als 10 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
|
||
|
$key = "all_taxzones" unless ($key);
|
||
|
my $tzfilter = "";
|
||
|
$tzfilter = "WHERE obsolete is FALSE" if $key eq 'ALL_ACTIVE_TAXZONES';
|
||
|
$tzfilter = "WHERE obsolete is FALSE" if $key eq 'ALL_ACTIVE_TAXZONES';
|
||
|
|
||
|
my $query = qq|SELECT * FROM tax_zones $tzfilter ORDER BY sortkey|;
|
||
|
|
||
Auch abrufbar als: Unified diff
Whitespace entfernt