|
Lines 725-736
sub HoldTitle {
Link Here
|
| 725 |
return { code => 'libraryNotPickupLocation' } unless $destination->pickup_location; |
725 |
return { code => 'libraryNotPickupLocation' } unless $destination->pickup_location; |
| 726 |
return { code => 'cannotBeTransferred' } unless $biblio->can_be_transferred({ to => $destination }); |
726 |
return { code => 'cannotBeTransferred' } unless $biblio->can_be_transferred({ to => $destination }); |
| 727 |
|
727 |
|
|
|
728 |
my $resdate; |
| 729 |
if ( $cgi->param('needed_before_date') ) { |
| 730 |
$resdate = $cgi->param('needed_before_date'); |
| 731 |
} |
| 732 |
|
| 733 |
my $expdate; |
| 734 |
if ( $cgi->param('pickup_expiry_date') ) { |
| 735 |
$expdate = $cgi->param('pickup_expiry_date'); |
| 736 |
} |
| 737 |
|
| 728 |
# Add the reserve |
738 |
# Add the reserve |
| 729 |
# $branch, $borrowernumber, $biblionumber, |
739 |
# $branch, $borrowernumber, $biblionumber, |
| 730 |
# $constraint, $bibitems, $priority, $resdate, $expdate, $notes, |
740 |
# $constraint, $bibitems, $priority, $resdate, $expdate, $notes, |
| 731 |
# $title, $checkitem, $found |
741 |
# $title, $checkitem, $found |
| 732 |
my $priority= C4::Reserves::CalculatePriority( $biblionumber ); |
742 |
my $priority= C4::Reserves::CalculatePriority( $biblionumber ); |
| 733 |
AddReserve( $branch, $borrowernumber, $biblionumber, undef, $priority, undef, undef, undef, $title, undef, undef ); |
743 |
AddReserve( $branch, $borrowernumber, $biblionumber, undef, $priority, $resdate, $expdate, undef, $title, undef, undef ); |
| 734 |
|
744 |
|
| 735 |
# Hashref building |
745 |
# Hashref building |
| 736 |
my $out; |
746 |
my $out; |
|
Lines 801-812
sub HoldItem {
Link Here
|
| 801 |
my $canitembereserved = C4::Reserves::CanItemBeReserved( $borrowernumber, $itemnumber, $branch )->{status}; |
811 |
my $canitembereserved = C4::Reserves::CanItemBeReserved( $borrowernumber, $itemnumber, $branch )->{status}; |
| 802 |
return { code => $canitembereserved } unless $canitembereserved eq 'OK'; |
812 |
return { code => $canitembereserved } unless $canitembereserved eq 'OK'; |
| 803 |
|
813 |
|
|
|
814 |
my $resdate; |
| 815 |
if ( $cgi->param('needed_before_date') ) { |
| 816 |
$resdate = $cgi->param('needed_before_date'); |
| 817 |
} |
| 818 |
|
| 819 |
my $expdate; |
| 820 |
if ( $cgi->param('pickup_expiry_date') ) { |
| 821 |
$expdate = $cgi->param('pickup_expiry_date'); |
| 822 |
} |
| 823 |
|
| 804 |
# Add the reserve |
824 |
# Add the reserve |
| 805 |
# $branch, $borrowernumber, $biblionumber, |
825 |
# $branch, $borrowernumber, $biblionumber, |
| 806 |
# $constraint, $bibitems, $priority, $resdate, $expdate, $notes, |
826 |
# $constraint, $bibitems, $priority, $resdate, $expdate, $notes, |
| 807 |
# $title, $checkitem, $found |
827 |
# $title, $checkitem, $found |
| 808 |
my $priority= C4::Reserves::CalculatePriority( $biblionumber ); |
828 |
my $priority= C4::Reserves::CalculatePriority( $biblionumber ); |
| 809 |
AddReserve( $branch, $borrowernumber, $biblionumber, undef, $priority, undef, undef, undef, $title, $itemnumber, undef ); |
829 |
AddReserve( $branch, $borrowernumber, $biblionumber, undef, $priority, $resdate, $expdate, undef, $title, $itemnumber, undef ); |
| 810 |
|
830 |
|
| 811 |
# Hashref building |
831 |
# Hashref building |
| 812 |
my $out; |
832 |
my $out; |
| 813 |
- |
|
|