From 3807dd7b19de3f400a956c573d8f3369837ba7f4 Mon Sep 17 00:00:00 2001
From: Nahuel ANGELINETTI <nahuel.angelinetti@biblibre.com>
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 <gmcharlt@gmail.com>
---
 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.20.1