|
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 |
|