From 47828c56b61e3b42b697185de956692b5f1fd935 Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Sat, 29 Jul 2017 11:27:34 -0400 Subject: [PATCH] Bug 14385: Tweak borrower category code $borrower->{categorycode} on a Koha::Patron is not the same as $borrower->categorycode. Fixed error. Signed-off-by: Mark Tompsett --- opac/opac-ISBDdetail.pl | 4 ++-- opac/opac-MARCdetail.pl | 4 ++-- opac/opac-detail.pl | 4 ++-- opac/opac-search.pl | 6 +++--- 4 files changed, 9 insertions(+), 9 deletions(-) diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl index 4f4ca38..a0aab72 100755 --- a/opac/opac-ISBDdetail.pl +++ b/opac/opac-ISBDdetail.pl @@ -93,8 +93,8 @@ if (scalar @items >= 1) { if ( C4::Context->preference('OpacHiddenItemsExceptions') ) { # we need to fetch the borrower info here, so we can pass the category - my $borrower = GetMember( borrowernumber => $borrowernumber ); - $borcat = $borrower->{categorycode}; + my $borrower = Koha::Patrons->find( { borrowernumber => $borrowernumber } ); + $borcat = $borrower->categorycode; } my @hiddenitems = GetHiddenItemnumbers( { items => \@items, borcat => $borcat }); diff --git a/opac/opac-MARCdetail.pl b/opac/opac-MARCdetail.pl index d690749..3bbdb82 100755 --- a/opac/opac-MARCdetail.pl +++ b/opac/opac-MARCdetail.pl @@ -88,8 +88,8 @@ if (scalar @all_items >= 1) { if ( C4::Context->preference('OpacHiddenItemsExceptions') ) { # we need to fetch the borrower info here, so we can pass the category - my $borrower = GetMember( borrowernumber => $borrowernumber ); - $borcat = $borrower->{categorycode}; + my $borrower = Koha::Patrons->find( { borrowernumber => $borrowernumber } ); + $borcat = $borrower->categorycode; } push @items2hide, GetHiddenItemnumbers({ items => \@all_items, borcat => $borcat }); diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl index de62c71..3c49aaf 100755 --- a/opac/opac-detail.pl +++ b/opac/opac-detail.pl @@ -86,8 +86,8 @@ if ( scalar @all_items >= 1 ) { if ( C4::Context->preference('OpacHiddenItemsExceptions') ) { # we need to fetch the borrower info here, so we can pass the category - my $borrower = GetMember( borrowernumber => $borrowernumber ); - $borcat = $borrower->{categorycode}; + my $borrower = Koha::Patrons->find( { borrowernumber => $borrowernumber } ); + $borcat = $borrower->categorycode; } push @hiddenitems, diff --git a/opac/opac-search.pl b/opac/opac-search.pl index f672cba..b829a2c 100755 --- a/opac/opac-search.pl +++ b/opac/opac-search.pl @@ -51,8 +51,8 @@ use C4::Koha; use C4::Tags qw(get_tags); use C4::SocialData; use C4::External::OverDrive; -use C4::Members qw(GetMember); +use Koha::Libraries; use Koha::ItemTypes; use Koha::LibraryCategories; use Koha::Ratings; @@ -632,8 +632,8 @@ my $search_context = {}; $search_context->{'interface'} = 'opac'; if (C4::Context->preference('OpacHiddenItemsExceptions')){ # we need to fetch the borrower info here, so we can pass the category - my $borrower = GetMember( borrowernumber => $borrowernumber ); - $search_context->{'category'} = $borrower->{'categorycode'}; + my $borrower = Koha::Patrons->find( { borrowernumber => $borrowernumber } ); + $search_context->{'category'} = $borrower->categorycode; } for (my $i=0;$i<@servers;$i++) { -- 2.1.4