koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] CVS: koha memberentry.pl,1.6.2.1,1.6.2.2


From: Steve Tonnesen
Subject: [Koha-cvs] CVS: koha memberentry.pl,1.6.2.1,1.6.2.2
Date: Thu, 27 Jun 2002 14:03:05 -0700

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv16190

Modified Files:
      Tag: rel-1-2
        memberentry.pl 
Log Message:
Ethnicity fields only show up in memberentry if any ethnic groups are entered
into the database.


Index: memberentry.pl
===================================================================
RCS file: /cvsroot/koha/koha/memberentry.pl,v
retrieving revision 1.6.2.1
retrieving revision 1.6.2.2
diff -C2 -r1.6.2.1 -r1.6.2.2
*** memberentry.pl      23 May 2002 10:05:12 -0000      1.6.2.1
--- memberentry.pl      27 Jun 2002 21:03:03 -0000      1.6.2.2
***************
*** 178,182 ****
  
  my ($categories,$labels)=ethnicitycategories();
! print $input->popup_menu(-name=>'ethnicity',
                                -values=>$categories,
                                -default=>$data->{'ethnicity'},
--- 178,184 ----
  
  my ($categories,$labels)=ethnicitycategories();
! my $ethnicitycategoriescount=$#{$categories};
! if ($ethnicitycategoriescount>=0) {
!       print $input->popup_menu(-name=>'ethnicity',
                                -values=>$categories,
                                -default=>$data->{'ethnicity'},
***************
*** 188,191 ****
--- 190,196 ----
  printend
  ;
+ } else {
+       print "</td><td colspan=2>&nbsp;</td><td>\n";
+ }
  ($categories,$labels)=borrowercategories();
  print $input->popup_menu(-name=>'categorycode',
***************
*** 196,199 ****
--- 201,213 ----
  
  
+ 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
  
***************
*** 201,206 ****
  </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>
  <td><FONT SIZE=2>Membership Category*</FONT></td>
  </tr>
--- 215,219 ----
  </tr>                                                                         
                                                                                
                                                                                
                                                                                
                                        
  <tr valign=top bgcolor=white>
! $ethnicitylabels
  <td><FONT SIZE=2>Membership Category*</FONT></td>
  </tr>




reply via email to

[Prev in Thread] Current Thread [Next in Thread]