Displaying serial call-number on receive.

[koha_gimpoz] / members / mancredit.pl

diff --git a/members/mancredit.pl b/members/mancredit.pl
index eb25f26..8661b7b 100755 (executable)
--- a/members/mancredit.pl
+++ b/members/mancredit.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-#wrriten 11/1/2000 by chris@katipo.oc.nz
+#written 11/1/2000 by chris@katipo.oc.nz
 #script to display borrowers account details
 
 
@@ -22,6 +22,8 @@
 # Suite 330, Boston, MA  02111-1307 USA
 
 use strict;
+use warnings;
+
 use C4::Auth;
 use C4::Output;
 use CGI;
@@ -36,14 +38,14 @@ my $input=new CGI;
 my $borrowernumber=$input->param('borrowernumber');
 
 #get borrower details
-my $data=GetMember($borrowernumber,'borrowernumber');
+my $data=GetMember('borrowernumber' => $borrowernumber);
 my $add=$input->param('add');
 
 if ($add){
     my $barcode=$input->param('barcode');
     my $itemnum = GetItemnumberFromBarcode($barcode) if $barcode;
     my $desc=$input->param('desc');
-    my $amount=$input->param('amount');
+    my $amount=$input->param('amount') || 0;
     $amount = -$amount;
     my $type=$input->param('type');
     manualinvoice($borrowernumber,$itemnum,$desc,$type,$amount);
@@ -54,7 +56,7 @@ if ($add){
                                          query => $input,
                                          type => "intranet",
                                          authnotrequired => 0,
-                                         flagsrequired => {borrowers => 1},
+                                         flagsrequired => {borrowers => 1, updatecharges => 1},
                                          debug => 1,
                                          });
                                          
@@ -81,6 +83,7 @@ if ($add){
                    address2 => $data->{'address2'},
                    city => $data->{'city'},
                    zipcode => $data->{'zipcode'},
+                   country => $data->{'country'},
                    phone => $data->{'phone'},
                    email => $data->{'email'},
                    branchcode => $data->{'branchcode'},