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

Change urlize function so that it removes all leading and trailing whitespace from the string.

Browse source
This commit is contained in:
JT Smith 2002-05-23 04:46:37 +00:00
parent c7a5183369
commit 2b84feb29f
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/URL.pm
View file

@ -81,12 +81,14 @@ sub unescape {
#-------------------------------------------------------------------
sub urlize {
my ($title);
$title = lc($_[0]);
$title =~ s/ /_/g;
$title =~ s/\.$//g;
$title =~ s/[^a-z0-9\-\.\_]//g;
return $title;
my ($value);
$value = lc($_[0]); #lower cases whole string
$value =~ s/\W+$//g; #removes trailing whitespace
$value =~ s/^\W+//g; #removes leading whitespace
$value =~ s/ /_/g; #replaces whitespace with underscores
$value =~ s/\.$//g; #removes trailing period
$value =~ s/[^a-z0-9\-\.\_]//g; #removes all funky characters
return $value;
}