*** /e/tmp/TWiki.pm.mod	Mon Dec 27 07:06:36 2004
--- /e/www/twiki-cairo/lib/TWiki.pm	Sun Dec 26 06:16:38 2004
***************
*** 1549,1564 ****
  {
      my( $theWeb, $theTopic ) = @_;
      # PTh 20 Jun 2000: renamed sub viewUrl to getViewUrl, added $theWeb
!     my $web = $webName;  # current web
!     if( $theWeb ) {
!         $web = $theWeb;
!     }
  
      $theTopic =~ s/\s*//gs; # Illegal URL, remove space
  
      # PTh 24 May 2000: added $urlHost, needed for some environments
      # see also Codev.PageRedirectionNotWorking
!     return "$urlHost$dispScriptUrlPath$dispViewPath$scriptSuffix/$web/$theTopic";
  }
  
  =pod
--- 1549,1561 ----
  {
      my( $theWeb, $theTopic ) = @_;
      # PTh 20 Jun 2000: renamed sub viewUrl to getViewUrl, added $theWeb
!     # WM 14 Feb 2004: Removed support for old syntax not specifying $theWeb
  
      $theTopic =~ s/\s*//gs; # Illegal URL, remove space
  
      # PTh 24 May 2000: added $urlHost, needed for some environments
      # see also Codev.PageRedirectionNotWorking
!     return "$urlHost$dispScriptUrlPath$dispViewPath$scriptSuffix/$theWeb/$theTopic";
  }
  
  =pod