my $borcat = GetBorrowercategory($catcode);
$member->{'category_type'} = $borcat->{'category_type'};
$member->{'description'} = $borcat->{'description'};
my $borcat = GetBorrowercategory($catcode);
$member->{'category_type'} = $borcat->{'category_type'};
$member->{'description'} = $borcat->{'description'};