[Koha-devel] CVS: koha memberentry.pl,1.5,1.6

[Chris Cormack]

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

Modified Files:
        memberentry.pl 
Log Message:
Little typo, missing t in systemprefs
Apart from that, all the patch files seem to be running happily on
hlt.katipo.co.nz


Index: memberentry.pl
===================================================================
RCS file: /cvsroot/koha/koha/memberentry.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** memberentry.pl      8 Apr 2002 23:44:43 -0000       1.5
--- memberentry.pl      9 Apr 2002 00:16:52 -0000       1.6
***************
*** 46,50 ****
  
  my $cardnumber=$data->{'cardnumber'};
! my %sysemprefs=systemprefs();
  # FIXME
  # This logic should probably be moved out of the presentation code.
--- 46,50 ----
  
  my $cardnumber=$data->{'cardnumber'};
! my %systemprefs=systemprefs();
  # FIXME
  # This logic should probably be moved out of the presentation code.
***************
*** 276,285 ****
  ;
  
! 
! print "<OPTION value=EEBF";
! if ($data->{'area'} eq 'EEBF'){
!   print " Selected";
! }
! print ">EEBF - Delphi-E Flint
  <OPTION value=L";
  if ($data->{'area'} eq 'L'){
--- 276,280 ----
  ;
  
! print "
  <OPTION value=L";
  if ($data->{'area'} eq 'L'){