|
Lines 570-575
sub RenewLoan {
Link Here
|
| 570 |
return $out; |
570 |
return $out; |
| 571 |
} |
571 |
} |
| 572 |
|
572 |
|
|
|
573 |
sub _get_reserve_next_rank { |
| 574 |
my ($biblionumber) = @_; |
| 575 |
|
| 576 |
my ( $count, $reserves ) = GetReservesFromBiblionumber($biblionumber,1); |
| 577 |
foreach my $res (@$reserves) { |
| 578 |
$count-- if (defined $res->{found} and $res->{found} eq 'W'); |
| 579 |
} |
| 580 |
my $rank = $count + 1; |
| 581 |
|
| 582 |
return $rank; |
| 583 |
} |
| 584 |
|
| 573 |
=head2 HoldTitle |
585 |
=head2 HoldTitle |
| 574 |
|
586 |
|
| 575 |
Creates, for a borrower, a biblio-level hold reserve. |
587 |
Creates, for a borrower, a biblio-level hold reserve. |
|
Lines 620-628
sub HoldTitle {
Link Here
|
| 620 |
$branch = $$borrower{branchcode}; |
632 |
$branch = $$borrower{branchcode}; |
| 621 |
} |
633 |
} |
| 622 |
|
634 |
|
|
|
635 |
my $rank = _get_reserve_next_rank($biblionumber); |
| 636 |
|
| 623 |
# Add the reserve |
637 |
# Add the reserve |
| 624 |
# $branch, $borrowernumber, $biblionumber, $constraint, $bibitems, $priority, $notes, $title, $checkitem, $found |
638 |
# $branch, $borrowernumber, $biblionumber, $constraint, $bibitems, $priority, $notes, $title, $checkitem, $found |
| 625 |
AddReserve( $branch, $borrowernumber, $biblionumber, 'a', undef, 0, undef, $title, undef, undef ); |
639 |
AddReserve( $branch, $borrowernumber, $biblionumber, 'a', undef, $rank, undef, $title, undef, undef ); |
| 626 |
|
640 |
|
| 627 |
# Hashref building |
641 |
# Hashref building |
| 628 |
my $out; |
642 |
my $out; |
|
Lines 695-701
sub HoldItem {
Link Here
|
| 695 |
$branch = $$borrower{branchcode}; |
709 |
$branch = $$borrower{branchcode}; |
| 696 |
} |
710 |
} |
| 697 |
|
711 |
|
| 698 |
my $rank; |
712 |
my $rank = _get_reserve_next_rank($biblionumber); |
| 699 |
my $found; |
713 |
my $found; |
| 700 |
|
714 |
|
| 701 |
# Get rank and found |
715 |
# Get rank and found |
| 702 |
- |
|
|