From d4b177761705664e043109244defa9ebbe673c8e Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Thu, 3 Sep 2009 15:43:09 +0200
Subject: [PATCH] form->get_employee nimmt sich bei Bedarf eine eigene dbh.

---
 SL/Form.pm | 2 ++
 1 file changed, 2 insertions(+)

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;
-- 
2.20.1