Bugfix: Remove pointless executable bits from sql files.

[koha.git] / members / mancredit.pl

diff --git a/members/mancredit.pl b/members/mancredit.pl
index 5a7ec1d..51b71d6 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
 
 
@@ -17,11 +17,13 @@
 # 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.
 
 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);
@@ -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'},