--- db/prgsrc/makeeditors.pl	2010/04/24 18:28:36	1.2
+++ 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;
@@ -65,8 +66,8 @@ $surname{'error'}='Глюков';
 $name{'error'}='Очепят';
 $surname{'unknown'}='Неизвестный';
 $name{'unknown'}='Псевдоним';
-$surname{'team'}='Капитанова';
-$name{'team'}='Команда_';
+$surname{'team'}='Авторов';
+$name{'team'}='Коллектив';
 
 
 while (<SSNICKS>)