View | Details | Raw Unified | Return to bug 23674
Collapse All | Expand All

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/boraccount.tt (+4 lines)
Lines 309-314 Link Here
309
                                    </select>
309
                                    </select>
310
                                </li>
310
                                </li>
311
                            [% END %]
311
                            [% END %]
312
                            <li>
313
                                <label for="payout_note">Note: </label>
314
                                <input type="text" name="payout_note" id="payout_note" />
315
                            </li>
312
                        </ol>
316
                        </ol>
313
                    </fieldset>
317
                    </fieldset>
314
                    <!-- /.rows -->
318
                    <!-- /.rows -->
(-)a/members/boraccount.pl (-3 / +4 lines)
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
- 

Return to bug 23674