--- /Library/WebServer/twiki/lib/TWiki/Search-org.pm    Sun Jan  5 02:36:46 2003
+++ /Library/WebServer/twiki/lib/TWiki/Search.pm        Sat Sep  6 21:23:57 2003
@@ -534,6 +534,9 @@
                 $tempVal =~ s/\$isodate/&TWiki::revDate2ISO($revDate)/geos;
                 $tempVal =~ s/\$rev/1.$revNum/gos;
                 $tempVal =~ s/\$wikiusername/$revUser/gos;
+                # get short user name for Main.WikiUser as WikiUser (not a link)
+                (my $t, my $tempUser) = split(/$TWiki::mainWebname./, $revUser);
+                $tempVal =~ s/\$wikiname/$tempUser/gos;
                 $tempVal =~ s/\$username/&TWiki::wikiToUserName($revUser)/geos;
                 if( $tempVal =~ m/\$text/ ) {
                     # expand topic text