fixes for SQL quoting and GUIDs
This commit is contained in:
parent
aad93e46e3
commit
fd2100e09b
1 changed files with 4 additions and 4 deletions
|
|
@ -49,8 +49,8 @@ sub _traversePageTree {
|
||||||
"page.title" => $data->{title},
|
"page.title" => $data->{title},
|
||||||
"page.menuTitle" => $data->{menuTitle},
|
"page.menuTitle" => $data->{menuTitle},
|
||||||
"page.synopsis" => $data->{synopsis},
|
"page.synopsis" => $data->{synopsis},
|
||||||
"page.isRoot" => ($parent == 0),
|
"page.isRoot" => ($parent eq '0'),
|
||||||
"page.isTop" => ($currentDepth == 0 || ($currentDepth == 1 && $parent == 0))
|
"page.isTop" => ($currentDepth == 0 || ($currentDepth == 1 && $parent eq '0'))
|
||||||
});
|
});
|
||||||
push(@pages,@{_traversePageTree($data->{pageId},($currentDepth+1),$depth,$indent,$alphabetic)});
|
push(@pages,@{_traversePageTree($data->{pageId},($currentDepth+1),$depth,$indent,$alphabetic)});
|
||||||
}
|
}
|
||||||
|
|
@ -95,8 +95,8 @@ sub new {
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
#-------------------------------------------------------------------
|
||||||
sub www_edit {
|
sub www_edit {
|
||||||
my $options = WebGUI::SQL->buildHashRef("select pageId,title from page where parentId=0
|
my $options = WebGUI::SQL->buildHashRef("select pageId,title from page where parentId='0'
|
||||||
and (pageId=1 or pageId>999) order by title");
|
and (pageId='1' or pageId>'999') order by title");
|
||||||
my $layout = WebGUI::HTMLForm->new;
|
my $layout = WebGUI::HTMLForm->new;
|
||||||
my $properties = WebGUI::HTMLForm->new;
|
my $properties = WebGUI::HTMLForm->new;
|
||||||
$properties->select(
|
$properties->select(
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue