From d261d4f2a987355fe0167e65a55f942d0053d6a0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bernd=20Ble=C3=9Fmann?= Date: Mon, 30 Oct 2023 13:31:21 +0100 Subject: [PATCH] =?UTF-8?q?S:H:UserPreferences:=20login=20aus=20myconfig?= =?UTF-8?q?=20holen,=20nicht=20=C3=BCber=20S:D:M:Employee->current?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Verhindert einen Fehler, falls user preferences bei einer neuen DB abgefragt werden, da es dann u.U. noch keine Einträge in der employee-Tabelle gibt. Der Fehler trat auf beim Prüfen auf den erzwungenen Layout-Stil bei neuen DBs. --- SL/Helper/UserPreferences.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SL/Helper/UserPreferences.pm b/SL/Helper/UserPreferences.pm index 2e5f127dc9..75debacee9 100644 --- a/SL/Helper/UserPreferences.pm +++ b/SL/Helper/UserPreferences.pm @@ -139,7 +139,7 @@ sub _update { ### defaults stuff -sub init_login { SL::DB::Manager::Employee->current->login } +sub init_login { $::myconfig{login} } sub init_namespace { ref $_[0] } sub init_upgrade_callbacks { +{} } sub init_current_version { version->parse((ref $_[0])->VERSION)->numify }