From: Sven Schöling Date: Thu, 3 Sep 2009 13:43:09 +0000 (+0200) Subject: form->get_employee nimmt sich bei Bedarf eine eigene dbh. X-Git-Tag: release-2.6.1beta1~302 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=d4b177761705664e043109244defa9ebbe673c8e;p=kivitendo-erp.git form->get_employee nimmt sich bei Bedarf eine eigene dbh. --- diff --git a/SL/Form.pm b/SL/Form.pm index 64bed8651..d5bb9c3d3 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -2021,6 +2021,8 @@ sub get_employee { my ($self, $dbh) = @_; + $dbh ||= $self->get_standard_dbh(\%main::myconfig); + my $query = qq|SELECT id, name FROM employee WHERE login = ?|; ($self->{"employee_id"}, $self->{"employee"}) = selectrow_query($self, $dbh, $query, $self->{login}); $self->{"employee_id"} *= 1;