Revision 9fa58e1b
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1622 | 1622 |
$main::lxdebug->leave_sub(); |
| 1623 | 1623 |
} |
| 1624 | 1624 |
|
| 1625 |
sub _get_business_types {
|
|
| 1626 |
$main::lxdebug->enter_sub(); |
|
| 1627 |
|
|
| 1628 |
my ($self, $dbh, $key) = @_; |
|
| 1629 |
|
|
| 1630 |
$key = "all_business_types" unless ($key); |
|
| 1631 |
$self->{$key} =
|
|
| 1632 |
selectall_hashref_query($self, $dbh, qq|SELECT * FROM business|); |
|
| 1633 |
|
|
| 1634 |
$main::lxdebug->leave_sub(); |
|
| 1635 |
} |
|
| 1636 |
|
|
| 1625 | 1637 |
sub get_lists {
|
| 1626 | 1638 |
$main::lxdebug->enter_sub(); |
| 1627 | 1639 |
|
| ... | ... | |
| 1664 | 1676 |
$self->_get_employees($dbh, $params{"employees"});
|
| 1665 | 1677 |
} |
| 1666 | 1678 |
|
| 1679 |
if ($params{"business_types"}) {
|
|
| 1680 |
$self->_get_business_types($dbh, $params{"business_types"});
|
|
| 1681 |
} |
|
| 1682 |
|
|
| 1667 | 1683 |
$dbh->disconnect(); |
| 1668 | 1684 |
|
| 1669 | 1685 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
Weitere Unterfunktion zu Form::get_lists() zum Auslesen von Kunden-/Lieferantentypen.