View | Details | Raw Unified | Return to bug 21756
Collapse All | Expand All

(-)a/Koha/Hold.pm (-3 / +12 lines)
Lines 365-371 sub cancel { Link Here
365
            # and, if desired, charge a cancel fee
365
            # and, if desired, charge a cancel fee
366
            my $charge = C4::Context->preference("ExpireReservesMaxPickUpDelayCharge");
366
            my $charge = C4::Context->preference("ExpireReservesMaxPickUpDelayCharge");
367
            if ( $charge && $params->{'charge_cancel_fee'} ) {
367
            if ( $charge && $params->{'charge_cancel_fee'} ) {
368
                C4::Accounts::manualinvoice($self->borrowernumber, $self->itemnumber, '', 'HE', $charge);
368
                my $account =
369
                  Koha::Account->new( { patron_id => $self->borrowernumber } );
370
                $account->add_debit(
371
                    {
372
                        amount  => $charge,
373
                        user_id => C4::Context->userenv ? C4::Context->userenv->{'number'} : 0,
374
                        library_id => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
375
                        type    => 'hold_expired',
376
                        item_id => $self->itemnumber
377
                    }
378
                );
369
            }
379
            }
370
380
371
            C4::Log::logaction( 'HOLDS', 'CANCEL', $self->reserve_id, Dumper($self->unblessed) )
381
            C4::Log::logaction( 'HOLDS', 'CANCEL', $self->reserve_id, Dumper($self->unblessed) )
Lines 400-407 sub _type { Link Here
400
=head1 AUTHORS
410
=head1 AUTHORS
401
411
402
Kyle M Hall <kyle@bywatersolutions.com>
412
Kyle M Hall <kyle@bywatersolutions.com>
403
404
Jonathan Druart <jonathan.druart@bugs.koha-community.org>
413
Jonathan Druart <jonathan.druart@bugs.koha-community.org>
414
Martin Renvoize <martin.renvoize@ptfs-europe.com>
405
415
406
=cut
416
=cut
407
417
408
- 

Return to bug 21756