Revision 16821864
Von Thomas Kasulke vor mehr als 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1409 | 1409 |
my ($self, $dbh) = @_; |
| 1410 | 1410 |
|
| 1411 | 1411 |
my $query = qq|SELECT id, name FROM employee WHERE login = ?|; |
| 1412 |
($self->{employee_id}, $self->{employee}) = selectrow_query($self, $dbh, $query, $self->{login});
|
|
| 1413 |
$self->{employee_id} *= 1;
|
|
| 1412 |
($self->{"employee_id"}, $self->{"employee"}) = selectrow_query($self, $dbh, $query, $self->{login});
|
|
| 1413 |
$self->{"employee_id"} *= 1;
|
|
| 1414 | 1414 |
|
| 1415 | 1415 |
$main::lxdebug->leave_sub(); |
| 1416 | 1416 |
} |
| ... | ... | |
| 1620 | 1620 |
$main::lxdebug->leave_sub(); |
| 1621 | 1621 |
} |
| 1622 | 1622 |
|
| 1623 |
sub _get_salesmen {
|
|
| 1624 |
$main::lxdebug->enter_sub(); |
|
| 1625 |
|
|
| 1626 |
my ($self, $dbh, $key) = @_; |
|
| 1627 |
|
|
| 1628 |
$key = "all_salesmen" unless ($key); |
|
| 1629 |
$self->{$key} =
|
|
| 1630 |
selectall_hashref_query($self, $dbh, qq|SELECT * FROM employee|); |
|
| 1631 |
|
|
| 1632 |
$main::lxdebug->leave_sub(); |
|
| 1633 |
} |
|
| 1634 |
|
|
| 1623 | 1635 |
sub _get_business_types {
|
| 1624 | 1636 |
$main::lxdebug->enter_sub(); |
| 1625 | 1637 |
|
| ... | ... | |
| 1779 | 1791 |
if ($params{"employees"}) {
|
| 1780 | 1792 |
$self->_get_employees($dbh, $params{"employees"});
|
| 1781 | 1793 |
} |
| 1794 |
|
|
| 1795 |
if ($params{"salesmen"}) {
|
|
| 1796 |
$self->_get_salesmen($dbh, $params{"salesmen"});
|
|
| 1797 |
} |
|
| 1782 | 1798 |
|
| 1783 | 1799 |
if ($params{"business_types"}) {
|
| 1784 | 1800 |
$self->_get_business_types($dbh, $params{"business_types"});
|
Auch abrufbar als: Unified diff
fix von salesmen und employee bzw. split in zwei eigenständige Funktionen durch get_list aufgerufen. Fixing von Bug 658