From 3807dd7b19de3f400a956c573d8f3369837ba7f4 Mon Sep 17 00:00:00 2001 From: Nahuel ANGELINETTI Date: Thu, 5 Nov 2009 16:59:07 +0100 Subject: [PATCH] (bug #3772) show place hold button in isbd view This fix the isbd view to show the "place hold" button. Signed-off-by: Galen Charlton --- opac/opac-ISBDdetail.pl | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl index 9b5c031172..4883e89321 100755 --- a/opac/opac-ISBDdetail.pl +++ b/opac/opac-ISBDdetail.pl @@ -50,6 +50,7 @@ use C4::Output; use CGI; use MARC::Record; use C4::Biblio; +use C4::Items; use C4::Acquisition; use C4::Review; use C4::Serials; # uses getsubscriptionfrom biblionumber @@ -123,9 +124,19 @@ $template->param( subscriptionsnumber => $subscriptionsnumber, ); -# my @blocs = split /\@/,$ISBD; -# my @fields = $record->fields(); +my $norequests = 1; my $res = GetISBDView($biblionumber, "opac"); +my @items = &GetItemsInfo($biblionumber, 'opac'); + +my $itemtypes = GetItemTypes(); +for my $itm (@items) { + $norequests = 0 + if ( (not $itm->{'wthdrawn'} ) + && (not $itm->{'itemlost'} ) + && ($itm->{'itemnotforloan'}<0 || not $itm->{'itemnotforloan'} ) + && (not $itemtypes->{$itm->{'itype'}}->{notforloan} ) + && ($itm->{'itemnumber'} ) ); +} my $reviews = getreviews( $biblionumber, 1 ); foreach ( @$reviews ) { @@ -139,6 +150,9 @@ foreach ( @$reviews ) { $template->param( + RequestOnOpac => C4::Context->preference("RequestOnOpac"), + AllowOnShelfHolds => C4::Context->preference('AllowOnShelfHolds'), + norequests => $norequests, ISBD => $res, biblionumber => $biblionumber, reviews => $reviews, -- 2.39.5