Revision 1e251313
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
SL/Form.pm | ||
---|---|---|
1876 | 1876 |
$main::lxdebug->leave_sub(); |
1877 | 1877 |
} |
1878 | 1878 |
|
1879 |
sub _get_price_factors { |
|
1880 |
$main::lxdebug->enter_sub(); |
|
1881 |
|
|
1882 |
my ($self, $dbh, $key) = @_; |
|
1883 |
|
|
1884 |
$key ||= "all_price_factors"; |
|
1885 |
|
|
1886 |
my $query = qq|SELECT * FROM price_factors ORDER BY sortkey|; |
|
1887 |
|
|
1888 |
$self->{$key} = selectall_hashref_query($self, $dbh, $query); |
|
1889 |
|
|
1890 |
$main::lxdebug->leave_sub(); |
|
1891 |
} |
|
1892 |
|
|
1879 | 1893 |
sub get_lists { |
1880 | 1894 |
$main::lxdebug->enter_sub(); |
1881 | 1895 |
|
... | ... | |
1958 | 1972 |
$self->_get_departments($dbh, $params{"departments"}); |
1959 | 1973 |
} |
1960 | 1974 |
|
1975 |
if ($params{price_factors}) { |
|
1976 |
$self->_get_price_factors($dbh, $params{price_factors}); |
|
1977 |
} |
|
1978 |
|
|
1961 | 1979 |
$main::lxdebug->leave_sub(); |
1962 | 1980 |
} |
1963 | 1981 |
|
Auch abrufbar als: Unified diff
Preisfatkoren implementiert.