From 03ce7b9cc9bfe91625cf3523f45b6ef423b07e55 Mon Sep 17 00:00:00 2001 From: JT Smith Date: Wed, 2 Jul 2003 00:31:49 +0000 Subject: [PATCH] fixed a bug that only showed up when the site was on a non-standard port --- lib/WebGUI/URL.pm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/lib/WebGUI/URL.pm b/lib/WebGUI/URL.pm index bf56b5460..1cb3a1464 100644 --- a/lib/WebGUI/URL.pm +++ b/lib/WebGUI/URL.pm @@ -52,13 +52,10 @@ These subroutines are available from this package: sub _getSiteURL { my $site = $session{env}{HTTP_HOST} || $session{config}{sitename}; my $proto = "http://"; - my $port; if ($session{env}{SERVER_PORT} == 443) { $proto = "https://"; - } elsif ($session{env}{SERVER_PORT} != 80) { - $port = ":".$session{env}{SERVER_PORT}; } - return $proto.$site.$port; + return $proto.$site; } #-------------------------------------------------------------------