diff --git a/memberentry.pl b/memberentry.pl index 6f52af5dc8..1264742fa6 100755 --- a/memberentry.pl +++ b/memberentry.pl @@ -177,7 +177,9 @@ printend ; my ($categories,$labels)=ethnicitycategories(); -print $input->popup_menu(-name=>'ethnicity', +my $ethnicitycategoriescount=$#{$categories}; +if ($ethnicitycategoriescount>=0) { + print $input->popup_menu(-name=>'ethnicity', -values=>$categories, -default=>$data->{'ethnicity'}, -labels=>$labels); @@ -187,6 +189,9 @@ print < printend ; +} else { + print " \n"; +} ($categories,$labels)=borrowercategories(); print $input->popup_menu(-name=>'categorycode', -values=>$categories, @@ -195,13 +200,21 @@ print $input->popup_menu(-name=>'categorycode', +my $ethnicitylabels=''; +if ($ethnicitycategoriescount>=0) { + $ethnicitylabels=qq| +Ethnicity +Ethnicity Notes +|; +} else { + $ethnicitylabels="  "; +} print < -Ethnicity -Ethnicity Notes +$ethnicitylabels Membership Category*