X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ce83fab980b72a2b3d4066ce2b49cbf3feec56a5..670f76a:/bin/mozilla/login.pl

diff --git a/bin/mozilla/login.pl b/bin/mozilla/login.pl
index 3c9089118..a3184b59c 100644
--- a/bin/mozilla/login.pl
+++ b/bin/mozilla/login.pl
@@ -61,16 +61,17 @@ sub run {
     $action = 'login';
   }
   if ($action) {
-    %::myconfig = $auth->read_user(login => $form->{login}) if ($form->{login});
+    $form->{login} = $form->{'{AUTH}login'} || $form->{login};
+    %::myconfig    = $auth->read_user(login => $form->{login}) if $form->{login};
+
     $::locale   = Locale->new($::myconfig{countrycode}) if $::myconfig{countrycode};
 
-    if (SL::Auth::OK != $auth->authenticate($::myconfig{login}, $form->{password})) {
+    if (SL::Auth::OK != $auth->authenticate($::myconfig{login}, $form->{'{AUTH}password'})) {
       $form->{error_message} = $::locale->text('Incorrect username or password!');
       login_screen();
     } else {
-      $auth->store_credentials_in_session(login => $form->{login}, password => $form->{password});
       $auth->create_or_refresh_session();
-      delete $form->{password};
+      delete $form->{'{AUTH}password'};
 
       $form->{titlebar} .= " - $::myconfig{name} - $::myconfig{dbname}";
       call_sub($::locale->findsub($action));