|
Lines 3307-3313
sub CanBookBeRenewed {
Link Here
|
| 3307 |
unless CanItemBeReserved( |
3307 |
unless CanItemBeReserved( |
| 3308 |
$patron_with_reserve, $other_item, undef, |
3308 |
$patron_with_reserve, $other_item, undef, |
| 3309 |
{ ignore_hold_counts => 1 } |
3309 |
{ ignore_hold_counts => 1 } |
| 3310 |
)->{status} eq 'OK'; |
3310 |
)->{status} eq 'OK'; |
| 3311 |
|
3311 |
|
| 3312 |
# NOTE: At checkin we call 'CheckReserves' which checks hold 'policy' |
3312 |
# NOTE: At checkin we call 'CheckReserves' which checks hold 'policy' |
| 3313 |
# CanItemBeReserved checks 'rules' and 'policies' which means |
3313 |
# CanItemBeReserved checks 'rules' and 'policies' which means |
|
Lines 3470-3477
sub AddRenewal {
Link Here
|
| 3470 |
my $itemtype = $item_object->effective_itemtype; |
3470 |
my $itemtype = $item_object->effective_itemtype; |
| 3471 |
unless ($datedue) { |
3471 |
unless ($datedue) { |
| 3472 |
|
3472 |
|
|
|
3473 |
my $renewal_base_pref = $automatic ? 'AutomaticRenewalPeriodBase' : 'ManualRenewalPeriodBase'; |
| 3474 |
|
| 3473 |
$datedue = |
3475 |
$datedue = |
| 3474 |
( C4::Context->preference('ManualRenewalPeriodBase') eq 'date_due' ) |
3476 |
( C4::Context->preference($renewal_base_pref) eq 'date_due' ) |
| 3475 |
? dt_from_string( $issue->date_due, 'sql' ) |
3477 |
? dt_from_string( $issue->date_due, 'sql' ) |
| 3476 |
: dt_from_string(); |
3478 |
: dt_from_string(); |
| 3477 |
$datedue = CalcDateDue( $datedue, $itemtype, $circ_library->branchcode, $patron, 'is a renewal' ); |
3479 |
$datedue = CalcDateDue( $datedue, $itemtype, $circ_library->branchcode, $patron, 'is a renewal' ); |
| 3478 |
- |
|
|