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

(-)a/Koha/Hold.pm (-7 / +8 lines)
Lines 941-955 sub cancel { Link Here
941
                    }
941
                    }
942
                );
942
                );
943
943
944
                my $description = $self->biblio ? $self->biblio->title : '';
944
                my $account = Koha::Account->new( { patron_id => $self->borrowernumber } );
945
                my $account = Koha::Account->new( { patron_id => $self->borrowernumber } );
945
                $account->add_debit(
946
                $account->add_debit(
946
                    {
947
                    {
947
                        amount     => $charge,
948
                        amount      => $charge,
948
                        user_id    => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef,
949
                        user_id     => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef,
949
                        interface  => C4::Context->interface,
950
                        interface   => C4::Context->interface,
950
                        library_id => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
951
                        library_id  => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
951
                        type       => 'RESERVE_EXPIRED',
952
                        type        => 'RESERVE_EXPIRED',
952
                        item_id    => $self->itemnumber
953
                        item_id     => $self->itemnumber,
954
                        description => $description
953
                    }
955
                    }
954
                ) if $charge;
956
                ) if $charge;
955
            }
957
            }
956
- 

Return to bug 41371