finally, the last of this round of syntax fixes.

This commit is contained in:
Matthew Wilson 2006-01-15 21:02:00 +00:00
parent 83e071fde1
commit 128f265678
24 changed files with 194 additions and 164 deletions

View file

@ -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;
}