--- db/prgsrc/makeeditors.pl	2010/04/24 21:52:16	1.3
+++ db/prgsrc/makeeditors.pl	2010/05/15 15:46:15	1.4
@@ -51,9 +51,10 @@ while (<NICKS>)
    ($number,$nick)=split;   
    next unless $number;   
    next unless $number=~/^\d+$/;
-   ($name,$surname)=split ' ',<NICKS>;
-   $name{$nick}= ucfirst lc $name;
-   $surname=ucfirst lc $surname;
+   @parts = split ' ',<NICKS>;
+   $_ = ucfirst lc $_ foreach  @parts;
+   $surname = pop @parts;
+   $name{$nick}= join ' ', @parts;
    $surname=~s/\-(.)/"-". uc $1/ge;
    $surname=~s/\'(.)/"'". uc $1/ge;
    $surname{$nick}= $surname;