Revision 2c5603bb
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1703 | 1703 |
$main::lxdebug->leave_sub(); |
| 1704 | 1704 |
} |
| 1705 | 1705 |
|
| 1706 |
sub _get_departments {
|
|
| 1707 |
$main::lxdebug->enter_sub(); |
|
| 1708 |
|
|
| 1709 |
my ($self, $dbh, $key) = @_; |
|
| 1710 |
|
|
| 1711 |
$key = "all_departments" unless ($key); |
|
| 1712 |
|
|
| 1713 |
my $query = qq|SELECT * FROM department|; |
|
| 1714 |
|
|
| 1715 |
$self->{$key} = selectall_hashref_query($self, $dbh, $query);
|
|
| 1716 |
|
|
| 1717 |
$main::lxdebug->leave_sub(); |
|
| 1718 |
} |
|
| 1719 |
|
|
| 1706 | 1720 |
sub get_lists {
|
| 1707 | 1721 |
$main::lxdebug->enter_sub(); |
| 1708 | 1722 |
|
| ... | ... | |
| 1777 | 1791 |
$self->_get_payments($dbh, $params{"payments"});
|
| 1778 | 1792 |
} |
| 1779 | 1793 |
|
| 1794 |
if($params{"departments"}) {
|
|
| 1795 |
$self->_get_departments($dbh, $params{"departments"});
|
|
| 1796 |
} |
|
| 1797 |
|
|
| 1780 | 1798 |
$dbh->disconnect(); |
| 1781 | 1799 |
|
| 1782 | 1800 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
Den Rest von dn.pl auf die Verwendung von HTML-Vorlagen umgestellt.