Return to makeauthors.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.5, 2003/02/02 21:01:11 | version 1.6, 2005/11/29 19:46:26 |
---|---|
Line 153 while (($QuestionId, $author)=getrow,$Qu | Line 153 while (($QuestionId, $author)=getrow,$Qu |
$author=~s/\s+$//mg; | $author=~s/\s+$//mg; |
$author=~s/\s+/ /mg; | $author=~s/\s+/ /mg; |
$author=uc $author; | $author=uc $author; |
$author=~s/£/Å/mg; | |
if ($nick = $nick{$author}) | if ($nick = $nick{$author}) |
{ | { |
my @a=split ' ',$nick; | my @a=split ' ',$nick; |