X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=opac%2Fopac-reserve.pl;h=699179b74b249077f994333cd83f797f98d28cf2;hb=bb032138e72a6428e404d9f3593430b7fd989f45;hp=5233e9b1ff2d9b890c710ae7152923089582f6b6;hpb=52a5fd4bbd16fb70dafadbb6ebcdf4dd6d6e929c;p=koha_fer diff --git a/opac/opac-reserve.pl b/opac/opac-reserve.pl index 5233e9b1ff..699179b74b 100755 --- a/opac/opac-reserve.pl +++ b/opac/opac-reserve.pl @@ -1,228 +1,498 @@ #!/usr/bin/perl + +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + use strict; -require Exporter; +use warnings; use CGI; - -use C4::Search; -use C4::Auth; # checkauth, getborrowernumber. +use C4::Auth; # checkauth, getborrowernumber. use C4::Koha; -use C4::Circulation::Circ2; -use C4::Reserves2; -use HTML::Template; +use C4::Circulation; +use C4::Reserves; +use C4::Biblio; +use C4::Items; +use C4::Output; +use C4::Dates qw/format_date/; +use C4::Context; +use C4::Members; +use C4::Branch; # GetBranches +use C4::Debug; +# use Data::Dumper; -my $MAXIMUM_NUMBER_OF_RESERVES = 5; +my $MAXIMUM_NUMBER_OF_RESERVES = C4::Context->preference("maxreserves"); my $query = new CGI; -my ($template, $borrowernumber, $cookie) - = get_template_and_user({template_name => "opac-reserve.tmpl", - query => $query, - type => "opac", - authnotrequired => 0, - flagsrequired => {borrow => 1}, - debug => 1, - }); +my ( $template, $borrowernumber, $cookie ) = get_template_and_user( + { + template_name => "opac-reserve.tmpl", + query => $query, + type => "opac", + authnotrequired => 0, + flagsrequired => { borrow => 1 }, + debug => 1, + } +); +my $OPACDisplayRequestPriority = (C4::Context->preference("OPACDisplayRequestPriority")) ? 1 : 0; +sub get_out ($$$) { + output_html_with_http_headers(shift,shift,shift); # $query, $cookie, $template->output; + exit; +} # get borrower information .... -my ($borr, $flags) = getpatroninformation(undef, $borrowernumber); -my @bordat; -$bordat[0] = $borr; -$template->param(BORROWER_INFO => \@bordat); +my ( $borr ) = GetMemberDetails( $borrowernumber ); -# get biblionumber..... -my $biblionumber = $query->param('bib'); -$template->param(biblionumber => $biblionumber); +# get branches and itemtypes +my $branches = GetBranches(); +my $itemTypes = GetItemTypes(); -my $bibdata = bibdata($biblionumber); -$template->param($bibdata); +# There are two ways of calling this script, with a single biblio num +# or multiple biblio nums. +my $biblionumbers = $query->param('biblionumbers'); +my $reserveMode = $query->param('reserve_mode'); +if ($reserveMode && ($reserveMode eq 'single')) { + my $bib = $query->param('single_bib'); + $biblionumbers = "$bib/"; +} +if (! $biblionumbers) { + $biblionumbers = $query->param('biblionumber'); +} -# get the rank number.... -my ($rank,$reserves) = FindReserves($biblionumber); -$template->param(reservecount => $rank); +if ((! $biblionumbers) && (! $query->param('place_reserve'))) { + $template->param(message=>1, no_biblionumber=>1); + &get_out($query, $cookie, $template->output); +} -foreach my $res (@$reserves) { - if ($res->{'found'} eq 'W') { - $rank--; - } +# Pass the numbers to the page so they can be fed back +# when the hold is confirmed. TODO: Not necessary? +$template->param( biblionumbers => $biblionumbers ); + +# Each biblio number is suffixed with '/', e.g. "1/2/3/" +my @biblionumbers = split /\//, $biblionumbers; +if (($#biblionumbers < 0) && (! $query->param('place_reserve'))) { + # TODO: New message? + $template->param(message=>1, no_biblionumber=>1); + &get_out($query, $cookie, $template->output); } +# pass the pickup branch along.... +my $branch = $query->param('branch') || C4::Context->userenv->{branch} || '' ; +($branches->{$branch}) or $branch = ""; # Confirm branch is real +$template->param( branch => $branch ); +# make branch selection options... +my $CGIbranchloop = GetBranchesLoop($branch); +$template->param( CGIbranch => $CGIbranchloop ); -$rank++; -$template->param(rank => $rank); +# +# +# Build hashes of the requested biblio(item)s and items. +# +# +# Hash of biblionumber to biblio/biblioitems record. +my %biblioDataHash; -# pass the pickup branch along.... -my $branch = $query->param('branch'); -$template->param(branch => $branch); +# Hash of itemnumber to item info. +my %itemInfoHash; -my $branches = getbranches(); -$template->param(branchname => $branches->{$branch}->{'branchname'}); +foreach my $biblioNumber (@biblionumbers) { + my $biblioData = GetBiblioData($biblioNumber); + $biblioDataHash{$biblioNumber} = $biblioData; -# make branch selection options... -my $branchoptions = ''; -my @branches; -foreach my $br (keys %$branches) { - (next) unless $branches->{$br}->{'IS'}; - my $selected = ""; - if ($br eq $branch) { - $selected = "selected"; + my @itemInfos = GetItemsInfo($biblioNumber); + $biblioData->{itemInfos} = \@itemInfos; + foreach my $itemInfo (@itemInfos) { + $itemInfoHash{$itemInfo->{itemnumber}} = $itemInfo; } - $branchoptions .= "\n"; - push @branches, {branchcode => $br, branchname => $branches->{$br}->{'branchname'}, selected => $selected}; -} -$template->param( branchoptions => $branchoptions); -$template->param(BRANCHES => \@branches); - -#### THIS IS A BIT OF A HACK BECAUSE THE BIBLIOITEMS DATA IS A LITTLE MESSED UP! -# get the itemtype data.... -my @items = ItemInfo(undef, $biblionumber, 'opac'); -my @temp; -foreach my $itm (@items) { - push @temp, $itm if $itm->{'itemtype'}; -} -@items = @temp; -my $itemcount = @items; -$template->param(itemcount => $itemcount); - -my %types; -my %itemtypes; -my @duedates; -foreach my $itm (@items) { - push @duedates, {date_due => slashifyDate($itm->{'date_due'})} if defined $itm->{'date_due'}; - $itm->{$itm->{'publictype'}} = 1; - my $fee = CalcReserveFee(undef, $borrowernumber, $itm->{'biblionumber'},'a',($itm->{'biblioitemnumber'})); - $fee = sprintf "%.02f", $fee; - $itm->{'reservefee'} = $fee; - my $pty = $itm->{'publictype'}; - $itemtypes{$itm->{'itemtype'}} = $itm; - unless ($types {$pty}) { - $types{$pty}->{'count'} = 1; - $types{$pty}->{$itm->{'itemtype'}} = 1; - push @{$types{$pty}->{'items'}}, $itm; - } else { - unless ($types{$pty}->{$itm->{'itemtype'}}) { - $types{$pty}->{'count'}++; - $types{$pty}->{$itm->{'itemtype'}} = 1; - push @{$types{$pty}->{'items'}}, $itm; - } + + # Compute the priority rank. + my ( $rank, $reserves ) = GetReservesFromBiblionumber($biblioNumber,1); + $biblioData->{reservecount} = $rank; + foreach my $res (@$reserves) { + my $found = $res->{'found'}; + if ( $found && ($found eq 'W') ) { + $rank--; + } } + $rank++; + $biblioData->{rank} = $rank; } +# +# +# If this is the second time through this script, it +# means we are carrying out the hold request, possibly +# with a specific item for each biblionumber. +# +# +if ( $query->param('place_reserve') ) { + my $notes = $query->param('notes'); + my $canreserve=0; -$template->param(ITEMS => \@duedates); + # List is composed of alternating biblio/item/branch + my $selectedItems = $query->param('selecteditems'); -my $width = keys %types; -my @publictypes = sort {$b->{'count'} <=> $a->{'count'}} values %types; -my $typecount; -foreach my $pt (@publictypes) { - $typecount += $pt->{'count'}; -} -$template->param(onlyone => 1) if $typecount == 1; + if ($query->param('reserve_mode') eq 'single') { + # This indicates non-JavaScript mode, so there was + # only a single biblio number selected. + my $bib = $query->param('single_bib'); + my $item = $query->param("checkitem_$bib"); + if ($item eq 'any') { + $item = ''; + } + my $branch = $query->param('branch'); + $selectedItems = "$bib/$item/$branch/"; + } -my @typerows; -for (my $rownum=0;$rownum<$publictypes[0]->{'count'} ;$rownum++) { - my @row; - foreach my $pty (@publictypes) { - my @items = @{$pty->{'items'}}; - push @row, $items[$rownum] if defined $items[$rownum]; + $selectedItems =~ s!/$!!; + my @selectedItems = split /\//, $selectedItems, -1; + + # Make sure there is a biblionum/itemnum/branch triplet for each item. + # The itemnum can be 'any', meaning next available. + my $selectionCount = @selectedItems; + if (($selectionCount == 0) || (($selectionCount % 3) != 0)) { + $template->param(message=>1, bad_data=>1); + &get_out($query, $cookie, $template->output); } - my $last = @row; - $row[$last-1]->{'last'} =1 if $last == $width; - my $fill = ($width - $last)*2; - $fill-- if $fill; - push @typerows, {ROW => \@row, fill => $fill}; -} -$template->param(TYPE_ROWS => \@typerows); -$width = 2*$width -1; -$template->param(totalwidth => 2*$width-1); - -if ($query->param('item_types_selected')) { -# this is what happens after the itemtypes have been selected. Stage 2 - my @itemtypes = $query->param('itemtype'); - my $fee = 0; - my $proceed = 0; - if (@itemtypes) { - my %newtypes; - foreach my $itmtype (@itemtypes) { - $newtypes{$itmtype} = $itemtypes{$itmtype}; - } - my @types = values %newtypes; - $template->param(TYPES => \@types); - foreach my $type (@itemtypes) { - my @reqbibs; - foreach my $item (@items) { - if ($item->{'itemtype'} eq $type) { - push @reqbibs, $item->{'biblioitemnumber'}; - } - } - $fee += CalcReserveFee(undef,$borrowernumber,$biblionumber,'o',\@reqbibs); + + while (@selectedItems) { + my $biblioNum = shift(@selectedItems); + my $itemNum = shift(@selectedItems); + my $branch = shift(@selectedItems); # i.e., branch code, not name + + my $singleBranchMode = $template->param('singleBranchMode'); + if ($singleBranchMode) { + $branch = $borr->{'branchcode'}; + } + + my $biblioData = $biblioDataHash{$biblioNum}; + my $found; + + # Check for user supplied reserve date + my $startdate; + if ( + C4::Context->preference( 'AllowHoldDateInFuture' ) && + C4::Context->preference( 'OPACAllowHoldDateInFuture' ) + ) { + $startdate = $query->param("reserve_date_$biblioNum"); } - $proceed = 1; - } elsif ($query->param('all')) { - $template->param(all => 1); - $fee = 1; - $proceed = 1; + + my $expiration_date = $query->param("expiration_date_$biblioNum"); + + # If a specific item was selected and the pickup branch is the same as the + # holdingbranch, force the value $rank and $found. + my $rank = $biblioData->{rank}; + if ($itemNum ne ''){ + $canreserve = 1 if CanItemBeReserved($borrowernumber,$itemNum); + $rank = '0' unless C4::Context->preference('ReservesNeedReturns'); + my $item = GetItem($itemNum); + if ( $item->{'holdingbranch'} eq $branch ){ + $found = 'W' unless C4::Context->preference('ReservesNeedReturns'); + } + } + else { + $canreserve = 1 if CanBookBeReserved($borrowernumber,$biblioNum); + # Inserts a null into the 'itemnumber' field of 'reserves' table. + $itemNum = undef; + } + + # Here we actually do the reserveration. Stage 3. + AddReserve($branch, $borrowernumber, $biblioNum, 'a', [$biblioNum], $rank, $startdate, $expiration_date, $notes, + $biblioData->{'title'}, $itemNum, $found) if ($canreserve); } - if ($proceed) { - $fee = sprintf "%.02f", $fee; - $template->param(fee => $fee); - $template->param(item_types_selected => 1); - } else { - $template->param(message => 1); - $template->param(no_items_selected => 1); + + print $query->redirect("/cgi-bin/koha/opac-user.pl#opac-user-holds"); + exit; +} + +# +# +# Here we check that the borrower can actually make reserves Stage 1. +# +# +my $noreserves = 0; +my $maxoutstanding = C4::Context->preference("maxoutstanding"); +$template->param( noreserve => 1 ) unless $maxoutstanding; +if ( $borr->{'amountoutstanding'} && ($borr->{'amountoutstanding'} > $maxoutstanding) ) { + my $amount = sprintf "\$%.02f", $borr->{'amountoutstanding'}; + $template->param( message => 1 ); + $noreserves = 1; + $template->param( too_much_oweing => $amount ); +} +if ( $borr->{gonenoaddress} && ($borr->{gonenoaddress} eq 1) ) { + $noreserves = 1; + $template->param( + message => 1, + GNA => 1 + ); +} +if ( $borr->{lost} && ($borr->{lost} eq 1) ) { + $noreserves = 1; + $template->param( + message => 1, + lost => 1 + ); +} +if ( $borr->{debarred} && ($borr->{debarred} eq 1) ) { + $noreserves = 1; + $template->param( + message => 1, + debarred => 1 + ); +} + +my @reserves = GetReservesFromBorrowernumber( $borrowernumber ); +$template->param( RESERVES => \@reserves ); +if ( $MAXIMUM_NUMBER_OF_RESERVES && (scalar(@reserves) >= $MAXIMUM_NUMBER_OF_RESERVES) ) { + $template->param( message => 1 ); + $noreserves = 1; + $template->param( too_many_reserves => scalar(@reserves)); +} +foreach my $res (@reserves) { + foreach my $biblionumber (@biblionumbers) { + if ( $res->{'biblionumber'} == $biblionumber && $res->{'borrowernumber'} == $borrowernumber) { +# $template->param( message => 1 ); +# $noreserves = 1; +# $template->param( already_reserved => 1 ); + $biblioDataHash{$biblionumber}->{already_reserved} = 1; + } } +} +unless ($noreserves) { + $template->param( select_item_types => 1 ); +} -} elsif ($query->param('place_reserve')) { -# here we actually do the reserveration. Stage 3. - my $title = $bibdata->{'title'}; - my @itemtypes = $query->param('itemtype'); - foreach my $type (@itemtypes) { - my @reqbibs; - foreach my $item (@items) { - if ($item->{'itemtype'} eq $type) { - push @reqbibs, $item->{'biblioitemnumber'}; - } - } - CreateReserve(undef,$branch,$borrowernumber,$biblionumber,'o',\@reqbibs,$rank,'',$title); + +# +# +# Build the template parameters that will show the info +# and items for each biblionumber. +# +# +my $notforloan_label_of = get_notforloan_label_of(); + +my $biblioLoop = []; +my $numBibsAvailable = 0; +my $itemdata_enumchron = 0; +my $itemLevelTypes = C4::Context->preference('item-level_itypes'); +$template->param('item-level_itypes' => $itemLevelTypes); + +foreach my $biblioNum (@biblionumbers) { + + my $record = GetMarcBiblio($biblioNum); + # Init the bib item with the choices for branch pickup + my %biblioLoopIter = ( branchChoicesLoop => $CGIbranchloop ); + + # Get relevant biblio data. + my $biblioData = $biblioDataHash{$biblioNum}; + if (! $biblioData) { + $template->param(message=>1, bad_biblionumber=>$biblioNum); + &get_out($query, $cookie, $template->output); } - if ($query->param('all')) { - CreateReserve(undef,$branch,$borrowernumber,$biblionumber,'a', undef, $rank,'',$title); + + $biblioLoopIter{biblionumber} = $biblioData->{biblionumber}; + $biblioLoopIter{title} = $biblioData->{title}; + $biblioLoopIter{subtitle} = GetRecordValue('subtitle', $record, GetFrameworkCode($biblioData->{biblionumber})); + $biblioLoopIter{author} = $biblioData->{author}; + $biblioLoopIter{rank} = $biblioData->{rank}; + $biblioLoopIter{reservecount} = $biblioData->{reservecount}; + $biblioLoopIter{already_reserved} = $biblioData->{already_reserved}; + + if (!$itemLevelTypes && $biblioData->{itemtype}) { + $biblioLoopIter{description} = $itemTypes->{$biblioData->{itemtype}}{description}; + $biblioLoopIter{imageurl} = getitemtypeimagesrc() . "/". $itemTypes->{$biblioData->{itemtype}}{imageurl}; } - print $query->redirect("/cgi-bin/koha/opac-user.pl"); -} else { -# Here we check that the borrower can actually make reserves Stage 1. - my $noreserves = 0; - if ($borr->{'amountoutstanding'} > 5) { - my $amount = sprintf "\$%.02f", $borr->{'amountoutstanding'}; - $template->param(message => 1); - $noreserves = 1; - $template->param(too_much_oweing => $amount); + + foreach my $itemInfo (@{$biblioData->{itemInfos}}) { + $debug and warn $itemInfo->{'notforloan'}; + + # Get reserve fee. + my $fee = GetReserveFee(undef, $borrowernumber, $itemInfo->{'biblionumber'}, 'a', + ( $itemInfo->{'biblioitemnumber'} ) ); + $itemInfo->{'reservefee'} = sprintf "%.02f", ($fee ? $fee : 0.0); + + if ($itemLevelTypes && $itemInfo->{itype}) { + $itemInfo->{description} = $itemTypes->{$itemInfo->{itype}}{description}; + $itemInfo->{imageurl} = getitemtypeimagesrc() . "/". $itemTypes->{$itemInfo->{itype}}{imageurl}; + } + + if (!$itemInfo->{'notforloan'} && !($itemInfo->{'itemnotforloan'} > 0)) { + $biblioLoopIter{forloan} = 1; + } } - my ($resnum, $reserves) = FindReserves(undef, $borrowernumber); - $template->param(RESERVES => $reserves); - if ($resnum >= $MAXIMUM_NUMBER_OF_RESERVES) { - $template->param(message => 1); - $noreserves = 1; - $template->param(too_many_reserves => $resnum); + + $biblioLoopIter{itemTypeDescription} = $itemTypes->{$biblioData->{itemtype}}{description}; + + $biblioLoopIter{itemLoop} = []; + my $numCopiesAvailable = 0; + foreach my $itemInfo (@{$biblioData->{itemInfos}}) { + my $itemNum = $itemInfo->{itemnumber}; + my $itemLoopIter = {}; + + $itemLoopIter->{itemnumber} = $itemNum; + $itemLoopIter->{barcode} = $itemInfo->{barcode}; + $itemLoopIter->{homeBranchName} = $branches->{$itemInfo->{homebranch}}{branchname}; + $itemLoopIter->{callNumber} = $itemInfo->{itemcallnumber}; + $itemLoopIter->{enumchron} = $itemInfo->{enumchron}; + $itemLoopIter->{copynumber} = $itemInfo->{copynumber}; + if ($itemLevelTypes) { + $itemLoopIter->{description} = $itemInfo->{description}; + $itemLoopIter->{imageurl} = $itemInfo->{imageurl}; + } + + # If the holdingbranch is different than the homebranch, we show the + # holdingbranch of the document too. + if ( $itemInfo->{homebranch} ne $itemInfo->{holdingbranch} ) { + $itemLoopIter->{holdingBranchName} = + $branches->{ $itemInfo->{holdingbranch} }{branchname}; + } + + # If the item is currently on loan, we display its return date and + # change the background color. + my $issues= GetItemIssue($itemNum); + if ( $issues->{'date_due'} ) { + $itemLoopIter->{dateDue} = format_date($issues->{'date_due'}); + $itemLoopIter->{backgroundcolor} = 'onloan'; + } + + # checking reserve + my ($reservedate,$reservedfor,$expectedAt) = GetReservesFromItemnumber($itemNum); + my $ItemBorrowerReserveInfo = GetMemberDetails( $reservedfor, 0); + + if ( defined $reservedate ) { + $itemLoopIter->{backgroundcolor} = 'reserved'; + $itemLoopIter->{reservedate} = format_date($reservedate); + $itemLoopIter->{ReservedForBorrowernumber} = $reservedfor; + $itemLoopIter->{ReservedForSurname} = $ItemBorrowerReserveInfo->{'surname'}; + $itemLoopIter->{ReservedForFirstname} = $ItemBorrowerReserveInfo->{'firstname'}; + $itemLoopIter->{ExpectedAtLibrary} = $expectedAt; + } + + $itemLoopIter->{notforloan} = $itemInfo->{notforloan}; + $itemLoopIter->{itemnotforloan} = $itemInfo->{itemnotforloan}; + + # Management of the notforloan document + if ( $itemLoopIter->{notforloan} || $itemLoopIter->{itemnotforloan}) { + $itemLoopIter->{backgroundcolor} = 'other'; + $itemLoopIter->{notforloanvalue} = + $notforloan_label_of->{ $itemLoopIter->{notforloan} }; + } + + # Management of lost or long overdue items + if ( $itemInfo->{itemlost} ) { + + # FIXME localized strings should never be in Perl code + $itemLoopIter->{message} = + $itemInfo->{itemlost} == 1 ? "(lost)" + : $itemInfo->{itemlost} == 2 ? "(long overdue)" + : ""; + $itemInfo->{backgroundcolor} = 'other'; + } + + # Check of the transfered documents + my ( $transfertwhen, $transfertfrom, $transfertto ) = + GetTransfers($itemNum); + if ( $transfertwhen && ($transfertwhen ne '') ) { + $itemLoopIter->{transfertwhen} = format_date($transfertwhen); + $itemLoopIter->{transfertfrom} = + $branches->{$transfertfrom}{branchname}; + $itemLoopIter->{transfertto} = $branches->{$transfertto}{branchname}; + $itemLoopIter->{nocancel} = 1; + } + + # If there is no loan, return and transfer, we show a checkbox. + $itemLoopIter->{notforloan} = $itemLoopIter->{notforloan} || 0; + + my $branch = C4::Circulation::_GetCircControlBranch($itemLoopIter, $borr); + + my $branchitemrule = GetBranchItemRule( $branch, $itemInfo->{'itype'} ); + my $policy_holdallowed = 1; + + if ( $branchitemrule->{'holdallowed'} == 0 || + ( $branchitemrule->{'holdallowed'} == 1 && $borr->{'branchcode'} ne $itemInfo->{'homebranch'} ) ) { + $policy_holdallowed = 0; + } + + if (IsAvailableForItemLevelRequest($itemNum) and $policy_holdallowed and CanItemBeReserved($borrowernumber,$itemNum)) { + $itemLoopIter->{available} = 1; + $numCopiesAvailable++; + } + + # FIXME: move this to a pm + my $dbh = C4::Context->dbh; + my $sth2 = $dbh->prepare("SELECT * FROM reserves WHERE borrowernumber=? AND itemnumber=? AND found='W'"); + $sth2->execute($itemLoopIter->{ReservedForBorrowernumber}, $itemNum); + while (my $wait_hashref = $sth2->fetchrow_hashref) { + $itemLoopIter->{waitingdate} = format_date($wait_hashref->{waitingdate}); + } + $itemLoopIter->{imageurl} = getitemtypeimagelocation( 'opac', $itemTypes->{ $itemInfo->{itype} }{imageurl} ); + + # Show serial enumeration when needed + if ($itemLoopIter->{enumchron}) { + $itemdata_enumchron = 1; } - foreach my $res (@$reserves) { - if ($res->{'biblionumber'} == $biblionumber) { - $template->param(message => 1); - $noreserves = 1; - $template->param(already_reserved => 1); - } + $template->param( itemdata_enumchron => $itemdata_enumchron ); + + push @{$biblioLoopIter{itemLoop}}, $itemLoopIter; + } + + if ($numCopiesAvailable > 0) { + $numBibsAvailable++; + $biblioLoopIter{bib_available} = 1; + $biblioLoopIter{holdable} = 1; } - unless ($noreserves) { - $template->param(select_item_types => 1); + if ($biblioLoopIter{already_reserved}) { + $biblioLoopIter{holdable} = undef; } + if(not CanBookBeReserved($borrowernumber,$biblioNum)){ + $biblioLoopIter{holdable} = undef; + } + + push @$biblioLoop, \%biblioLoopIter; } -# check that you can actually make the reserve. +if ( $numBibsAvailable == 0 ) { + $template->param( none_available => 1, message => 1 ); +} +my $itemTableColspan = 5; +if (!$template->param('OPACItemHolds')) { + $itemTableColspan--; +} +if ($template->param('singleBranchMode')) { + $itemTableColspan--; +} +$template->param(itemtable_colspan => $itemTableColspan); -$template->param(BIBLIOITEMS => \@data); +# display infos +$template->param(bibitemloop => $biblioLoop); +$template->param( showpriority=>1 ) if $OPACDisplayRequestPriority; +# can set reserve date in future +if ( + C4::Context->preference( 'AllowHoldDateInFuture' ) && + C4::Context->preference( 'OPACAllowHoldDateInFuture' ) + ) { + $template->param( + reserve_in_future => 1, + ); +} +$template->param( DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar() ); output_html_with_http_headers $query, $cookie, $template->output; +