|
version 1.89, 2003/02/04 01:09:42
|
version 1.90, 2003/02/08 23:37:42
|
|
Line 1138 sub PrintQuestion {
|
Line 1138 sub PrintQuestion {
|
| $Name=~s/\./\\\./g; |
$Name=~s/\./\\\./g; |
| $Name=~s/£/[Å£]/g; |
$Name=~s/£/[Å£]/g; |
| $Surname=~s/£/[Å£]/g; |
$Surname=~s/£/[Å£]/g; |
| my $sha="(?:$Name\\s+$Surname)|(?:$Surname\\s+$Name)|(?:$firstletter\\.\\s*$Surname)|(?:$Surname\\s+$firstletter\\.)|(?:$Surname)|(?:$Name)"; |
my $sha="(?:$Name\\s+$Surname)|(?:$Surname\\s+$Name)|(?:$firstletter\\.\\s*$Surname)|(?:$Surname\\s+$firstletter\\.)|(?:$Surname)"; |
| if ($Nicks) |
if ($Nicks) |
| { |
{ |
| $Nicks=~s/^\|//; |
$Nicks=~s/^\|//; |
|
Line 1153 sub PrintQuestion {
|
Line 1153 sub PrintQuestion {
|
| } |
} |
| } |
} |
| $q=~s/($sha)/a({href=>url."?qofauthor=$AuthorId"},$1)/ei; |
$q=~s/($sha)/a({href=>url."?qofauthor=$AuthorId"},$1)/ei; |
| |
unless ($1) |
| |
{ |
| |
$q=~s/$Name/a({href=>url."?qofauthor=$AuthorId"},$1)/ei; |
| |
} |
| } |
} |
| } |
} |
| $output .= &PrintField("á×ÔÏÒ(Ù)", $q, $text); |
$output .= &PrintField("á×ÔÏÒ(Ù)", $q, $text); |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to db.cgi CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc