|
Lines 25-31
use C4::Items qw( get_hostitemnumbers_of );
Link Here
|
| 25 |
use C4::Circulation qw( CanBookBeRenewed barcodedecode CanBookBeIssued AddRenewal ); |
25 |
use C4::Circulation qw( CanBookBeRenewed barcodedecode CanBookBeIssued AddRenewal ); |
| 26 |
use C4::Accounts; |
26 |
use C4::Accounts; |
| 27 |
use C4::Biblio qw( GetMarcBiblio ); |
27 |
use C4::Biblio qw( GetMarcBiblio ); |
| 28 |
use C4::Reserves qw( CanBookBeReserved IsAvailableForItemLevelRequest CalculatePriority AddReserve CanItemBeReserved ); |
28 |
use C4::Reserves qw( CanBookBeReserved IsAvailableForItemLevelRequest CalculatePriority AddReserve CanItemBeReserved ReservesOnSamePeriod); |
| 29 |
use C4::Context; |
29 |
use C4::Context; |
| 30 |
use C4::Auth; |
30 |
use C4::Auth; |
| 31 |
use CGI qw ( -utf8 ); |
31 |
use CGI qw ( -utf8 ); |
|
Lines 785-790
sub HoldTitle {
Link Here
|
| 785 |
$expdate = $cgi->param('expiry_date'); |
785 |
$expdate = $cgi->param('expiry_date'); |
| 786 |
} |
786 |
} |
| 787 |
|
787 |
|
|
|
788 |
if (C4::Context->preference('PreventReservesOnSamePeriod') && ReservesOnSamePeriod($biblionumber, undef, $resdate, $expdate)) { |
| 789 |
return { code => 'NotHoldable' }; |
| 790 |
} |
| 791 |
|
| 788 |
# Add the reserve |
792 |
# Add the reserve |
| 789 |
# $branch, $borrowernumber, $biblionumber, |
793 |
# $branch, $borrowernumber, $biblionumber, |
| 790 |
# $constraint, $bibitems, $priority, $resdate, $expdate, $notes, |
794 |
# $constraint, $bibitems, $priority, $resdate, $expdate, $notes, |
|
Lines 887-892
sub HoldItem {
Link Here
|
| 887 |
$expdate = $cgi->param('expiry_date'); |
891 |
$expdate = $cgi->param('expiry_date'); |
| 888 |
} |
892 |
} |
| 889 |
|
893 |
|
|
|
894 |
if (C4::Context->preference('PreventReservesOnSamePeriod') && ReservesOnSamePeriod($biblionumber, $itemnumber, $resdate, $expdate)) { |
| 895 |
return { code => 'NotHoldable' }; |
| 896 |
} |
| 897 |
|
| 890 |
# Add the reserve |
898 |
# Add the reserve |
| 891 |
my $priority = C4::Reserves::CalculatePriority($biblionumber); |
899 |
my $priority = C4::Reserves::CalculatePriority($biblionumber); |
| 892 |
AddReserve( |
900 |
AddReserve( |
| 893 |
- |
|
|