From 64269501926d5be4bfeb586370ed49e45db7d11d Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sat, 17 Aug 2002 21:14:42 +0000
Subject: [PATCH] Enabled the ability to use slashes in page urls to emulate
 directory hierarchies.

---
 lib/WebGUI/Session.pm |  3 ++-
 lib/WebGUI/URL.pm     | 11 ++++++-----
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/lib/WebGUI/Session.pm b/lib/WebGUI/Session.pm
index 2c56477c9..73f1749af 100644
--- a/lib/WebGUI/Session.pm
+++ b/lib/WebGUI/Session.pm
@@ -39,7 +39,8 @@ sub _getPageInfo {
 	($pageId) = $_[0];
 	if ($pageId eq "") {
 		$pageName = lc($ENV{PATH_INFO});
-		$pageName =~ s/\///g;
+		#$pageName =~ s/\///g;
+		$pageName =~ s/\///;
 		$pageName =~ s/\'//;
 		$pageName =~ s/\"//;
 		if ($pageName ne "") {
diff --git a/lib/WebGUI/URL.pm b/lib/WebGUI/URL.pm
index b68a9608a..963fb703b 100644
--- a/lib/WebGUI/URL.pm
+++ b/lib/WebGUI/URL.pm
@@ -50,11 +50,12 @@ sub gateway {
 sub makeCompliant {
         my ($value);
 	$value = $_[0];
-        $value =~ s/\s+$//g;            #removes trailing whitespace
-        $value =~ s/^\s+//g;            #removes leading whitespace
-        $value =~ s/ /_/g;              #replaces whitespace with underscores
-        $value =~ s/\.$//g;             #removes trailing period
-        $value =~ s/[^A-Za-z0-9\-\.\_]//g; #removes all funky characters
+        $value =~ s/\s+$//;            		#removes trailing whitespace
+        $value =~ s/^\s+//;            		#removes leading whitespace
+	$value =~ s/^\\//;			#removes leading slash
+        $value =~ s/ /_/g;              	#replaces whitespace with underscores
+        $value =~ s/\.$//;             		#removes trailing period
+        $value =~ s/[^A-Za-z0-9\-\.\_\\]//g; 	#removes all funky characters
         return $value;
 }