db/prgsrc/makeauthors.pl - diff

Return to makeauthors.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.4, 2003/01/09 13:41:46	version 1.6, 2005/11/29 19:46:26
Line 76 while (<NICKS>)	Line 76 while (<NICKS>)
$name{$nick}= ucfirst lc $name;	$name{$nick}= ucfirst lc $name;
$surname=ucfirst lc $surname;	$surname=ucfirst lc $surname;
$surname=~s/\-(.)/"-". uc $1/ge;	$surname=~s/\-(.)/"-". uc $1/ge;
	$surname=~s/\'(.)/"'". uc $1/ge;
$surname{$nick}= $surname;	$surname{$nick}= $surname;

}	}
Line 152 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;