[Koha-cvs] CVS: koha memberentry.pl,1.6.2.7,1.6.2.8

[Pat Eyler]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv28237

Modified Files:
      Tag: rel-1-2
	memberentry.pl 
Log Message:
removed HLTisms (Bug 47)

Index: memberentry.pl
===================================================================
RCS file: /cvsroot/koha/koha/memberentry.pl,v
retrieving revision 1.6.2.7
retrieving revision 1.6.2.8
diff -C2 -r1.6.2.7 -r1.6.2.8
*** memberentry.pl	13 Jan 2003 22:50:00 -0000	1.6.2.7
--- memberentry.pl	2 Apr 2003 17:51:12 -0000	1.6.2.8
***************
*** 253,302 ****
  ;
  
! print "
! <OPTION value=L";
! if ($data->{'area'} eq 'L'){
!   print " Selected";
! }
! print ">L - Levin
! <OPTION value=F";
! if ($data->{'area'} eq 'F'){
!   print " Selected";
! }
! print ">F - Foxton
! <OPTION value=S";
! if ($data->{'area'} eq 'S'){
!   print " Selected";
! }
! print ">S - Shannon
! <OPTION value=H";
! if ($data->{'area'} eq 'H'){
!   print " Selected";
! }
! print ">H - Horowhenua
! <OPTION value=K";
! if ($data->{'area'} eq 'K'){
!   print " Selected";
! }
! print ">K - Kapiti
  <OPTION value=O";
! if ($data->{'area'} eq 'O'){
!   print " Selected";
! }
! print ">O - Out of District
  <OPTION value=X";
! if ($data->{'area'} eq 'X'){
!   print " Selected";
! }
! print ">X - Temporary Visitor
  <OPTION value=Z";
! if ($data->{'area'} eq 'Z'){
!   print " Selected";
! }
! print ">Z - Interloan Libraries
! <OPTION value=V";
! if ($data->{'area'} eq 'V'){
!   print " Selected";
! }
! print ">V - Villlage";
  print <<printend
  </SELECT></td></tr>
--- 253,277 ----
  ;
  
!   print "
! <OPTION value=I";
!   if ($data->{'area'} eq 'I'){
!       print " Selected";
!   }
!   print ">I - In Area
  <OPTION value=O";
!   if ($data->{'area'} eq 'O'){
!       print " Selected";
!   }
!   print ">O - Out of Area
  <OPTION value=X";
!   if ($data->{'area'} eq 'X'){
!       print " Selected";
!   }
!   print ">X - Temporary Visitor
  <OPTION value=Z";
!   if ($data->{'area'} eq 'Z'){
!       print " Selected";
!   }
!   print ">Z - Interloan Libraries";
  print <<printend
  </SELECT></td></tr>