|
Lines 673-681
Parameters:
Link Here
|
| 673 |
IP address where the end user request is being placed |
673 |
IP address where the end user request is being placed |
| 674 |
- pickup_location (Optional) |
674 |
- pickup_location (Optional) |
| 675 |
a branch code indicating the location to which to deliver the item for pickup |
675 |
a branch code indicating the location to which to deliver the item for pickup |
| 676 |
- needed_before_date (Optional) |
676 |
- start_date (Optional) |
| 677 |
date after which hold request is no longer needed |
677 |
date after which hold request is no longer needed if the document has not been made available |
| 678 |
- pickup_expiry_date (Optional) |
678 |
- expiry_date (Optional) |
| 679 |
date after which item returned to shelf if item is not picked up |
679 |
date after which item returned to shelf if item is not picked up |
| 680 |
|
680 |
|
| 681 |
=cut |
681 |
=cut |
|
Lines 728-733
sub HoldTitle {
Link Here
|
| 728 |
return { code => 'libraryNotPickupLocation' } unless $destination->pickup_location; |
728 |
return { code => 'libraryNotPickupLocation' } unless $destination->pickup_location; |
| 729 |
return { code => 'cannotBeTransferred' } unless $biblio->can_be_transferred({ to => $destination }); |
729 |
return { code => 'cannotBeTransferred' } unless $biblio->can_be_transferred({ to => $destination }); |
| 730 |
|
730 |
|
|
|
731 |
my $resdate; |
| 732 |
if ( $cgi->param('start_date') ) { |
| 733 |
$resdate = $cgi->param('start_date'); |
| 734 |
} |
| 735 |
|
| 736 |
my $expdate; |
| 737 |
if ( $cgi->param('expiry_date') ) { |
| 738 |
$expdate = $cgi->param('expiry_date'); |
| 739 |
} |
| 740 |
|
| 731 |
# Add the reserve |
741 |
# Add the reserve |
| 732 |
# $branch, $borrowernumber, $biblionumber, |
742 |
# $branch, $borrowernumber, $biblionumber, |
| 733 |
# $constraint, $bibitems, $priority, $resdate, $expdate, $notes, |
743 |
# $constraint, $bibitems, $priority, $resdate, $expdate, $notes, |
|
Lines 735-745
sub HoldTitle {
Link Here
|
| 735 |
my $priority= C4::Reserves::CalculatePriority( $biblionumber ); |
745 |
my $priority= C4::Reserves::CalculatePriority( $biblionumber ); |
| 736 |
AddReserve( |
746 |
AddReserve( |
| 737 |
{ |
747 |
{ |
| 738 |
branch => $branch, |
748 |
branch => $branch, |
| 739 |
borrowernumber => $borrowernumber, |
749 |
borrowernumber => $borrowernumber, |
| 740 |
biblionumber => $biblionumber, |
750 |
biblionumber => $biblionumber, |
| 741 |
priority => $priority, |
751 |
priority => $priority, |
| 742 |
title => $title, |
752 |
reservation_date => $resdate, |
|
|
753 |
expiration_date => $expdate, |
| 754 |
title => $title, |
| 743 |
} |
755 |
} |
| 744 |
); |
756 |
); |
| 745 |
|
757 |
|
|
Lines 769-777
Parameters:
Link Here
|
| 769 |
an itemnumber |
781 |
an itemnumber |
| 770 |
- pickup_location (Optional) |
782 |
- pickup_location (Optional) |
| 771 |
a branch code indicating the location to which to deliver the item for pickup |
783 |
a branch code indicating the location to which to deliver the item for pickup |
| 772 |
- needed_before_date (Optional) |
784 |
- start_date (Optional) |
| 773 |
date after which hold request is no longer needed |
785 |
date after which hold request is no longer needed if the item has not been made available |
| 774 |
- pickup_expiry_date (Optional) |
786 |
- expiry_date (Optional) |
| 775 |
date after which item returned to shelf if item is not picked up |
787 |
date after which item returned to shelf if item is not picked up |
| 776 |
|
788 |
|
| 777 |
=cut |
789 |
=cut |
|
Lines 815-830
sub HoldItem {
Link Here
|
| 815 |
my $canitembereserved = C4::Reserves::CanItemBeReserved( $borrowernumber, $itemnumber, $branch )->{status}; |
827 |
my $canitembereserved = C4::Reserves::CanItemBeReserved( $borrowernumber, $itemnumber, $branch )->{status}; |
| 816 |
return { code => $canitembereserved } unless $canitembereserved eq 'OK'; |
828 |
return { code => $canitembereserved } unless $canitembereserved eq 'OK'; |
| 817 |
|
829 |
|
|
|
830 |
my $resdate; |
| 831 |
if ( $cgi->param('start_date') ) { |
| 832 |
$resdate = $cgi->param('start_date'); |
| 833 |
} |
| 834 |
|
| 835 |
my $expdate; |
| 836 |
if ( $cgi->param('expiry_date') ) { |
| 837 |
$expdate = $cgi->param('expiry_date'); |
| 838 |
} |
| 839 |
|
| 818 |
# Add the reserve |
840 |
# Add the reserve |
| 819 |
my $priority = C4::Reserves::CalculatePriority($biblionumber); |
841 |
my $priority = C4::Reserves::CalculatePriority($biblionumber); |
| 820 |
AddReserve( |
842 |
AddReserve( |
| 821 |
{ |
843 |
{ |
| 822 |
branch => $branch, |
844 |
branch => $branch, |
| 823 |
borrowernumber => $borrowernumber, |
845 |
borrowernumber => $borrowernumber, |
| 824 |
biblionumber => $biblionumber, |
846 |
biblionumber => $biblionumber, |
| 825 |
priority => $priority, |
847 |
priority => $priority, |
| 826 |
title => $title, |
848 |
reservation_date => $resdate, |
| 827 |
itemnumber => $itemnumber, |
849 |
expiration_date => $expdate, |
|
|
850 |
title => $title, |
| 851 |
itemnumber => $itemnumber, |
| 828 |
} |
852 |
} |
| 829 |
); |
853 |
); |
| 830 |
|
854 |
|