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

WebGUI 3.6.3 release

Browse source
This commit is contained in:
JT Smith 2002-03-29 03:35:00 +00:00
parent a389e8ff95
commit 9454a7c8ec
11 changed files with 87 additions and 76 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/URL.pm
View file

@ -13,6 +13,7 @@ package WebGUI::URL;
use strict;
use URI::Escape;
use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::Utility;
#-------------------------------------------------------------------
@ -45,6 +46,20 @@ sub gateway {
return $url;
}
#-------------------------------------------------------------------
sub makeUnique {
my ($url, $test);
$url = $_[0];
while (($test) = WebGUI::SQL->quickArray("select urlizedTitle from page where urlizedTitle='$url'")) {
if ($url =~ /(.*)(\d+$)/) {
$url = $1.($2+1);
} elsif ($test ne "") {
$url .= "2";
}
}
return $url;
}
#-------------------------------------------------------------------
sub page {
my ($url);