|
Lines 553-571
sub cancel {
Link Here
|
| 553 |
|
553 |
|
| 554 |
# and, if desired, charge a cancel fee |
554 |
# and, if desired, charge a cancel fee |
| 555 |
if ( $params->{'charge_cancel_fee'} ) { |
555 |
if ( $params->{'charge_cancel_fee'} ) { |
| 556 |
my $charge; |
|
|
| 557 |
my $item = $self->item; |
556 |
my $item = $self->item; |
| 558 |
my $branchcode = C4::Reserves::GetReservesControlBranch($item->unblessed, $self->borrower->unblessed); |
557 |
my $charge = Koha::CirculationRules->get_effective_expire_reserves_charge( |
| 559 |
|
|
|
| 560 |
my $rule = Koha::CirculationRules->get_effective_rule( |
| 561 |
{ |
558 |
{ |
|
|
559 |
itemtype => $item->effective_itemtype, |
| 560 |
branchcode => C4::Reserves::GetReservesControlBranch($item->unblessed, $self->borrower->unblessed), |
| 562 |
categorycode => $self->borrower->categorycode, |
561 |
categorycode => $self->borrower->categorycode, |
| 563 |
itemtype => $item->effective_itemtype, |
|
|
| 564 |
branchcode => $branchcode, |
| 565 |
rule_name => 'expire_reserves_charge', |
| 566 |
} |
562 |
} |
| 567 |
); |
563 |
); |
| 568 |
$charge = $rule ? $rule->rule_value : C4::Context->preference("ExpireReservesMaxPickUpDelayCharge"); |
|
|
| 569 |
|
564 |
|
| 570 |
my $account = |
565 |
my $account = |
| 571 |
Koha::Account->new( { patron_id => $self->borrowernumber } ); |
566 |
Koha::Account->new( { patron_id => $self->borrowernumber } ); |
| 572 |
- |
|
|