--- db/prgsrc/makeauthors.pl	2003/01/09 13:41:46	1.4
+++ db/prgsrc/makeauthors.pl	2005/12/10 00:03:55	1.7
@@ -76,6 +76,7 @@ while (<NICKS>)
    $name{$nick}= ucfirst lc $name;
    $surname=ucfirst lc $surname;
    $surname=~s/\-(.)/"-". uc $1/ge;
+   $surname=~s/\'(.)/"'". uc $1/ge;
    $surname{$nick}= $surname;
    
 }
@@ -114,7 +115,7 @@ while (<AUTHORS>)
       ($number,$descr)=m/^(\d+)\s+(.*)$/g;
       $nick='unknown';
    }
-   $nick=~s/\s*$//;
+#   if ($nick=~s/\s*$//)
    $descr=~s/([\.\,\:\!\?])/$1 /g;
    $descr=~s/\\n/ /g;
    $descr=~s/^\s+//g;
@@ -152,7 +153,7 @@ while (($QuestionId, $author)=getrow,$Qu
    $author=~s/\s+$//mg;
    $author=~s/\s+/ /mg;
    $author=uc $author;
-
+   $author=~s/£/Å/mg;
    if ($nick = $nick{$author}) 
    { 
       my @a=split ' ',$nick;