From 86b09030a3fb9aa7e6dfddbe0e22622f85299f21 Mon Sep 17 00:00:00 2001 From: Thomas Kasulke Date: Mon, 30 Apr 2007 13:47:20 +0000 Subject: [PATCH] =?utf8?q?einen=20sub=20f=C3=BCr=20get=5Flists=20->=20"ven?= =?utf8?q?dor"=20hinzugef=C3=BCgt?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/Form.pm | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/SL/Form.pm b/SL/Form.pm index 9ba3f43bc..5a2e73f87 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -1616,6 +1616,20 @@ sub _get_customers { $main::lxdebug->leave_sub(); } +sub _get_vendors { + $main::lxdebug->enter_sub(); + + my ($self, $dbh, $key) = @_; + + $key = "all_vendors" unless ($key); + + my $query = qq|SELECT * FROM vendor|; # LIMIT $main::myconfig{vclimit}|; + + $self->{$key} = selectall_hashref_query($self, $dbh, $query); + + $main::lxdebug->leave_sub(); +} + sub get_lists { $main::lxdebug->enter_sub(); @@ -1681,6 +1695,10 @@ sub get_lists { if($params{"customers"}) { $self->_get_customers($dbh, $params{"customers"}); } + + if($params{"vendors"}) { + $self->_get_vendors($dbh, $params{"vendors"}); + } $dbh->disconnect(); -- 2.20.1