granular permissions - update CGI script for permissions editor

[koha_fer] / members / maninvoice.pl

diff --git a/members/maninvoice.pl b/members/maninvoice.pl
index 00157da..fcb59fc 100755 (executable)
--- a/members/maninvoice.pl
+++ b/members/maninvoice.pl
@@ -35,7 +35,6 @@ my $borrowernumber=$input->param('borrowernumber');
 # get borrower details
 my $data=GetMember($borrowernumber,'borrowernumber');
 my $add=$input->param('add');
-
 if ($add){
 #  print $input->header;
     my $itemnum=$input->param('itemnum');
@@ -63,8 +62,10 @@ if ($add){
        }
        else {
                print $input->redirect("/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber");
+               exit;
        }
 } else {
+
        my ($template, $loggedinuser, $cookie)
        = get_template_and_user({template_name => "members/maninvoice.tmpl",
                                        query => $input,
@@ -73,10 +74,27 @@ if ($add){
                                        flagsrequired => {borrowers => 1},
                                        debug => 1,
                                        });
+
+my $borrowercategory = GetBorrowercategory( $data->{'categorycode'} );
+my $category_type = $borrowercategory->{'category_type'};
+( $template->param( adultborrower => 1 ) ) if ( $category_type eq 'A' );
+my ($picture, $dberror) = GetPatronImage($data->{'cardnumber'});
+$template->param( picture => 1 ) if $picture;
+
        $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 => 'utf-8',