X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ccb70485db37e6ac977b61b5941c70d70d929f46..46b00bb49d5514f00c8ebf70c19b0e929b6a5a9b:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 3fe20ffb9..6c3b297db 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1964,7 +1964,7 @@ sub get_employee_data {
   my ($login)  = selectrow_query($self, $dbh, qq|SELECT login FROM employee WHERE id = ?|, conv_i($params{id}));
 
   if ($login) {
-    my $user = User->new($login);
+    my $user = User->new(login => $login);
     map { $self->{$params{prefix} . "_${_}"} = $user->{$_}; } qw(address businessnumber co_ustid company duns email fax name signature taxnumber tel);
 
     $self->{$params{prefix} . '_login'}   = $login;