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 1d9758138d647090d8458ed46fa7af125ef8dfab..0c06dbf5a8910dae83af5eec09678d38d311b83b 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;