--- twiki-20040902/lib/TWiki/UI/View.pm 2004-08-25 02:36:15.000000000 -0400 +++ twiki-test/lib/TWiki/UI/View.pm 2004-11-22 10:20:47.518002448 -0500 @@ -270,7 +270,7 @@ my $script = $ENV{'SCRIPT_NAME'}; my $pathInfo = $ENV{'PATH_INFO'}; my $queryString = $ENV{'QUERY_STRING'}; - $pathInfo = '/' . $pathInfo if ($pathInfo); + $pathInfo = '/' . $pathInfo if ($pathInfo && $pathInfo !~ m|^/| ); $queryString = '?' . $queryString if ($queryString); if ($script && $script =~ m|/view| ) { $script =~ s|/view|/viewauth|o; @@ -279,7 +279,7 @@ # If SCRIPT_NAME does not contain the name "view" # the last hope is to try the SCRIPT_FILENAME ... $viewauthFile =~ s|^.*/viewauth|/viewauth|o; # strip off $Twiki::scriptUrlPath - $url = "$TWiki::urlHost$TWiki::scriptUrlPath/$viewauthFile$pathInfo$queryString"; + $url = "$TWiki::urlHost$TWiki::scriptUrlPath$viewauthFile$pathInfo$queryString"; } } TWiki::UI::redirect( $url );