Lines 429-435
See CanItemBeReserved() for possible return values.
Link Here
|
429 |
sub CanBookBeReserved{ |
429 |
sub CanBookBeReserved{ |
430 |
my ($borrowernumber, $biblionumber) = @_; |
430 |
my ($borrowernumber, $biblionumber) = @_; |
431 |
|
431 |
|
432 |
my $items = GetItemnumbersForBiblio($biblionumber); |
432 |
my $items = C4::Items::GetItemnumbersForBiblio($biblionumber); |
433 |
#get items linked via host records |
433 |
#get items linked via host records |
434 |
my @hostitems = get_hostitemnumbers_of($biblionumber); |
434 |
my @hostitems = get_hostitemnumbers_of($biblionumber); |
435 |
if (@hostitems){ |
435 |
if (@hostitems){ |
Lines 468-474
sub CanItemBeReserved {
Link Here
|
468 |
|
468 |
|
469 |
# we retrieve borrowers and items informations # |
469 |
# we retrieve borrowers and items informations # |
470 |
# item->{itype} will come for biblioitems if necessery |
470 |
# item->{itype} will come for biblioitems if necessery |
471 |
my $item = GetItem($itemnumber); |
471 |
my $item = C4::Items::GetItem($itemnumber); |
472 |
my $biblioData = C4::Biblio::GetBiblioData( $item->{biblionumber} ); |
472 |
my $biblioData = C4::Biblio::GetBiblioData( $item->{biblionumber} ); |
473 |
my $borrower = C4::Members::GetMember( 'borrowernumber' => $borrowernumber ); |
473 |
my $borrower = C4::Members::GetMember( 'borrowernumber' => $borrowernumber ); |
474 |
|
474 |
|
Lines 652-658
sub GetOtherReserves {
Link Here
|
652 |
my $nextreservinfo; |
652 |
my $nextreservinfo; |
653 |
my ( undef, $checkreserves, undef ) = CheckReserves($itemnumber); |
653 |
my ( undef, $checkreserves, undef ) = CheckReserves($itemnumber); |
654 |
if ($checkreserves) { |
654 |
if ($checkreserves) { |
655 |
my $iteminfo = GetItem($itemnumber); |
655 |
my $iteminfo = C4::Items::GetItem($itemnumber); |
656 |
if ( $iteminfo->{'holdingbranch'} ne $checkreserves->{'branchcode'} ) { |
656 |
if ( $iteminfo->{'holdingbranch'} ne $checkreserves->{'branchcode'} ) { |
657 |
$messages->{'transfert'} = $checkreserves->{'branchcode'}; |
657 |
$messages->{'transfert'} = $checkreserves->{'branchcode'}; |
658 |
#minus priorities of others reservs |
658 |
#minus priorities of others reservs |
659 |
- |
|
|