X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/497da0ff32257cd249c8c60991f8aaebd92f409c..1edebcf0aed748b75fa68e46aad70dbeeadfdd85:/SL/Controller/TopQuickSearch.pm?ds=sidebyside diff --git a/SL/Controller/TopQuickSearch.pm b/SL/Controller/TopQuickSearch.pm index f44ff6f49..4c65ba27d 100644 --- a/SL/Controller/TopQuickSearch.pm +++ b/SL/Controller/TopQuickSearch.pm @@ -70,19 +70,15 @@ sub enabled_modules { namespace => 'TopQuickSearch', ); - my %enabled_names; + my @quick_search_modules; if (my $prefs_val = $user_prefs->get('quick_search_modules')) { - my @quick_search_modules = split ',', $prefs_val; - - %enabled_names = map { - $_ => 1 - } @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