Lines 604-611
sub cancel {
Link Here
|
604 |
C4::Reserves::_FixPriority({ biblionumber => $self->biblionumber }); |
604 |
C4::Reserves::_FixPriority({ biblionumber => $self->biblionumber }); |
605 |
|
605 |
|
606 |
# and, if desired, charge a cancel fee |
606 |
# and, if desired, charge a cancel fee |
607 |
my $charge; |
607 |
if ( $params->{'charge_cancel_fee'} ) { |
608 |
if (my $item = $self->item) { |
608 |
my $charge; |
|
|
609 |
my $item = $self->item; |
609 |
my $branchcode = C4::Reserves::GetReservesControlBranch($item->unblessed, $self->borrower->unblessed); |
610 |
my $branchcode = C4::Reserves::GetReservesControlBranch($item->unblessed, $self->borrower->unblessed); |
610 |
|
611 |
|
611 |
my $rule = Koha::CirculationRules->get_effective_rule( |
612 |
my $rule = Koha::CirculationRules->get_effective_rule( |
Lines 618-628
sub cancel {
Link Here
|
618 |
); |
619 |
); |
619 |
my $rule_value = $rule && $rule->rule_value // ''; |
620 |
my $rule_value = $rule && $rule->rule_value // ''; |
620 |
$charge = $rule_value ne '' ? $rule_value : C4::Context->preference("ExpireReservesMaxPickUpDelayCharge"); |
621 |
$charge = $rule_value ne '' ? $rule_value : C4::Context->preference("ExpireReservesMaxPickUpDelayCharge"); |
621 |
} else { |
|
|
622 |
$charge = C4::Context->preference("ExpireReservesMaxPickUpDelayCharge"); |
623 |
} |
624 |
|
622 |
|
625 |
if ( $charge && $params->{'charge_cancel_fee'} ) { |
|
|
626 |
my $account = |
623 |
my $account = |
627 |
Koha::Account->new( { patron_id => $self->borrowernumber } ); |
624 |
Koha::Account->new( { patron_id => $self->borrowernumber } ); |
628 |
$account->add_debit( |
625 |
$account->add_debit( |
Lines 634-640
sub cancel {
Link Here
|
634 |
type => 'RESERVE_EXPIRED', |
631 |
type => 'RESERVE_EXPIRED', |
635 |
item_id => $self->itemnumber |
632 |
item_id => $self->itemnumber |
636 |
} |
633 |
} |
637 |
); |
634 |
) if $charge; |
638 |
} |
635 |
} |
639 |
|
636 |
|
640 |
C4::Log::logaction( 'HOLDS', 'CANCEL', $self->reserve_id, $self ) |
637 |
C4::Log::logaction( 'HOLDS', 'CANCEL', $self->reserve_id, $self ) |
641 |
- |
|
|