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

various bug fixes

Browse source
This commit is contained in:
JT Smith 2004-07-11 15:53:29 +00:00
parent 83b93e22e8
commit fb5bbc4bb8
4 changed files with 22 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/Page.pm
View file

@ -964,10 +964,13 @@ The page id of the page you're creating a URL for.
=cut
sub makeUnique {
my ($url, $test, $pageId);
$url = $_[0] || "_1";
$pageId = $_[1] || "new";
while (($test) = WebGUI::SQL->quickArray("select urlizedTitle from page where urlizedTitle='$url' and pageId<>'$pageId'")) {
my $url = $_[0] || "_1";
my $pageId = $_[1] || "new";
my $where = "where urlizedTitle=".quote($url);
unless ($pageId eq "new") {
$where .= " and pageId<>".$pageId;
}
while (my ($test) = WebGUI::SQL->quickArray("select urlizedTitle from page ".$where)) {
if ($url =~ /(.*)(\d+$)/) {
$url = $1.($2+1);
} elsif ($test ne "") {