[TWiki-Dev] [SVN] PeterThoeny r21897 - twiki/trunk/InterwikiPlugin/lib/TWiki/Plugins

[<de...@de...>]

Author: PeterThoeny
Date: 2011-08-05 00:13:51 -0500 (Fri, 05 Aug 2011)
New Revision: 21897
Trac url: http://develop.twiki.org/trac/changeset/21897

Modified:
   twiki/trunk/InterwikiPlugin/lib/TWiki/Plugins/InterwikiPlugin.pm
Log:
Item6786: Fix for: TWiki.org specific link fix no longer work as implemented in Item6731. Bug was introduced by Item6731 

Modified: twiki/trunk/InterwikiPlugin/lib/TWiki/Plugins/InterwikiPlugin.pm
===================================================================
--- twiki/trunk/InterwikiPlugin/lib/TWiki/Plugins/InterwikiPlugin.pm	2011-08-05 02:17:49 UTC (rev 21896)
+++ twiki/trunk/InterwikiPlugin/lib/TWiki/Plugins/InterwikiPlugin.pm	2011-08-05 05:13:51 UTC (rev 21897)
@@ -143,9 +143,8 @@
         my $url = $interSiteTable{$site}{url};
         my $label = "$site:$page";
         if( $site eq 'TWiki' ) {
-            $tooltip =~ s/\$page/$page/g;
             # TWikibug:Item6503 - hack to prettify TWiki.org link URL
-            $page =~ s/^([A-Za-z0-9]+)\./$1\//; # change first '.' to '/' 
+            $upage =~ s/^([A-Za-z0-9]+)\./$1\//; # change first '.' to '/' 
         }
         if( $url =~ /\$page/ ) {
 	    $url =~ s/\$page/$upage/g;
@@ -169,7 +168,7 @@
         $format =~ s/\$page/$page/g;
         $text .= $format;
     } else {
-        $text .= "$site\:$page$postfix";
+        $text .= "$site\:$upage$postfix";
     }
     return $text;
 }