From f11a088d4e0c747009cf5e9d6b88b31d7345ce07 Mon Sep 17 00:00:00 2001 From: Mason James Date: Thu, 3 Jan 2008 01:31:50 -0600 Subject: [PATCH] little fixes for update_child feature. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- members/moremember.pl | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/members/moremember.pl b/members/moremember.pl index 3489fc0a09..8128d50e6c 100755 --- a/members/moremember.pl +++ b/members/moremember.pl @@ -47,6 +47,7 @@ use C4::Reserves; use C4::Branch; # GetBranchName #use Smart::Comments; +#use Data::Dumper; use vars qw($debug); @@ -124,11 +125,10 @@ for (qw(debarred gonenoaddress lost borrowernotes)) { } $data->{'ethnicity'} = fixEthnicity( $data->{'ethnicity'} ); - $data->{ "sex_".$data->{'sex'}."_p" } = 1; +my $catcode; if ( $category_type eq 'C' and $data->{'guarantorid'} ne '0' ) { - my $data2 = GetMember( $data->{'guarantorid'} ,'borrowernumber'); foreach (qw(address city B_address B_city phone mobile zipcode)) { $data->{$_} = $data2->{$_}; @@ -136,10 +136,13 @@ if ( $category_type eq 'C' and $data->{'guarantorid'} ne '0' ) { my ( $catcodes, $labels ) = GetborCatFromCatType( 'A', 'WHERE category_type = ?' ); my $cnt = scalar(@$catcodes); - $template->param( 'CATCODE_MULTI' => 1) if $cnt > 1; - $template->param( 'IS_CHILD' => 1 ); + +# $cnt = 1; + $template->param( 'CATCODE_MULTI' => 1) if $cnt > 1; + $template->param( 'catcode' => $catcodes->[0]) if $cnt == 1; } + if ( $data->{'ethnicity'} || $data->{'ethnotes'} ) { $template->param( printethnicityline => 1 ); } @@ -239,7 +242,7 @@ for ( my $i = 0 ; $i < $count ; $i++ ) { push( @issuedata, \%row ); } -################################################################################## +### ############################################################################### # BUILD HTML # show all reserves of this borrower, and the position of the reservation .... if ($borrowernumber) { -- 2.39.5