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

(-)a/Koha/Hold.pm (-3 / +12 lines)
Lines 351-357 sub cancel { Link Here
351
            # and, if desired, charge a cancel fee
351
            # and, if desired, charge a cancel fee
352
            my $charge = C4::Context->preference("ExpireReservesMaxPickUpDelayCharge");
352
            my $charge = C4::Context->preference("ExpireReservesMaxPickUpDelayCharge");
353
            if ( $charge && $params->{'charge_cancel_fee'} ) {
353
            if ( $charge && $params->{'charge_cancel_fee'} ) {
354
                C4::Accounts::manualinvoice($self->borrowernumber, $self->itemnumber, '', 'HE', $charge);
354
                my $account =
355
                  Koha::Account->new( { patron_id => $self->borrowernumber } );
356
                $account->add_debit(
357
                    {
358
                        amount  => $charge,
359
                        user_id => C4::Context->userenv ? C4::Context->userenv->{'number'} : 0,
360
                        library_id => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
361
                        type    => 'hold_expired',
362
                        item_id => $self->itemnumber
363
                    }
364
                );
355
            }
365
            }
356
366
357
            C4::Log::logaction( 'HOLDS', 'CANCEL', $self->reserve_id, Dumper($self->unblessed) )
367
            C4::Log::logaction( 'HOLDS', 'CANCEL', $self->reserve_id, Dumper($self->unblessed) )
Lines 386-393 sub _type { Link Here
386
=head1 AUTHORS
396
=head1 AUTHORS
387
397
388
Kyle M Hall <kyle@bywatersolutions.com>
398
Kyle M Hall <kyle@bywatersolutions.com>
389
390
Jonathan Druart <jonathan.druart@bugs.koha-community.org>
399
Jonathan Druart <jonathan.druart@bugs.koha-community.org>
400
Martin Renvoize <martin.renvoize@ptfs-europe.com>
391
401
392
=cut
402
=cut
393
403
394
- 

Return to bug 21756