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