finally, the last of this round of syntax fixes.
This commit is contained in:
parent
83e071fde1
commit
128f265678
24 changed files with 194 additions and 164 deletions
|
|
@ -540,12 +540,13 @@ sub _getContentTypes {
|
|||
|
||||
#-------------------------------------------------------------------
|
||||
sub _getSearchablePages {
|
||||
my $self = shift;
|
||||
my $searchRoot = shift;
|
||||
my %pages;
|
||||
my $sth = $self->session->db->read("select assetId from asset where parentId = ".$self->session->db->quote($searchRoot));
|
||||
while (my %data = $sth->hash) {
|
||||
$pages{$data{assetId}} = 1;
|
||||
%pages = (%pages, _getSearchablePages($data{assetId}) );
|
||||
%pages = (%pages, $self->_getSearchablePages($data{assetId}) );
|
||||
}
|
||||
return %pages;
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue