--- db/prgsrc/db.cgi	2003/02/04 01:09:42	1.89
+++ db/prgsrc/db.cgi	2003/02/08 23:37:42	1.90
@@ -1138,7 +1138,7 @@ sub PrintQuestion {
                           $Name=~s/\./\\\./g;
                           $Name=~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)
                            {
                              $Nicks=~s/^\|//;
@@ -1153,6 +1153,10 @@ sub PrintQuestion {
                              }
                            }
                            $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);