X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=members%2Fmancredit.pl;h=51b71d62f02893bd5cabb239458b93854942d212;hb=7475c9dd476cb4343583e2778efd5b05495ba8c6;hp=b71233e0832b9a558d019e3d1ec2870ac96d8513;hpb=8f4f59a5bbe55ac00b6ebf9595c9028205b8f62e;p=koha_gimpoz

diff --git a/members/mancredit.pl b/members/mancredit.pl
index b71233e083..51b71d62f0 100755
--- 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,16 +17,19 @@
 # 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;
 
 use C4::Members;
+use C4::Branch;
 use C4::Accounts;
 use C4::Items;
 
@@ -35,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);
@@ -53,7 +56,7 @@ if ($add){
 					  query => $input,
 					  type => "intranet",
 					  authnotrequired => 0,
-					  flagsrequired => {borrowers => 1},
+					  flagsrequired => {borrowers => 1, updatecharges => 1},
 					  debug => 1,
 					  });
 					  
@@ -75,13 +78,16 @@ if ($add){
 		    cardnumber => $data->{'cardnumber'},
 		    categorycode => $data->{'categorycode'},
 		    category_type => $data->{'category_type'},
-		    category_description => $data->{'description'},
+		    categoryname  => $data->{'description'},
 		    address => $data->{'address'},
 		    address2 => $data->{'address2'},
 		    city => $data->{'city'},
 		    zipcode => $data->{'zipcode'},
+		    country => $data->{'country'},
 		    phone => $data->{'phone'},
 		    email => $data->{'email'},
+		    branchcode => $data->{'branchcode'},
+		    branchname => GetBranchName($data->{'branchcode'}),
 		    is_child        => ($data->{'category_type'} eq 'C'),
         );
     output_html_with_http_headers $input, $cookie, $template->output;