New and hopefully last version of the MARC-DB. Is the fastest in benchmark, everybody...

[koha_fer] / memberentry.pl

diff --git a/memberentry.pl b/memberentry.pl
index 7086123..3caac13 100755 (executable)
--- a/memberentry.pl
+++ b/memberentry.pl
@@ -46,6 +46,10 @@ if ($type eq 'Add'){
 
 my $cardnumber=$data->{'cardnumber'};
 my %systemprefs=systemprefs();
+# FIXME
+# This logic should probably be moved out of the presentation code.
+# Not tonight though.
+#
 if ($cardnumber eq '' && $systemprefs{'autoMemberNum'} eq '1') {
   my $dbh=C4Connect;
   my $query="select max(substring(borrowers.cardnumber,2,7)) from borrowers";
@@ -271,12 +275,7 @@ print <<printend
 printend
 ;
 
-
-print "<OPTION value=EEBF";
-if ($data->{'area'} eq 'EEBF'){
-  print " Selected";
-}
-print ">EEBF - Delphi-E Flint
+print "
 <OPTION value=L";
 if ($data->{'area'} eq 'L'){
   print " Selected";