% $dolos->each(sub {
% my ($d, $n) = @_;
% my @tags;
% for my $tag (@{$d->tags}) {
% push @tags, $tag->{id};
% }
% unless (defined $d->parent_id) {
% my $dhs = $d->get_raw_dhs;
<%= $d->url %> |
<%= url_for('hit', short => $d->short)->to_abs %> |
<%= $d->name %> |
<%= $d->count %> |
% if ($d->children->size) {
<%= l('Show children') %>
% }
|
% if ($d->children->size) {
% $d->children->each(sub {
% my ($f, $m) = @_;
% my @tags;
% for my $tag (@{$f->tags}) {
% push @tags, $tag->{id};
% }
<%= ($m == $d->children->size) ? '└' : '├' %>
<%= $f->url %>
|
<%= url_for('hit', short => $f->short)->to_abs %> |
<%= $f->name %> |
<%= $f->count %> |
|
% });
% }
% }
% });