From a1b80ac7899ea8e055b299ac229593dccf5909b8 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Mon, 1 Mar 2004 03:24:18 +0000
Subject: [PATCH] merging 5.5 bugfixes

---
 lib/WebGUI/URL.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/WebGUI/URL.pm b/lib/WebGUI/URL.pm
index 118682d2f..0b6ba8df8 100644
--- a/lib/WebGUI/URL.pm
+++ b/lib/WebGUI/URL.pm
@@ -178,6 +178,7 @@ sub makeCompliant {
         $value =~ s/\.$//;             		#removes trailing period
         $value =~ s/[^A-Za-z0-9\-\.\_\/]//g; 	#removes all funky characters
 	$value =~ s/^\///;			#removes a preceeding /
+	$value =~ s/\/\//\//g;                  #removes double /
         return $value;
 }