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