Lines 134-139
if ( $op eq 'cud-refund' ) {
Link Here
|
134 |
my $charge = Koha::Account::Lines->find($charge_id); |
134 |
my $charge = Koha::Account::Lines->find($charge_id); |
135 |
my $amount = scalar $input->param('amount'); |
135 |
my $amount = scalar $input->param('amount'); |
136 |
my $refund_type = scalar $input->param('refund_type'); |
136 |
my $refund_type = scalar $input->param('refund_type'); |
|
|
137 |
my $note = scalar $input->param('refund_note'); |
138 |
|
137 |
$schema->txn_do( |
139 |
$schema->txn_do( |
138 |
sub { |
140 |
sub { |
139 |
|
141 |
|
Lines 143-149
if ( $op eq 'cud-refund' ) {
Link Here
|
143 |
branch => $library_id, |
145 |
branch => $library_id, |
144 |
staff_id => $logged_in_user->id, |
146 |
staff_id => $logged_in_user->id, |
145 |
interface => 'intranet', |
147 |
interface => 'intranet', |
146 |
amount => $amount |
148 |
amount => $amount, |
|
|
149 |
note => $note |
147 |
} |
150 |
} |
148 |
); |
151 |
); |
149 |
unless ( $refund_type eq 'AC' ) { |
152 |
unless ( $refund_type eq 'AC' ) { |
Lines 154-160
if ( $op eq 'cud-refund' ) {
Link Here
|
154 |
staff_id => $logged_in_user->id, |
157 |
staff_id => $logged_in_user->id, |
155 |
cash_register => $registerid, |
158 |
cash_register => $registerid, |
156 |
interface => 'intranet', |
159 |
interface => 'intranet', |
157 |
amount => $amount |
160 |
amount => $amount, |
|
|
161 |
note => $note |
158 |
} |
162 |
} |
159 |
); |
163 |
); |
160 |
} |
164 |
} |
161 |
- |
|
|