From 00b74acf8783d30c5add1d381cd46b70031fa4bb Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Wed, 16 Jan 2019 12:41:11 +0100
Subject: [PATCH] WH: Employee::current statt manuell

(cherry picked from commit 975786bdc3c48380926c63e8a0b37109d144f0f2)
(cherry-pick von odyn)
---
 SL/WH.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/WH.pm b/SL/WH.pm
index 6afc4ff31..52e174ff0 100644
--- a/SL/WH.pm
+++ b/SL/WH.pm
@@ -61,7 +61,7 @@ sub transfer {
   require SL::DB::Part;
   require SL::DB::Employee;
 
-  my $employee   = SL::DB::Manager::Employee->find_by(login => $::myconfig{login});
+  my $employee   = SL::DB::Manager::Employee->current;
   my ($now)      = selectrow_query($::form, $::form->get_standard_dbh, qq|SELECT current_date|);
   my @directions = (undef, qw(out in transfer));
 
-- 
2.20.1