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