From 496f55c6a1bc218cb4fc89451afa181ac7498102 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Wed, 25 Mar 2015 18:04:42 +0100
Subject: [PATCH] login nicht aus $::form nehmen. Teil 2
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Dabei ergibt sich ein kleines Problem. User spezifische bin/mozilla/
Controller werden geladen bevor das User handling abgeschlossen ist.
Nach dieser Änderung sind die also de facto kaputt.
---
 SL/Controller/LoginScreen.pm | 1 -
 scripts/console              | 2 --
 scripts/task_server.pl       | 1 -
 t/Support/TestSetup.pm       | 2 --
 4 files changed, 6 deletions(-)

diff --git a/SL/Controller/LoginScreen.pm b/SL/Controller/LoginScreen.pm
index d38736b82..80700b930 100644
--- a/SL/Controller/LoginScreen.pm
+++ b/SL/Controller/LoginScreen.pm
@@ -56,7 +56,6 @@ sub action_login {
   }
 
   %::myconfig      = $login ? $::auth->read_user(login => $login) : ();
-  $::form->{login} = $login;
   $::locale        = Locale->new($::myconfig{countrycode}) if $::myconfig{countrycode};
   SL::Dispatcher::AuthHandler::User->new->handle(countrycode => $::myconfig{countrycode});
 
diff --git a/scripts/console b/scripts/console
index ba287fd47..1d9758138 100755
--- a/scripts/console
+++ b/scripts/console
@@ -117,8 +117,6 @@ sub lxinit {
 
   die "cannot find user $login"            unless %::myconfig = $::auth->read_user(login => $login);
 
-  $::form->{login} = $login; # normaly implicit at login
-
   die "cannot find locale for user $login" unless $::locale   = Locale->new($::myconfig{countrycode});
 
   $::instance_conf->init;
diff --git a/scripts/task_server.pl b/scripts/task_server.pl
index b1baef42e..ff21183da 100755
--- a/scripts/task_server.pl
+++ b/scripts/task_server.pl
@@ -86,7 +86,6 @@ sub per_job_initialization {
 
   $::auth->restore_session;
 
-  $::form->{login} = $lx_office_conf{task_server}->{login};
   $::instance_conf->init;
 
   $::form->{__ERROR_HANDLER} = sub { die @_ };
diff --git a/t/Support/TestSetup.pm b/t/Support/TestSetup.pm
index 7e5774ea1..037cfb547 100644
--- a/t/Support/TestSetup.pm
+++ b/t/Support/TestSetup.pm
@@ -44,8 +44,6 @@ sub login {
 
   die "cannot find user $login"            unless %::myconfig = $::auth->read_user(login => $login);
 
-  $::form->{login} = $login; # normaly implicit at login
-
   die "cannot find locale for user $login" unless $::locale   = Locale->new($::myconfig{countrycode});
 
   $SIG{__DIE__} = sub { Carp::confess( @_ ) } if $::lx_office_conf{debug}->{backtrace_on_die};
-- 
2.20.1