Revision 86b09030
Von Thomas Kasulke vor fast 18 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub _get_vendors {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my ($self, $dbh, $key) = @_;
|
||
|
|
||
|
$key = "all_vendors" unless ($key);
|
||
|
|
||
|
my $query = qq|SELECT * FROM vendor|; # LIMIT $main::myconfig{vclimit}|;
|
||
|
|
||
|
$self->{$key} = selectall_hashref_query($self, $dbh, $query);
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub get_lists {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
| ... | ... | |
|
if($params{"customers"}) {
|
||
|
$self->_get_customers($dbh, $params{"customers"});
|
||
|
}
|
||
|
|
||
|
if($params{"vendors"}) {
|
||
|
$self->_get_vendors($dbh, $params{"vendors"});
|
||
|
}
|
||
|
|
||
|
$dbh->disconnect();
|
||
|
|
||
Auch abrufbar als: Unified diff
einen sub für get_lists -> "vendor" hinzugefügt