console - login explizit in myconfig setzen, für Testdatenbank

Wenn man sich für die Testdatenbank einen Mandanten anlegt um sich an
der Oberfläche die generierten Testdaten anzuschauen, und die
Datenerstellung dort auch per console vorbereitet:

scripts/console --client testdb --login unittests

Ansonsten klappt SL::DB::Manager::Employee->current->id nicht.

diff --git a/scripts/console b/scripts/console
index 1d97581..0c06dbf 100755 (executable)
--- a/scripts/console
+++ b/scripts/console
@@ -118,6 +118,7 @@ sub lxinit {
   die "cannot find user $login"            unless %::myconfig = $::auth->read_user(login => $login);
 
   die "cannot find locale for user $login" unless $::locale   = Locale->new($::myconfig{countrycode});
+  $::myconfig{login} = $login; # so SL::DB::Manager::Employee->current works in test database
 
   $::instance_conf->init;