diff options
author | Yorhel <git@yorhel.nl> | 2020-09-30 16:47:31 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2020-09-30 16:47:34 +0200 |
commit | 15b0e76e478a54fb08dee248b4b5efe829bbfbf5 (patch) | |
tree | 04196b0b2e41bae55964bd755a3dd4f84c9786b3 /lib/VNDB/Handler/Traits.pm | |
parent | a60b87d5abb0795d64ddd3ba9191bf519db839da (diff) |
v2rw/Tags::Index: Re-use tag index for trait index
This code is pretty easy to re-use.
Diffstat (limited to 'lib/VNDB/Handler/Traits.pm')
-rw-r--r-- | lib/VNDB/Handler/Traits.pm | 80 |
1 files changed, 0 insertions, 80 deletions
diff --git a/lib/VNDB/Handler/Traits.pm b/lib/VNDB/Handler/Traits.pm index ec7fc7c6..d3c717e1 100644 --- a/lib/VNDB/Handler/Traits.pm +++ b/lib/VNDB/Handler/Traits.pm @@ -9,7 +9,6 @@ use VNDB::Func; TUWF::register( qr{i([1-9]\d*)}, \&traitpage, - qr{i}, \&traitindex, qr{xml/traits\.xml}, \&traitxml, ); @@ -130,85 +129,6 @@ sub traitpage { } -sub traitindex { - my $self = shift; - - $self->htmlHeader(title => 'Trait index'); - div class => 'mainbox'; - a class => 'addnew', href => "/i/new", 'Create new trait' if $self->authCan('edit'); - h1 'Search traits'; - form action => '/i/list', 'accept-charset' => 'UTF-8', method => 'get'; - $self->htmlSearchBox('i', ''); - end; - end; - - my $t = $self->dbTTTree(trait => 0, 2); - childtags($self, 'Trait tree', 'i', {childs => $t}, 'order'); - - table class => 'mainbox threelayout'; - Tr; - - # Recently added - td; - a class => 'right', href => '/i/list', 'Browse all traits'; - my $r = $self->dbTraitGet(sort => 'added', reverse => 1, results => 10); - h1 'Recently added'; - ul; - for (@$r) { - li; - txt fmtage $_->{added}; - txt ' '; - b class => 'grayedout', $_->{groupname}.' / ' if $_->{group}; - a href => "/i$_->{id}", $_->{name}; - end; - } - end; - end; - - # Popular - td; - h1 'Popular traits'; - ul; - $r = $self->dbTraitGet(sort => 'items', reverse => 1, results => 10); - for (@$r) { - li; - b class => 'grayedout', $_->{groupname}.' / ' if $_->{group}; - a href => "/i$_->{id}", $_->{name}; - txt " ($_->{c_items})"; - end; - } - end; - end; - - # Moderation queue - td; - h1 'Awaiting moderation'; - $r = $self->dbTraitGet(state => 0, sort => 'added', reverse => 1, results => 10); - ul; - li 'Moderation queue empty! yay!' if !@$r; - for (@$r) { - li; - txt fmtage $_->{added}; - txt ' '; - b class => 'grayedout', $_->{groupname}.' / ' if $_->{group}; - a href => "/i$_->{id}", $_->{name}; - end; - } - li; - br; - a href => '/i/list?t=0;o=d;s=added', 'Moderation queue'; - txt ' - '; - a href => '/i/list?t=1;o=d;s=added', 'Denied traits'; - end; - end; - end; - - end 'tr'; - end 'table'; - $self->htmlFooter; -} - - sub traitxml { my $self = shift; |