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

(-)a/Koha/Account/Line.pm (-2 / +4 lines)
Lines 736-742 sub apply { Link Here
736
        register_id => $register_id,
736
        register_id => $register_id,
737
        staff_id    => $staff_id,
737
        staff_id    => $staff_id,
738
        interface   => 'intranet',
738
        interface   => 'intranet',
739
        amount      => $amount
739
        amount      => $amount,
740
        note        => $note
740
    }
741
    }
741
  );
742
  );
742
743
Lines 801-807 sub payout { Link Here
801
                    borrowernumber    => $self->borrowernumber,
802
                    borrowernumber    => $self->borrowernumber,
802
                    interface         => $params->{interface},
803
                    interface         => $params->{interface},
803
                    branchcode        => $params->{branch},
804
                    branchcode        => $params->{branch},
804
                    register_id       => $params->{cash_register}
805
                    register_id       => $params->{cash_register},
806
                    note              => $params->{note},
805
                }
807
                }
806
            )->store();
808
            )->store();
807
809
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/boraccount.tt (-1 / +4 lines)
Lines 333-339 Link Here
333
                                    </select>
333
                                    </select>
334
                                </li>
334
                                </li>
335
                                [% END %]
335
                                [% END %]
336
336
                                <li>
337
                                    <label for="refund_note">Note: </label>
338
                                    <input type="text" id="refund_note" name="refund_note">
339
                                </li>
337
                            </ol>
340
                            </ol>
338
                        </fieldset> <!-- /.rows -->
341
                        </fieldset> <!-- /.rows -->
339
                    </div> <!-- /.modal-body -->
342
                    </div> <!-- /.modal-body -->
(-)a/members/boraccount.pl (-3 / +6 lines)
Lines 132-137 if ( $op eq 'cud-refund' ) { Link Here
132
    my $charge      = Koha::Account::Lines->find($charge_id);
132
    my $charge      = Koha::Account::Lines->find($charge_id);
133
    my $amount      = scalar $input->param('amount');
133
    my $amount      = scalar $input->param('amount');
134
    my $refund_type = scalar $input->param('refund_type');
134
    my $refund_type = scalar $input->param('refund_type');
135
    my $note        = scalar $input->param('refund_note');
136
135
    $schema->txn_do(
137
    $schema->txn_do(
136
        sub {
138
        sub {
137
139
Lines 141-147 if ( $op eq 'cud-refund' ) { Link Here
141
                    branch         => $library_id,
143
                    branch         => $library_id,
142
                    staff_id       => $logged_in_user->id,
144
                    staff_id       => $logged_in_user->id,
143
                    interface      => 'intranet',
145
                    interface      => 'intranet',
144
                    amount         => $amount
146
                    amount         => $amount,
147
                    note           => $note
145
                }
148
                }
146
            );
149
            );
147
            unless ( $refund_type eq 'AC' ) {
150
            unless ( $refund_type eq 'AC' ) {
Lines 152-158 if ( $op eq 'cud-refund' ) { Link Here
152
                        staff_id      => $logged_in_user->id,
155
                        staff_id      => $logged_in_user->id,
153
                        cash_register => $registerid,
156
                        cash_register => $registerid,
154
                        interface     => 'intranet',
157
                        interface     => 'intranet',
155
                        amount        => $amount
158
                        amount        => $amount,
159
                        note          => $note
156
                    }
160
                    }
157
                );
161
                );
158
            }
162
            }
159
- 

Return to bug 23674