gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added 'update child to adult' dropbox option 

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Mason James 2007-12-17 12:42:02 -06:00 committed by Joshua Ferraro
parent e39a090d5c
commit f8f8a3c7bf
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
members/moremember.pl
View File

@ -46,6 +46,8 @@ use C4::Biblio;
use C4::Reserves;
use C4::Branch; # GetBranchName
#use Smart::Comments;
use vars qw($debug);
BEGIN {
@ -96,6 +98,8 @@ if ( $reregistration eq 'y' ) {
my $borrowercategory = GetBorrowercategory( $data->{'categorycode'} );
my $category_type = $borrowercategory->{'category_type'};
### $category_type
# in template <TMPL_IF name="I"> => instutitional (A for Adult& C for children)
$template->param( $data->{'categorycode'} => 1 );
@ -121,10 +125,16 @@ $data->{'ethnicity'} = fixEthnicity( $data->{'ethnicity'} );
$data->{ "sex_".$data->{'sex'}."_p" } = 1;
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 mobilezipcode)) {
$data->{$_} = $data2->{$_};
}
foreach (qw(address city B_address B_city phone mobilezipcode)) {
$data->{$_} = $data2->{$_};
}
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 );
}
if ( $data->{'ethnicity'} || $data->{'ethnotes'} ) {