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

indent bug fixed

Browse source
This commit is contained in:
JT Smith 2004-09-15 19:50:27 +00:00
parent 0779cfe397
commit 28323b9f54
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
docs/changelog/6.x.x.txt
View file

@ -1,6 +1,7 @@
6.2.3 6.2.3
- Changed to new POD format. - Changed to new POD format.
- Fixed GUID related bugs in search indexer and passive profiling. - Fixed GUID related bugs in search indexer and passive profiling.
- Fixed a bug in page tree where indenting wasn't working.
6.2.2 6.2.2

8
lib/WebGUI/Operation/Page.pm
View file

@ -170,6 +170,7 @@ sub _selectPositions {
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 _traversePageTree( pageId [, initialDepth ] ) =head2 _traversePageTree( pageId [, initialDepth ] )
Walks down the page tree from page with id pageId and returns an indented list of the pages it Walks down the page tree from page with id pageId and returns an indented list of the pages it
@ -184,8 +185,9 @@ The id of the page you want to start from
The depth the tree should start with. Defaults to zero. The depth the tree should start with. Defaults to zero.
=cut =cut
sub _traversePageTree { sub _traversePageTree {
my (%wobject, $output, $spacer, $page, $currentPage, $options, $currentPageId, $currentUrlizedTitle, $wobjects); my (%wobject, $output, $spacer, $page, $currentPage, $currentPageId, $currentUrlizedTitle, $wobjects);
my ($parentId, $initialDepth) = @_; my ($parentId, $initialDepth) = @_;
tie %wobject, 'Tie::CPHash'; tie %wobject, 'Tie::CPHash';
@ -193,7 +195,7 @@ sub _traversePageTree {
my $sth = WebGUI::SQL->read("select pageId,isSystem,urlizedTitle,title from page where parentId=".quote($parentId)); my $sth = WebGUI::SQL->read("select pageId,isSystem,urlizedTitle,title from page where parentId=".quote($parentId));
while (my ($pageId,$isSystem,$url,$title) = $sth->array) { while (my ($pageId,$isSystem,$url,$title) = $sth->array) {
unless ($isSystem) { unless ($isSystem) {
$output .= $spacer x $options->{_depth} $output .= $spacer x $initialDepth
.pageIcon() .pageIcon()
.deleteIcon('op=deletePage',$url) .deleteIcon('op=deletePage',$url)
.moveLeftIcon(sprintf('op=moveTreePageLeft&pageId=%s',$pageId), $url) .moveLeftIcon(sprintf('op=moveTreePageLeft&pageId=%s',$pageId), $url)
@ -204,7 +206,7 @@ sub _traversePageTree {
.' <a href="'.WebGUI::URL::gateway($url).'">'.$title.'</a><br>'; .' <a href="'.WebGUI::URL::gateway($url).'">'.$title.'</a><br>';
$wobjects = WebGUI::SQL->read("select wobjectId,title from wobject where pageId=".quote($pageId)); $wobjects = WebGUI::SQL->read("select wobjectId,title from wobject where pageId=".quote($pageId));
while (%wobject = $wobjects->hash) { while (%wobject = $wobjects->hash) {
$output .= $spacer x $options->{_depth} . $spacer $output .= $spacer x $initialDepth. $spacer
.wobjectIcon() .wobjectIcon()
.deleteIcon('func=delete&wid='.$wobject{wobjectId},$url) .deleteIcon('func=delete&wid='.$wobject{wobjectId},$url)
.editIcon('func=edit&wid='.$wobject{wobjectId},$url) .editIcon('func=edit&wid='.$wobject{wobjectId},$url)