% layout 'default', % title => $self->board_name; <% my $cat_header = begin %> % my $_cat_id = shift; my $_name = shift;
<%= $_name %>
<% end %> <% my $subf_item = begin %> % my $_subf_id = shift; my $_cat_id = shift; % my $_name = shift;
<%= $_name %>
<% end %> <% foreach my $category ($category_tree->getAllChildren) { %> <%= $cat_header->( $category->getNodeValue, $self->schema->resultset('Categories')-> title_from_id($category->getNodeValue)) %> <% foreach my $subforum ($category->getAllChildren) { %> <%= $subf_item->( $subforum->getNodeValue, $category->getNodeValue, $self->schema->resultset('Subforums')-> title_from_id($subforum->getNodeValue)) %> <% }} %>