X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6d808fff5c446cc229deab6f5d2b97912ced9304..227bdad2616e4dd8c0341f89a751b596a673d22c:/SL/WH.pm

diff --git a/SL/WH.pm b/SL/WH.pm
index 929560038..22f4a4195 100644
--- a/SL/WH.pm
+++ b/SL/WH.pm
@@ -59,7 +59,7 @@ sub transfer {
   require SL::DB::Employee;
   require SL::DB::Inventory;
 
-  my $employee   = SL::DB::Manager::Employee->find_by(login => $::form->{login});
+  my $employee   = SL::DB::Manager::Employee->find_by(login => $::myconfig{login});
   my ($now)      = selectrow_query($::form, $::form->get_standard_dbh, qq|SELECT current_date|);
   my @directions = (undef, qw(out in transfer));