From 15b0e76e478a54fb08dee248b4b5efe829bbfbf5 Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Wed, 30 Sep 2020 16:47:31 +0200
Subject: v2rw/Tags::Index: Re-use tag index for trait index

This code is pretty easy to re-use.
---
 lib/VNDB/Handler/Traits.pm | 80 ----------------------------------------------
 1 file changed, 80 deletions(-)

(limited to 'lib/VNDB')

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;
 
-- 
cgit v1.2.3