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

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

Return to bug 15903