Revision a5d5620d
Von Thomas Kasulke vor mehr als 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1602 | 1602 |
$main::lxdebug->leave_sub(); |
| 1603 | 1603 |
} |
| 1604 | 1604 |
|
| 1605 |
sub _get_customers {
|
|
| 1606 |
$main::lxdebug->enter_sub(); |
|
| 1607 |
|
|
| 1608 |
my ($self, $dbh, $key) = @_; |
|
| 1609 |
|
|
| 1610 |
$key = "all_customers" unless ($key); |
|
| 1611 |
|
|
| 1612 |
my $query = qq|SELECT * FROM customer LIMIT $main::myconfig{vclimit}|;
|
|
| 1613 |
|
|
| 1614 |
$self->{$key} = selectall_hashref_query($self, $dbh, $query);
|
|
| 1615 |
|
|
| 1616 |
$main::lxdebug->leave_sub(); |
|
| 1617 |
} |
|
| 1618 |
|
|
| 1605 | 1619 |
sub get_lists {
|
| 1606 | 1620 |
$main::lxdebug->enter_sub(); |
| 1607 | 1621 |
|
| ... | ... | |
| 1663 | 1677 |
if($params{"currencies"}) {
|
| 1664 | 1678 |
$self->_get_currencies($dbh, $params{"currencies"});
|
| 1665 | 1679 |
} |
| 1680 |
|
|
| 1681 |
if($params{"customers"}) {
|
|
| 1682 |
$self->_get_customers($dbh, $params{"customers"});
|
|
| 1683 |
} |
|
| 1666 | 1684 |
|
| 1667 | 1685 |
$dbh->disconnect(); |
| 1668 | 1686 |
|
Auch abrufbar als: Unified diff
subs für den customer und employee select angepasst; sowie get_lists