|
Lines 104-138
sub cancel {
Link Here
|
| 104 |
$self->notes($notes) if $notes; |
104 |
$self->notes($notes) if $notes; |
| 105 |
if ( $self->debit_line_id ) { |
105 |
if ( $self->debit_line_id ) { |
| 106 |
my $line = Koha::Account::Lines->find( $self->debit_line_id ); |
106 |
my $line = Koha::Account::Lines->find( $self->debit_line_id ); |
| 107 |
if ( $line->amount != $line->amountoutstanding ) { |
107 |
$line->cancel( |
| 108 |
$self->borrower->account->add_credit( |
108 |
{ |
| 109 |
{ |
109 |
branch => C4::Context->userenv |
| 110 |
amount => $line->amount, |
110 |
? C4::Context->userenv->{'branch'} |
| 111 |
user_id => C4::Context->userenv |
111 |
: undef, |
| 112 |
? C4::Context->userenv->{'number'} |
112 |
staff_id => C4::Context->userenv |
| 113 |
: undef, |
113 |
? C4::Context->userenv->{'number'} |
| 114 |
interface => C4::Context->interface, |
114 |
: undef, |
| 115 |
library_id => C4::Context->userenv |
115 |
} |
| 116 |
? C4::Context->userenv->{'branch'} |
116 |
); |
| 117 |
: undef, |
|
|
| 118 |
type => 'CREDIT', |
| 119 |
description => 'Article request cancelled', |
| 120 |
item_id => $self->itemnumber |
| 121 |
} |
| 122 |
); |
| 123 |
} |
| 124 |
else { |
| 125 |
$line->cancel( |
| 126 |
{ |
| 127 |
branch => C4::Context->userenv |
| 128 |
? C4::Context->userenv->{'branch'} |
| 129 |
: undef, |
| 130 |
staff_id => C4::Context->userenv |
| 131 |
? C4::Context->userenv->{'number'} |
| 132 |
: undef, |
| 133 |
} |
| 134 |
) unless $line->status && $line->status eq 'CANCELLED'; |
| 135 |
} |
| 136 |
} |
117 |
} |
| 137 |
|
118 |
|
| 138 |
$self->store(); |
119 |
$self->store(); |
| 139 |
- |
|
|