push @CGIbranchlooparray, \%line;
}
}
-@CGIbranchlooparray = sort { $a->{branch} cmp $b->{branch} } @CGIbranchlooparray;
+@CGIbranchlooparray =
+ sort { $a->{branch} cmp $b->{branch} } @CGIbranchlooparray;
my $CGIbranchloop = \@CGIbranchlooparray;
$template->param( CGIbranch => $CGIbranchloop );
$itm->{'itemtype'} = $itm->{'itype'} if(C4::Context->preference('item-level_itypes'));
$itemhash{$itm->{'itemnumber'}}=$itm;
if (!$itm->{'notforloan'} && !($itm->{'itemnotforloan'} > 0)){
- $forloan=1;
- }
+ $forloan=1;
+ }
}
if ( $query->param('place_reserve') ) {
my $notes=$query->param('notes');
my $checkitem=$query->param('checkitem');
my $found;
+ my $canreserve=0;
-# #if we have an item selectionned, and the pickup branch is the same as the holdingbranch of the document, we force the value $rank and $found.
-# if ($checkitem ne ''){
-# $rank = '0' unless C4::Context->preference('ReservesNeedReturns');
-# my $item = $checkitem;
-# $item = GetItem($item);
-# if ( $item->{'holdingbranch'} eq $branch ){
-# $found = 'W' unless C4::Context->preference('ReservesNeedReturns');
- my @selectedItems = split /\//, $selectedItems;
-
- # 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);
- }
-
- 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'};
+ #if we have an item selectionned, and the pickup branch is the same as the holdingbranch of the document, we force the value $rank and $found.
+ if ($checkitem ne ''){
+ $rank = '0' unless C4::Context->preference('ReservesNeedReturns');
+ my $item = $checkitem;
+ $item = GetItem($item);
+ if ( $item->{'holdingbranch'} eq $branch ){
+ $found = 'W' unless C4::Context->preference('ReservesNeedReturns');
}
}
$i2++;
}
}
- # here we actually do the reserveration. Stage 3.
- if ($query->param('request') eq 'any'){
- # place a request on 1st available
- AddReserve($branch,$borrowernumber,$biblionumber,'a',\@realbi,$rank,$notes,$bibdata->{'title'},$checkitem,$found);
- } else {
- AddReserve($branch,$borrowernumber,$biblionumber,'a',\@realbi,$rank,$notes,$bibdata->{'title'},$checkitem, $found);
+
+ if ($checkitem ne ''){
+ $canreserve = 1 if CanItemBeReserved($borrowernumber,$checkitem);
+ $rank = '0' unless C4::Context->preference('ReservesNeedReturns');
+ my $item = GetItem($checkitem);
+ if ( $item->{'holdingbranch'} eq $branch ){
+ $found = 'W' unless C4::Context->preference('ReservesNeedReturns');
+ }
+ }
+ else {
+ $canreserve = 1 if CanBookBeReserved($borrowernumber,$biblionumber);
+ # Inserts a null into the 'itemnumber' field of 'reserves' table.
+ $checkitem = undef;
}
+
+ # here we actually do the reserveration. Stage 3.
+ AddReserve($branch,$borrowernumber,$biblionumber,'a',\@realbi,$rank,$notes,
+ $bibdata->{'title'},$checkitem, $found) if ($canreserve);
print $query->redirect("/cgi-bin/koha/opac-user.pl#opac-user-holds");
}
else {
}
my @bibitemloop;
+my $num_available = 0;
foreach my $biblioitemnumber (@biblioitemnumbers) {
my $biblioitem = $biblioiteminfos_of->{$biblioitemnumber};
- # Get relevant biblio data.
- my $biblioData = $biblioDataHash{$biblioNum};
- if (! $biblioData) {
- $template->param(message=>1, bad_biblionumber=>$biblioNum);
- &get_out($query, $cookie, $template->output);
- }
+ $biblioitem->{description} =
+ $itemtypes->{ $biblioitem->{itemtype} }{description};
foreach
my $itemnumber ( @{ $itemnumbers_of_biblioitem{$biblioitemnumber} } )
$branches->{ $item->{holdingbranch} }{branchname};
}
- if (!$itemInfo->{'notforloan'} && !($itemInfo->{'itemnotforloan'} > 0)) {
- $biblioLoopIter{forloan} = 1;
- }
- }
-
- $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->{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);
+# add information
+ $item->{itemcallnumber} = $item->{itemcallnumber};
+
+ # if the item is currently on loan, we display its return date and
+ # change the background color
+ my $issues= GetItemIssue($itemnumber);
if ( $issues->{'date_due'} ) {
$item->{date_due} = format_date($issues->{'date_due'});
$item->{backgroundcolor} = 'onloan';
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;
+ $item->{backgroundcolor} = 'reserved';
+ $item->{reservedate} = format_date($reservedate);
+ $item->{ReservedForBorrowernumber} = $reservedfor;
+ $item->{ReservedForSurname} = $ItemBorrowerReserveInfo->{'surname'};
+ $item->{ReservedForFirstname} = $ItemBorrowerReserveInfo->{'firstname'};
+ $item->{ExpectedAtLibrary} = $expectedAt;
+
}
# Management of the notforloan document
# If there is no loan, return and transfer, we show a checkbox.
$item->{notforloan} = $item->{notforloan} || 0;
- if (IsAvailableForItemLevelRequest($itemnumber)) {
+ my $branch = C4::Circulation::_GetCircControlBranch($item, $borr);
+
+ my $branchitemrule = GetBranchItemRule( $branch, $item->{'itemtype'} );
+
+ my $policy_holdallowed = 1;
+
+ if ( $branchitemrule->{'holdallowed'} == 0 ||
+ ( $branchitemrule->{'holdallowed'} == 1 && $borr->{'branchcode'} ne $item->{'homebranch'} ) ) {
+ $policy_holdallowed = 0;
+ }
+
+ if (IsAvailableForItemLevelRequest($itemnumber) and $policy_holdallowed and CanItemBeReserved($borrowernumber,$itemnumber)) {
$item->{available} = 1;
+ $num_available++;
}
# FIXME: move this to a pm
while (my $wait_hashref = $sth2->fetchrow_hashref) {
$item->{waitingdate} = format_date($wait_hashref->{waitingdate});
}
- $itemLoopIter->{imageurl} = getitemtypeimagelocation( 'opac', $itemTypes->{ $itemInfo->{itype} }{imageurl} );
-
- push @{$biblioLoopIter{itemLoop}}, $itemLoopIter;
- }
+
+ $item->{imageurl} = getitemtypeimagelocation( 'opac', $itemtypes->{ $item->{itype} }{imageurl} );
- if ($numCopiesAvailable > 0) {
- $numBibsAvailable++;
- $biblioLoopIter{bib_available} = 1;
- $biblioLoopIter{holdable} = 1;
+ push @{ $biblioitem->{itemloop} }, $item;
}
- if ($biblioLoopIter{already_reserved}) {
- $biblioLoopIter{holdable} = undef;
+
+ if(not CanBookBeReserved($borrowernumber,$biblionumber)){
+ $biblioitem->{available} = undef;
+ $biblioitem->{notholdable} = 1;
}
-
+
push @bibitemloop, $biblioitem;
}
-if ( $numBibsAvailable == 0 ) {
- $template->param( none_available => 1, message => 1 );
-}
-
-my $itemTableColspan = 5;
-if (!$template->param('OPACItemHolds')) {
- $itemTableColspan--;
-}
-if ($template->param('singleBranchMode')) {
- $itemTableColspan--;
+if ( $num_available == 0 ) {
+ $template->param( none_available => 1, message => 1 );
}
-$template->param(itemtable_colspan => $itemTableColspan);
# display infos
$template->param(
);
output_html_with_http_headers $query, $cookie, $template->output;
+# Local Variables:
+# tab-width: 8
+# End:
projects / koha.git / blobdiff