32 lines
987 B
Plaintext
32 lines
987 B
Plaintext
|
% # this requires that you pass a category tree object to
|
||
|
|
% # any template that includes this component
|
||
|
|
<% my $cat_header = begin %>
|
||
|
|
% my $_cat_id = shift; my $_name = shift;
|
||
|
|
<div class="category-header category-<%= $_cat_id %>">
|
||
|
|
<b><%= $_name %></b>
|
||
|
|
</div>
|
||
|
|
<% end %>
|
||
|
|
|
||
|
|
<% my $subf_item = begin %>
|
||
|
|
% my $_subf_id = shift; my $_cat_id = shift;
|
||
|
|
% my $_name = shift;
|
||
|
|
<div class="
|
||
|
|
subforum-item subforum-<%= $_subf_id %>
|
||
|
|
category-<%= $_cat_id %>
|
||
|
|
"><a href="/board/<%= $_subf_id %>"><%= $_name %></a></div>
|
||
|
|
<% end %>
|
||
|
|
|
||
|
|
<%
|
||
|
|
foreach my $category ($category_tree->getAllChildren) { %>
|
||
|
|
<%= $cat_header->(
|
||
|
|
$category->getNodeValue,
|
||
|
|
$c->schema->resultset('Categories')->
|
||
|
|
title_from_id($category->getNodeValue)) %>
|
||
|
|
<%
|
||
|
|
foreach my $subforum ($category->getAllChildren) { %>
|
||
|
|
<%= $subf_item->(
|
||
|
|
$subforum->getNodeValue,
|
||
|
|
$category->getNodeValue,
|
||
|
|
$c->schema->resultset('Subforums')->
|
||
|
|
title_from_id($subforum->getNodeValue)) %>
|
||
|
|
<% }} %>
|