From 25570da6425a43f6fa48d85b08f5d83db6a734a7 Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Tue, 27 Jun 2017 22:52:21 -0400 Subject: [PATCH] Bug 14385: Tweaks so t/db_dependent/00-strict.t passes There was a typo botcat vs borcat and borrowernumber was never defined. Grabbing from userenv, like other code does. --- opac/opac-ISBDdetail.pl | 4 ++++ opac/opac-MARCdetail.pl | 6 +++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl index 34197d8..85c2757 100755 --- a/opac/opac-ISBDdetail.pl +++ b/opac/opac-ISBDdetail.pl @@ -85,7 +85,11 @@ my $marcflavour = C4::Context->preference("marcflavour"); my @items = GetItemsInfo($biblionumber); if (scalar @items >= 1) { + my $borrowernumber; my $borcat; + if (C4::Context->userenv) { + $borrowernumber = C4::Context->userenv->{'number'}; + } if ( C4::Context->preference('OpacHiddenItemsExceptions') ) { # we need to fetch the borrower info here, so we can pass the category diff --git a/opac/opac-MARCdetail.pl b/opac/opac-MARCdetail.pl index 1d00e92..a6c7d78 100755 --- a/opac/opac-MARCdetail.pl +++ b/opac/opac-MARCdetail.pl @@ -78,14 +78,18 @@ if ( ! $record ) { my @all_items = GetItemsInfo($biblionumber); my @items2hide; if (scalar @all_items >= 1) { + my $borrowernumber; my $borcat; + if (C4::Context->userenv) { + $borrowernumber = C4::Context->userenv->{'number'}; + } 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}; } - push @items2hide, GetHiddenItemnumbers({ items => \@all_items, borcat => $botcat }); + push @items2hide, GetHiddenItemnumbers({ items => \@all_items, borcat => $borcat }); if (scalar @items2hide == scalar @all_items ) { print $query->redirect("/cgi-bin/koha/errors/404.pl"); -- 2.1.4