diff --git a/lib/WebGUI/Session.pm b/lib/WebGUI/Session.pm index 5c97845b7..36a972671 100644 --- a/lib/WebGUI/Session.pm +++ b/lib/WebGUI/Session.pm @@ -75,7 +75,7 @@ sub _setupPageInfo { ($pageId) = $_[0]; if ($pageId eq "") { $pageName = lc($ENV{PATH_INFO}); - #$pageName =~ s/\///g; + $pageName =~ s/\/$//; $pageName =~ s/\///; $pageName =~ s/\'//; $pageName =~ s/\"//; diff --git a/lib/WebGUI/URL.pm b/lib/WebGUI/URL.pm index a52f140fa..17776912b 100644 --- a/lib/WebGUI/URL.pm +++ b/lib/WebGUI/URL.pm @@ -234,7 +234,7 @@ sub unescape { =head2 urlize ( string ) -Same as makeCompliant except that it also lower-cases the string. This is mainly meant for WebGUI page URLs. +Returns a url that is safe for WebGUI pages. =over @@ -250,6 +250,7 @@ sub urlize { my ($value); $value = lc($_[0]); #lower cases whole string $value = makeCompliant($value); + $value =~ s/\/$//; return $value; }