|
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 |
- |
|
|