X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/2fe6237c8b09d2f5a83145673c15be84bdfadf8a..bcc996e65643:/SL/Controller/TopQuickSearch.pm?ds=sidebyside diff --git a/SL/Controller/TopQuickSearch.pm b/SL/Controller/TopQuickSearch.pm index 8b4708031..4c65ba27d 100644 --- a/SL/Controller/TopQuickSearch.pm +++ b/SL/Controller/TopQuickSearch.pm @@ -70,20 +70,15 @@ sub enabled_modules { namespace => 'TopQuickSearch', ); - my %enabled_names; - if ($user_prefs) { - my $prefs_val = $user_prefs->get('quick_search_modules'); - my @quick_search_modules = split ',', $prefs_val; - - %enabled_names = map { - $_ => 1 - } @quick_search_modules ; + my @quick_search_modules; + if (my $prefs_val = $user_prefs->get('quick_search_modules')) { + @quick_search_modules = split ',', $prefs_val; } else { - %enabled_names = map { - $_ => 1 - } @{ $::instance_conf->get_quick_search_modules }; + @quick_search_modules = @{ $::instance_conf->get_quick_search_modules }; } + my %enabled_names = map { $_ => 1 } @quick_search_modules; + grep { $enabled_names{$_->name} } $_[0]->available_modules