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

(-)a/Koha/Account/Line.pm (-2 / +4 lines)
Lines 703-709 sub apply { Link Here
703
        register_id => $register_id,
703
        register_id => $register_id,
704
        staff_id    => $staff_id,
704
        staff_id    => $staff_id,
705
        interface   => 'intranet',
705
        interface   => 'intranet',
706
        amount      => $amount
706
        amount      => $amount,
707
        note        => $note
707
    }
708
    }
708
  );
709
  );
709
710
Lines 763-769 sub payout { Link Here
763
                    borrowernumber    => $self->borrowernumber,
764
                    borrowernumber    => $self->borrowernumber,
764
                    interface         => $params->{interface},
765
                    interface         => $params->{interface},
765
                    branchcode        => $params->{branch},
766
                    branchcode        => $params->{branch},
766
                    register_id       => $params->{cash_register}
767
                    register_id       => $params->{cash_register},
768
                    note              => $params->{note},
767
                }
769
                }
768
            )->store();
770
            )->store();
769
771
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/boraccount.tt (+4 lines)
Lines 369-374 Link Here
369
                                    </select>
369
                                    </select>
370
                                </li>
370
                                </li>
371
                            [% END %]
371
                            [% END %]
372
                            <li>
373
                                <label for="refund_note">Note: </label>
374
                                <input type="text" id="refund_note" name="refund_note" />
375
                            </li>
372
                        </ol>
376
                        </ol>
373
                    </fieldset>
377
                    </fieldset>
374
                    <!-- /.rows -->
378
                    <!-- /.rows -->
(-)a/members/boraccount.pl (-3 / +6 lines)
Lines 134-139 if ( $op eq 'cud-refund' ) { Link Here
134
    my $charge      = Koha::Account::Lines->find($charge_id);
134
    my $charge      = Koha::Account::Lines->find($charge_id);
135
    my $amount      = scalar $input->param('amount');
135
    my $amount      = scalar $input->param('amount');
136
    my $refund_type = scalar $input->param('refund_type');
136
    my $refund_type = scalar $input->param('refund_type');
137
    my $note        = scalar $input->param('refund_note');
138
137
    $schema->txn_do(
139
    $schema->txn_do(
138
        sub {
140
        sub {
139
141
Lines 143-149 if ( $op eq 'cud-refund' ) { Link Here
143
                    branch         => $library_id,
145
                    branch         => $library_id,
144
                    staff_id       => $logged_in_user->id,
146
                    staff_id       => $logged_in_user->id,
145
                    interface      => 'intranet',
147
                    interface      => 'intranet',
146
                    amount         => $amount
148
                    amount         => $amount,
149
                    note           => $note
147
                }
150
                }
148
            );
151
            );
149
            unless ( $refund_type eq 'AC' ) {
152
            unless ( $refund_type eq 'AC' ) {
Lines 154-160 if ( $op eq 'cud-refund' ) { Link Here
154
                        staff_id      => $logged_in_user->id,
157
                        staff_id      => $logged_in_user->id,
155
                        cash_register => $registerid,
158
                        cash_register => $registerid,
156
                        interface     => 'intranet',
159
                        interface     => 'intranet',
157
                        amount        => $amount
160
                        amount        => $amount,
161
                        note          => $note
158
                    }
162
                    }
159
                );
163
                );
160
            }
164
            }
161
- 

Return to bug 23674