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

WebGUI 3.6.5 release

Browse source
This commit is contained in:
JT Smith 2002-04-06 03:32:00 +00:00
parent 11ab194b7a
commit bb66c11a6a
15 changed files with 917 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/URL.pm
View file

@ -48,9 +48,10 @@ sub gateway {
#-------------------------------------------------------------------
sub makeUnique {
my ($url, $test);
my ($url, $test, $pageId);
$url = $_[0];
while (($test) = WebGUI::SQL->quickArray("select urlizedTitle from page where urlizedTitle='$url'")) {
$pageId = $_[1] || "new";
while (($test) = WebGUI::SQL->quickArray("select urlizedTitle from page where urlizedTitle='$url' and pageId<>'$pageId'")) {
if ($url =~ /(.*)(\d+$)/) {
$url = $1.($2+1);
} elsif ($test ne "") {