added gateway code so sites can exist at /somepath and not just at /

This commit is contained in:
JT Smith 2005-12-01 06:08:08 +00:00
parent 39b949e9f3
commit c3acc50381
11 changed files with 64 additions and 45 deletions

View file

@ -16,7 +16,7 @@ use WebGUI::URL;
#-------------------------------------------------------------------
sub process {
return $session{wguri};
return WebGUI::URL::page();
}

View file

@ -11,10 +11,12 @@ package WebGUI::Macro::Slash_gatewayUrl;
#-------------------------------------------------------------------
use strict;
use WebGUI::Session;
use WebGUI::URL;
#-------------------------------------------------------------------
sub process {
return "/";
return WebGUI::URL::gateway();
}

View file

@ -25,7 +25,7 @@ sub process {
if ($session{env}{REQUEST_URI} =~ /op\=/) {
$append = 'op2='.WebGUI::URL::escape($append);
}
$temp = WebGUI::URL::gateway($session{wguri},$append);
$temp = WebGUI::URL::page($append);
$temp =~ s/\/\//\//;
$temp = WebGUI::URL::append($temp,$session{env}{QUERY_STRING});
if ($param[1] ne "") {