--- db/prgsrc/makeauthors.pl	2010/04/24 21:52:16	1.9
+++ db/prgsrc/makeauthors.pl	2010/09/24 16:58:57	1.10
@@ -46,16 +46,21 @@ open STDERR, ">$DUMPDIR/errors";
 
 while (<NICKS>)
 {
-   next unless /\S/;
-   ($number,$nick)=split;
+   ($number,$nick)=split;   
+   next unless $number;   
    next unless $number=~/^\d+$/;
-   ($name,$surname)=split ' ',<NICKS>;
-   $name{$nick}= ucfirst lc $name;
-   $surname||='';
-   $surname=ucfirst lc $surname;
+   @parts = split ' ',<NICKS>;
+   $_ = ucfirst lc $_ foreach  @parts;
+   $surname = pop @parts;
+   my $name;
+   $name = $name{$nick}= join ' ', @parts;
    $surname=~s/\-(.)/"-". uc $1/ge;
    $surname=~s/\'(.)/"'". uc $1/ge;
-   $surname{$nick}= $surname;   
+   $surname{$nick}= $surname;
+   $sn = "$name $surname";
+print "$name!$surname\n";
+   $sn =~ tr/³£/åÅ/;
+   $nickfromname{uc $sn} = $nick;   
 }
 
 $surname{'error'}='çÌÀËÏ×';