|
Lines 161-166
if ( $op eq 'cud-discount' ) {
Link Here
|
| 161 |
my $charge_id = scalar $input->param('accountlines_id'); |
161 |
my $charge_id = scalar $input->param('accountlines_id'); |
| 162 |
my $charge = Koha::Account::Lines->find($charge_id); |
162 |
my $charge = Koha::Account::Lines->find($charge_id); |
| 163 |
my $amount = scalar $input->param('amount'); |
163 |
my $amount = scalar $input->param('amount'); |
|
|
164 |
my $note = scalar $input->param('apply_discount_note'); |
| 165 |
|
| 164 |
$schema->txn_do( |
166 |
$schema->txn_do( |
| 165 |
sub { |
167 |
sub { |
| 166 |
|
168 |
|
|
Lines 170-176
if ( $op eq 'cud-discount' ) {
Link Here
|
| 170 |
branch => $library_id, |
172 |
branch => $library_id, |
| 171 |
staff_id => $logged_in_user->id, |
173 |
staff_id => $logged_in_user->id, |
| 172 |
interface => 'intranet', |
174 |
interface => 'intranet', |
| 173 |
amount => $amount |
175 |
amount => $amount, |
|
|
176 |
note => $note, |
| 174 |
} |
177 |
} |
| 175 |
); |
178 |
); |
| 176 |
} |
179 |
} |
| 177 |
- |
|
|