Bug 31028: Add catalog concern management page to staff

[koha-ffzg.git] / members / members-home.pl

diff --git a/members/members-home.pl b/members/members-home.pl
index 55b3f3e..e3b903f 100755 (executable)
--- a/members/members-home.pl
+++ b/members/members-home.pl
@@ -27,6 +27,7 @@ use Koha::Patron::Modifications;
 use Koha::Libraries;
 use Koha::List::Patron qw( GetPatronLists );
 use Koha::Patron::Categories;
+use Koha::Patron::Attribute::Types;
 
 my $query = CGI->new;
 
@@ -43,13 +44,14 @@ if( Koha::Libraries->search->count < 1){
     $template->param(no_branches => 1);
 }
 
-my @categories = Koha::Patron::Categories->search_with_library_limits;
-if(scalar(@categories) < 1){
+my $categories = Koha::Patron::Categories->search_with_library_limits;
+unless ( $categories->count ) {
     $no_add = 1;
     $template->param(no_categories => 1);
 }
 else {
-    $template->param(categories=>\@categories);
+    # FIXME This does not seem to be used in the template
+    $template->param(categories => $categories);
 }
 
 my $branch =
@@ -71,6 +73,9 @@ $template->param(
     PatronAutoComplete => C4::Context->preference('PatronAutoComplete'),
     patron_lists => [ GetPatronLists() ],
     PatronsPerPage => C4::Context->preference("PatronsPerPage") || 20,
+    attribute_type_codes => ( C4::Context->preference('ExtendedPatronAttributes')
+        ? [ Koha::Patron::Attribute::Types->search( { staff_searchable => 1 } )->get_column('code') ]
+        : [] ),
 );
 
 output_html_with_http_headers $query, $cookie, $template->output;