X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/c90b4dcd8d8ee9f3e80c0b81bb5fc792ae4c9d03..140dec80499ff0b348bc0bf6d46d2987bc28b993:/SL/Auth.pm

diff --git a/SL/Auth.pm b/SL/Auth.pm
index a2e98322f..cd16c8e0b 100644
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -136,11 +136,11 @@ sub authenticate_root {
 sub authenticate {
   $main::lxdebug->enter_sub();
 
-  my $self = shift;
+  my ($self, $login, $password) = @_;
 
   $main::lxdebug->leave_sub();
 
-  my $result = $self->{authenticator}->authenticate(@_);
+  my $result = $login ? $self->{authenticator}->authenticate($login, $password) : ERR_USER;
   return OK if $result eq OK;
   sleep 5;
   return $result;