Passing "adultborrower" variable to the template so that "Add Child" button can be...

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/circ/circulation.pl b/circ/circulation.pl
index fd66189..c277e56 100755 (executable)
--- a/circ/circulation.pl
+++ b/circ/circulation.pl
@@ -620,6 +620,10 @@ if ( C4::Context->preference("memberofinstitution") ) {
 
 $amountold = $temp[1];
 
+my $borrowercategory = GetBorrowercategory( $borrower->{'categorycode'} );
+my $category_type = $borrowercategory->{'category_type'};
+( $template->param( adultborrower => 1 ) ) if ( $category_type eq 'A' );
+
 $template->param(
     issued_itemtypes_count_loop => $issued_itemtypes_loop,
     findborrower                => $findborrower,
@@ -651,6 +655,7 @@ $template->param(
     inprocess         => $inprocess,
     memberofinstution => $member_of_institution,
     CGIorganisations  => $CGIorganisations,
+       
 );
 
 # set return date if stickyduedate

diff --git a/members/boraccount.pl b/members/boraccount.pl
index eec30d1..c1dd6a0 100755 (executable)
--- a/members/boraccount.pl
+++ b/members/boraccount.pl
@@ -86,6 +86,10 @@ for (my $i=0;$i<$numaccts;$i++){
     push(@accountrows, \%row);
 }
 
+my $borrowercategory = GetBorrowercategory( $data->{'categorycode'} );
+my $category_type = $borrowercategory->{'category_type'};
+( $template->param( adultborrower => 1 ) ) if ( $category_type eq 'A' );
+
 $template->param(
                                finesview => 1,
                 firstname => $data->{'firstname'},

diff --git a/members/mancredit.pl b/members/mancredit.pl
index 2f809d3..59f6336 100755 (executable)
--- a/members/mancredit.pl
+++ b/members/mancredit.pl
@@ -45,6 +45,9 @@ if ($add){
     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,6 +56,11 @@ 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' );       
+
     $template->param(
                     borrowernumber => $borrowernumber,
                     firstname => $data->{'firstname'},

diff --git a/members/maninvoice.pl b/members/maninvoice.pl
index faa38a8..25903f1 100755 (executable)
--- a/members/maninvoice.pl
+++ b/members/maninvoice.pl
@@ -65,6 +65,7 @@ if ($add){
                exit;
        }
 } else {
+
        my ($template, $loggedinuser, $cookie)
        = get_template_and_user({template_name => "members/maninvoice.tmpl",
                                        query => $input,
@@ -73,6 +74,11 @@ 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' );
+
        $template->param(
                     borrowernumber => $borrowernumber,
                     firstname => $data->{'firstname'},

diff --git a/members/member-flags.pl b/members/member-flags.pl
index 46c5cb4..1106b2c 100755 (executable)
--- a/members/member-flags.pl
+++ b/members/member-flags.pl
@@ -68,6 +68,10 @@ if ($input->param('newflags')) {
        push @loop, \%row;
     }
 
+       my $borrowercategory = GetBorrowercategory( $bor->{'categorycode'} );
+my $category_type = $borrowercategory->{'category_type'};
+( $template->param( adultborrower => 1 ) ) if ( $category_type eq 'A' );
+       
     $template->param(borrowernumber => $member,
                    borrowernumber => $bor->{'borrowernumber'},
                cardnumber => $bor->{'cardnumber'},

diff --git a/members/member-password.pl b/members/member-password.pl
index 7f17079..760860b 100755 (executable)
--- a/members/member-password.pl
+++ b/members/member-password.pl
@@ -76,6 +76,11 @@ if ( $newpassword  && ! $errormsg ) {
     for (my $i=0; $i<$length; $i++) {
        $defaultnewpassword.=substr($chars, int(rand(length($chars))),1);
     }
+       
+       my $borrowercategory = GetBorrowercategory( $bor->{'categorycode'} );
+my $category_type = $borrowercategory->{'category_type'};
+( $template->param( adultborrower => 1 ) ) if ( $category_type eq 'A' );
+       
     $template->param( othernames => $bor->{'othernames'},
            surname     => $bor->{'surname'},
            firstname   => $bor->{'firstname'},

diff --git a/members/pay.pl b/members/pay.pl
index eb29032..4e060c4 100755 (executable)
--- a/members/pay.pl
+++ b/members/pay.pl
@@ -128,6 +128,11 @@ if ( $check == 0 ) {
             'total'    => $totalnotify
           };
     }
+       
+my $borrowercategory = GetBorrowercategory( $data->{'categorycode'} );
+my $category_type = $borrowercategory->{'category_type'};
+( $template->param( adultborrower => 1 ) ) if ( $category_type eq 'A' );
+       
     $template->param(
         allfile        => \@allfile,
         firstname      => $data->{'firstname'},

diff --git a/members/readingrec.pl b/members/readingrec.pl
index dcecbf0..a7ef3a4 100755 (executable)
--- a/members/readingrec.pl
+++ b/members/readingrec.pl
@@ -76,6 +76,10 @@ for (my $i=0;$i<$count;$i++){
        push(@loop_reading,\%line);
 }
 
+       my $borrowercategory = GetBorrowercategory( $data->{'categorycode'} );
+       my $category_type = $borrowercategory->{'category_type'};
+       ( $template->param( adultborrower => 1 ) ) if ( $category_type eq 'A' );
+
 $template->param(
                                                biblionumber => $data->{'biblionumber'},
                                                title => $data->{'title'},