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

(-)a/members/boraccount.pl (-1 / +5 lines)
Lines 23-28 Link Here
23
# Suite 330, Boston, MA  02111-1307 USA
23
# Suite 330, Boston, MA  02111-1307 USA
24
24
25
use strict;
25
use strict;
26
use warnings;
27
26
use C4::Auth;
28
use C4::Auth;
27
use C4::Output;
29
use C4::Output;
28
use C4::Dates qw/format_date/;
30
use C4::Dates qw/format_date/;
Lines 44-53 my ($template, $loggedinuser, $cookie) Link Here
44
                            });
46
                            });
45
47
46
my $borrowernumber=$input->param('borrowernumber');
48
my $borrowernumber=$input->param('borrowernumber');
49
my $action = $input->param('action') || '';
50
47
#get borrower details
51
#get borrower details
48
my $data=GetMember($borrowernumber,'borrowernumber');
52
my $data=GetMember($borrowernumber,'borrowernumber');
49
53
50
if ( $input->param('action') eq 'reverse' ) {
54
if ( $action eq 'reverse' ) {
51
  ReversePayment( $borrowernumber, $input->param('accountno') );
55
  ReversePayment( $borrowernumber, $input->param('accountno') );
52
}
56
}
53
57
(-)a/members/pay.pl (-2 / +3 lines)
Lines 26-31 Link Here
26
=cut
26
=cut
27
27
28
use strict;
28
use strict;
29
use warnings;
30
29
use C4::Context;
31
use C4::Context;
30
use C4::Auth;
32
use C4::Auth;
31
use C4::Output;
33
use C4::Output;
Lines 82-88 for ( my $i = 0 ; $i < @names ; $i++ ) { Link Here
82
        $check = 2;
84
        $check = 2;
83
    }
85
    }
84
}
86
}
85
my $total = $input->param('total');
87
my $total = $input->param('total') || '';
86
if ( $check == 0 ) {
88
if ( $check == 0 ) {
87
    if ( $total ne '' ) {
89
    if ( $total ne '' ) {
88
        recordpayment( $borrowernumber, $total );
90
        recordpayment( $borrowernumber, $total );
89
- 

Return to bug 2505