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

(-)a/members/paycollect.pl (-4 / +3 lines)
Lines 29-34 use C4::Members::Attributes qw(GetBorrowerAttributes); Link Here
29
use C4::Accounts;
29
use C4::Accounts;
30
use C4::Koha;
30
use C4::Koha;
31
use Koha::Patron::Images;
31
use Koha::Patron::Images;
32
use Koha::Account;
32
33
33
use Koha::Patron::Categories;
34
use Koha::Patron::Categories;
34
35
Lines 129-139 if ( $total_paid and $total_paid ne '0.00' ) { Link Here
129
                recordpayment_selectaccts( $borrowernumber, $total_paid, \@acc, $note );
130
                recordpayment_selectaccts( $borrowernumber, $total_paid, \@acc, $note );
130
            } else {
131
            } else {
131
                my $note = $input->param('selected_accts_notes');
132
                my $note = $input->param('selected_accts_notes');
132
                recordpayment( $borrowernumber, $total_paid, '', $note );
133
                Koha::Account->new( { patron_id => $borrowernumber } )
134
                  ->pay( { amount => $total_paid, note => $note } );
133
            }
135
            }
134
136
135
# recordpayment does not return success or failure so lets redisplay the boraccount
136
137
            print $input->redirect(
137
            print $input->redirect(
138
"/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber"
138
"/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber"
139
            );
139
            );
140
- 

Return to bug 15903