X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b354800b2fa7c94abefdbc222d73ed561c6027f1..d8be5cc409de5b3bc34439599b1481201a5a1c2e:/SL/Helper/UserPreferences.pm

diff --git a/SL/Helper/UserPreferences.pm b/SL/Helper/UserPreferences.pm
index 43873e4e5..75debacee 100644
--- a/SL/Helper/UserPreferences.pm
+++ b/SL/Helper/UserPreferences.pm
@@ -4,7 +4,7 @@ use strict;
 use parent qw(Rose::Object);
 use version;
 
-use SL::DBUtils qw(selectall_hashref_query selectfirst_hashref_query do_query selectall_ids);
+use SL::DBUtils qw(selectall_hashref_query selectfirst_hashref_query do_query selectcol_array_query);
 use SL::DB;
 
 use Rose::Object::MakeMethods::Generic (
@@ -85,7 +85,7 @@ sub get_all {
 sub get_keys {
   my ($self) = @_;
 
-  my @keys = selectall_ids($::form, $::form->get_standard_dbh, <<"", 0, $self->login, $self->namespace);
+  my @keys = selectcol_array_query($::form, SL::DB->client->dbh, <<"", $self->login, $self->namespace);
     SELECT key FROM user_preferences WHERE login = ? AND namespace = ?
 
   return @keys;
@@ -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 }