|
Lines 709-716
sub CanBookBeIssued {
Link Here
|
| 709 |
unless ( $duedate ) { |
709 |
unless ( $duedate ) { |
| 710 |
my $issuedate = $now->clone(); |
710 |
my $issuedate = $now->clone(); |
| 711 |
|
711 |
|
| 712 |
my $branch = $circ_library; |
712 |
$duedate = CalcDateDue( $issuedate, $effective_itemtype, $circ_library->branchcode, $patron_unblessed ); |
| 713 |
$duedate = CalcDateDue( $issuedate, $effective_itemtype, $branch, $patron_unblessed ); |
|
|
| 714 |
|
713 |
|
| 715 |
# Offline circ calls AddIssue directly, doesn't run through here |
714 |
# Offline circ calls AddIssue directly, doesn't run through here |
| 716 |
# So issuingimpossible should be ok. |
715 |
# So issuingimpossible should be ok. |
|
Lines 1000-1015
sub CanBookBeIssued {
Link Here
|
| 1000 |
if ( $patron->branchcode ne $userenv->{branch} ); |
999 |
if ( $patron->branchcode ne $userenv->{branch} ); |
| 1001 |
} |
1000 |
} |
| 1002 |
} |
1001 |
} |
|
|
1002 |
|
| 1003 |
# |
1003 |
# |
| 1004 |
# CHECK IF THERE IS RENTAL CHARGES. RENTAL MUST BE CONFIRMED BY THE BORROWER |
1004 |
# CHECK IF THERE IS RENTAL CHARGES. RENTAL MUST BE CONFIRMED BY THE BORROWER |
| 1005 |
# |
1005 |
# |
| 1006 |
my $rentalConfirmation = C4::Context->preference("RentalFeesCheckoutConfirmation"); |
1006 |
my $rentalConfirmation = C4::Context->preference("RentalFeesCheckoutConfirmation"); |
| 1007 |
|
1007 |
if ($rentalConfirmation) { |
| 1008 |
if ( $rentalConfirmation ){ |
|
|
| 1009 |
my ($rentalCharge) = GetIssuingCharges( $item_object->itemnumber, $patron->borrowernumber ); |
1008 |
my ($rentalCharge) = GetIssuingCharges( $item_object->itemnumber, $patron->borrowernumber ); |
| 1010 |
my $itemtype = Koha::ItemTypes->find( $item_object->itype ); # GetItem sets effective itemtype |
1009 |
|
| 1011 |
$rentalCharge += $fees->accumulate_rentalcharge({ from => dt_from_string(), to => $duedate }); |
1010 |
my $itemtype_object = Koha::ItemTypes->find( $item_object->effective_itemtype ); |
| 1012 |
if ( $rentalCharge > 0 ){ |
1011 |
if ($itemtype_object) { |
|
|
1012 |
my $accumulate_charge = $fees->accumulate_rentalcharge(); |
| 1013 |
if ( $accumulate_charge > 0 ) { |
| 1014 |
$rentalCharge += $accumulate_charge; |
| 1015 |
} |
| 1016 |
} |
| 1017 |
|
| 1018 |
if ( $rentalCharge > 0 ) { |
| 1013 |
$needsconfirmation{RENTALCHARGE} = $rentalCharge; |
1019 |
$needsconfirmation{RENTALCHARGE} = $rentalCharge; |
| 1014 |
} |
1020 |
} |
| 1015 |
} |
1021 |
} |
|
Lines 1477-1483
sub AddIssue {
Link Here
|
| 1477 |
if ( $itemtype_object ) { |
1483 |
if ( $itemtype_object ) { |
| 1478 |
my $accumulate_charge = $fees->accumulate_rentalcharge(); |
1484 |
my $accumulate_charge = $fees->accumulate_rentalcharge(); |
| 1479 |
if ( $accumulate_charge > 0 ) { |
1485 |
if ( $accumulate_charge > 0 ) { |
| 1480 |
AddIssuingCharge( $issue, $accumulate_charge, 'rent_daily' ) if $accumulate_charge > 0; |
1486 |
AddIssuingCharge( $issue, $accumulate_charge, 'rent_daily' ); |
| 1481 |
$charge += $accumulate_charge; |
1487 |
$charge += $accumulate_charge; |
| 1482 |
$item_unblessed->{charge} = $charge; |
1488 |
$item_unblessed->{charge} = $charge; |
| 1483 |
} |
1489 |
} |
| 1484 |
- |
|
|