From 03fdff89b2fac89166d514fac4cf6d260631313c Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Thu, 27 Jun 2002 21:03:03 +0000
Subject: [PATCH] Ethnicity fields only show up in memberentry if any ethnic
 groups are entered into the database.

---
 memberentry.pl | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

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
 <td> 
 printend
 ;
+} else {
+	print "</td><td colspan=2>&nbsp;</td><td>\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|
+<td colspan=2><FONT SIZE=2>Ethnicity</FONT></td>
+<td colspan=2><FONT SIZE=2>Ethnicity Notes</FONT></td>
+|;
+} else {
+	$ethnicitylabels="<td colspan=2>&nbsp;</td><td colspan=2>&nbsp;</td>";
+}
 print <<printend
 
 </td>
 </tr>																																													
 <tr valign=top bgcolor=white>
-<td colspan=2><FONT SIZE=2>Ethnicity</FONT></td>
-<td colspan=2><FONT SIZE=2>Ethnicity Notes</FONT></td>
+$ethnicitylabels
 <td><FONT SIZE=2>Membership Category*</FONT></td>
 </tr>
 <tr><td>&nbsp; </TD></TR>
-- 
2.39.5