tmpl var CATCODE_MULTI now passed

[koha.git] / members / mancredit.pl

diff --git a/members/mancredit.pl b/members/mancredit.pl
index e1769c0..59f6336 100755 (executable)
--- a/members/mancredit.pl
+++ b/members/mancredit.pl
@@ -24,27 +24,30 @@
 use strict;
 use C4::Auth;
 use C4::Output;
-use C4::Interface::CGI::Output;
 use CGI;
 
 use C4::Members;
-use C4::Accounts2;
+use C4::Accounts;
 my $input=new CGI;
 
-
 my $borrowernumber=$input->param('borrowernumber');
+
 #get borrower details
-my $data=borrdata('',$borrowernumber);
+my $data=GetMember($borrowernumber,'borrowernumber');
 my $add=$input->param('add');
+
 if ($add){
-  my $itemnum=$input->param('itemnum');
-  my $desc=$input->param('desc');
-  my $amount=$input->param('amount');
-  $amount = -$amount;
-  my $type=$input->param('type');
-  manualinvoice($borrowernumber,$itemnum,$desc,$type,$amount);
-  print $input->redirect("/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber");
+    my $itemnum=$input->param('itemnum');
+    my $desc=$input->param('desc');
+    my $amount=$input->param('amount');
+    $amount = -$amount;
+    my $type=$input->param('type');
+    manualinvoice($borrowernumber,$itemnum,$desc,$type,$amount);
+    print $input->redirect("/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber");
 } else {
+
+
+
        my ($template, $loggedinuser, $cookie)
        = get_template_and_user({template_name => "members/mancredit.tmpl",
                                        query => $input,
@@ -53,9 +56,28 @@ if ($add){
                                        flagsrequired => {borrowers => 1},
                                        debug => 1,
                                        });
-       $template->param( borrowernumber => $borrowernumber);
+
+my $borrowercategory = GetBorrowercategory( $data->{'categorycode'} );
+my $category_type = $borrowercategory->{'category_type'};
+( $template->param( adultborrower => 1 ) ) if ( $category_type eq 'A' );       
+
+    $template->param(
+                    borrowernumber => $borrowernumber,
+                    firstname => $data->{'firstname'},
+                    surname  => $data->{'surname'},
+                                       cardnumber => $data->{'cardnumber'},
+                                   categorycode => $data->{'categorycode'},
+                                   category_type => $data->{'category_type'},
+                                   category_description => $data->{'description'},
+                                   address => $data->{'address'},
+                                       address2 => $data->{'address2'},
+                                   city => $data->{'city'},
+                                       zipcode => $data->{'zipcode'},
+                                       phone => $data->{'phone'},
+                                       email => $data->{'email'},
+    );
        print $input->header(
-           -type => guesstype($template->output),
+           -type => 'utf-8',
            -cookie => $cookie
        ),$template->output;