|
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 |
- |
|
|