# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
=head1 pay.pl
=cut
use strict;
+use warnings;
+
use C4::Context;
use C4::Auth;
use C4::Output;
}
# get borrower details
-my $data = GetMember( $borrowernumber,'borrowernumber' );
+my $data = GetMember( borrowernumber => $borrowernumber );
my $user = $input->remote_user;
# get account details
$check = 2;
}
}
-my $total = $input->param('total');
+my $total = $input->param('total') || '';
if ( $check == 0 ) {
if ( $total ne '' ) {
recordpayment( $borrowernumber, $total );
address2 => $data->{'address2'},
city => $data->{'city'},
zipcode => $data->{'zipcode'},
+ country => $data->{'country'},
phone => $data->{'phone'},
email => $data->{'email'},
branchcode => $data->{'branchcode'},