Revision 6d169764
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 765 | 765 |
$additional_params->{"conf_lizenzen"} = $main::lizenzen;
|
| 766 | 766 |
$additional_params->{"conf_latex_templates"} = $main::latex;
|
| 767 | 767 |
$additional_params->{"conf_opendocument_templates"} = $main::opendocument_templates;
|
| 768 |
$additional_params->{"conf_vertreter"} = $main::vertreter;
|
|
| 768 | 769 |
|
| 769 | 770 |
if (%main::debug_options) {
|
| 770 | 771 |
map { $additional_params->{'DEBUG_' . uc($_)} = $main::debug_options{$_} } keys %main::debug_options;
|
| ... | ... | |
| 2220 | 2221 |
|
| 2221 | 2222 |
my ($self, $dbh, $key) = @_; |
| 2222 | 2223 |
|
| 2223 |
$key = "all_business_types" unless ($key); |
|
| 2224 |
$self->{$key} =
|
|
| 2225 |
selectall_hashref_query($self, $dbh, qq|SELECT * FROM business|); |
|
| 2224 |
my $options = ref $key eq 'HASH' ? $key : { key => $key };
|
|
| 2225 |
$options->{key} ||= "all_business_types";
|
|
| 2226 |
my $where = ''; |
|
| 2227 |
|
|
| 2228 |
if (exists $options->{salesman}) {
|
|
| 2229 |
$where = 'WHERE ' . ($options->{salesman} ? '' : 'NOT ') . 'COALESCE(salesman)';
|
|
| 2230 |
} |
|
| 2231 |
|
|
| 2232 |
$self->{ $options->{key} } = selectall_hashref_query($self, $dbh, qq|SELECT * FROM business $where ORDER BY lower(description)|);
|
|
| 2226 | 2233 |
|
| 2227 | 2234 |
$main::lxdebug->leave_sub(); |
| 2228 | 2235 |
} |
Auch abrufbar als: Unified diff
"Vertreter"-Feature in Kunden-/Lieferantenstammdaten wieder eingebaut