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