projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
removing useless code (copied from addbiblio)
[koha.git]
/
members
/
pay.pl
diff --git
a/members/pay.pl
b/members/pay.pl
index
8b40369
..
bd25ace
100755
(executable)
--- a/
members/pay.pl
+++ b/
members/pay.pl
@@
-26,6
+26,8
@@
=cut
use strict;
=cut
use strict;
+use warnings;
+
use C4::Context;
use C4::Auth;
use C4::Output;
use C4::Context;
use C4::Auth;
use C4::Output;
@@
-56,7
+58,7
@@
if ( $borrowernumber eq '' ) {
}
# get borrower details
}
# get borrower details
-my $data = GetMember(
$borrowernumber,'borrowernumber'
);
+my $data = GetMember(
borrowernumber => $borrowernumber
);
my $user = $input->remote_user;
# get account details
my $user = $input->remote_user;
# get account details
@@
-82,7
+84,7
@@
for ( my $i = 0 ; $i < @names ; $i++ ) {
$check = 2;
}
}
$check = 2;
}
}
-my $total = $input->param('total');
+my $total = $input->param('total')
|| ''
;
if ( $check == 0 ) {
if ( $total ne '' ) {
recordpayment( $borrowernumber, $total );
if ( $check == 0 ) {
if ( $total ne '' ) {
recordpayment( $borrowernumber, $total );
@@
-155,6
+157,7
@@
$template->param( picture => 1 ) if $picture;
address2 => $data->{'address2'},
city => $data->{'city'},
zipcode => $data->{'zipcode'},
address2 => $data->{'address2'},
city => $data->{'city'},
zipcode => $data->{'zipcode'},
+ country => $data->{'country'},
phone => $data->{'phone'},
email => $data->{'email'},
branchcode => $data->{'branchcode'},
phone => $data->{'phone'},
email => $data->{'email'},
branchcode => $data->{'branchcode'},