Revision 86b09030
Von Thomas Kasulke vor mehr als 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1616 | 1616 |
$main::lxdebug->leave_sub(); |
| 1617 | 1617 |
} |
| 1618 | 1618 |
|
| 1619 |
sub _get_vendors {
|
|
| 1620 |
$main::lxdebug->enter_sub(); |
|
| 1621 |
|
|
| 1622 |
my ($self, $dbh, $key) = @_; |
|
| 1623 |
|
|
| 1624 |
$key = "all_vendors" unless ($key); |
|
| 1625 |
|
|
| 1626 |
my $query = qq|SELECT * FROM vendor|; # LIMIT $main::myconfig{vclimit}|;
|
|
| 1627 |
|
|
| 1628 |
$self->{$key} = selectall_hashref_query($self, $dbh, $query);
|
|
| 1629 |
|
|
| 1630 |
$main::lxdebug->leave_sub(); |
|
| 1631 |
} |
|
| 1632 |
|
|
| 1619 | 1633 |
sub get_lists {
|
| 1620 | 1634 |
$main::lxdebug->enter_sub(); |
| 1621 | 1635 |
|
| ... | ... | |
| 1681 | 1695 |
if($params{"customers"}) {
|
| 1682 | 1696 |
$self->_get_customers($dbh, $params{"customers"});
|
| 1683 | 1697 |
} |
| 1698 |
|
|
| 1699 |
if($params{"vendors"}) {
|
|
| 1700 |
$self->_get_vendors($dbh, $params{"vendors"});
|
|
| 1701 |
} |
|
| 1684 | 1702 |
|
| 1685 | 1703 |
$dbh->disconnect(); |
| 1686 | 1704 |
|
Auch abrufbar als: Unified diff
einen sub für get_lists -> "vendor" hinzugefügt