Lines 90-95
if ( $op eq 'cud-payout' ) {
Link Here
|
90 |
my $payment = Koha::Account::Lines->find($payment_id); |
90 |
my $payment = Koha::Account::Lines->find($payment_id); |
91 |
my $amount = scalar $input->param('amount'); |
91 |
my $amount = scalar $input->param('amount'); |
92 |
my $payout_type = scalar $input->param('payout_type'); |
92 |
my $payout_type = scalar $input->param('payout_type'); |
|
|
93 |
my $note = scalar $input->param('payout_note'); |
93 |
if ( $payment_id eq "" ) { |
94 |
if ( $payment_id eq "" ) { |
94 |
$schema->txn_do( |
95 |
$schema->txn_do( |
95 |
sub { |
96 |
sub { |
Lines 100-106
if ( $op eq 'cud-payout' ) {
Link Here
|
100 |
staff_id => $logged_in_user->id, |
101 |
staff_id => $logged_in_user->id, |
101 |
cash_register => $registerid, |
102 |
cash_register => $registerid, |
102 |
interface => 'intranet', |
103 |
interface => 'intranet', |
103 |
amount => $amount |
104 |
amount => $amount, |
104 |
} |
105 |
} |
105 |
); |
106 |
); |
106 |
} |
107 |
} |
Lines 116-122
if ( $op eq 'cud-payout' ) {
Link Here
|
116 |
staff_id => $logged_in_user->id, |
117 |
staff_id => $logged_in_user->id, |
117 |
cash_register => $registerid, |
118 |
cash_register => $registerid, |
118 |
interface => 'intranet', |
119 |
interface => 'intranet', |
119 |
amount => $amount |
120 |
amount => $amount, |
|
|
121 |
note => $note |
120 |
} |
122 |
} |
121 |
); |
123 |
); |
122 |
} |
124 |
} |
123 |
- |
|
|