oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

removed the notion of scripturl since it's no longer necessary with the modperl handler

Browse source
This commit is contained in:
JT Smith 2005-11-09 23:44:03 +00:00
parent 784a0c3986
commit 9e37cdd9a2
8 changed files with 11 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lib/WebGUI/URL.pm
View file

@ -121,7 +121,7 @@ Name value pairs to add to the URL in the form of:
sub gateway {
$_[0] =~ s/^\///;
my $url = getScriptURL().$_[0];
my $url = '/'.$_[0];
if ($session{setting}{preventProxyCache} == 1) {
$url = append($url,"noCache=".randint(0,1000).';'.time());
}
@ -167,25 +167,6 @@ sub setSiteURL {
#-------------------------------------------------------------------
=head2 getScriptURL {
Returns the URL for the gateway script.
=cut
sub getScriptURL {
my $scripturl;
if (exists $session{config}{scripturl}) {
$scripturl = $session{config}{scripturl};
} else {
$scripturl = $session{wguri};
}
$scripturl .= '/';
return $scripturl;
}
#-------------------------------------------------------------------
=head2 getSiteURL ( )
Returns a constructed site url. The returned
@ -262,7 +243,7 @@ sub page {
if ($useFullUrl) {
$url = getSiteURL();
}
$url .= getScriptURL();
$url .= '/';
my $pathinfo;
if ($session{asset}) {
$pathinfo = $session{asset}->get("url");