From 4c1fadcba8d0a8a6a505feca3a362c3fb7d2781f Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Fri, 16 Oct 2020 14:38:35 +0200
Subject: v2rw: Convert producers listing & search

Now featuring full pagination & flexible columns.
---
 lib/VNDB/Handler/Producers.pm | 58 -------------------------------------------
 1 file changed, 58 deletions(-)

(limited to 'lib/VNDB')

diff --git a/lib/VNDB/Handler/Producers.pm b/lib/VNDB/Handler/Producers.pm
index e25e3320..44201e79 100644
--- a/lib/VNDB/Handler/Producers.pm
+++ b/lib/VNDB/Handler/Producers.pm
@@ -9,68 +9,10 @@ use VNDB::Types;
 
 
 TUWF::register(
-  qr{p/([a-z0]|all)}               => \&list,
   qr{xml/producers\.xml}           => \&pxml,
 );
 
 
-sub list {
-  my($self, $char) = @_;
-
-  my $f = $self->formValidate(
-    { get => 'p', required => 0, default => 1, template => 'page' },
-    { get => 'q', required => 0, default => '' },
-  );
-  return $self->resNotFound if $f->{_err};
-
-  my($list, $np) = $self->dbProducerGet(
-    $char ne 'all' ? ( char => $char ) : (),
-    $f->{q} ? ( search => $f->{q} ) : (),
-    results => 150,
-    page => $f->{p}
-  );
-
-  $self->htmlHeader(title => 'Browse producers');
-
-  div class => 'mainbox';
-   h1 'Browse producers';
-   form action => '/p/all', 'accept-charset' => 'UTF-8', method => 'get';
-    $self->htmlSearchBox('p', $f->{q});
-   end;
-   p class => 'browseopts';
-    for ('all', 'a'..'z', 0) {
-      a href => "/p/$_", $_ eq $char ? (class => 'optselected') : (), $_ eq 'all' ? 'ALL' : $_ ? uc $_ : '#';
-    }
-   end;
-  end;
-
-  my $pageurl = "/p/$char" . ($f->{q} ? "?q=$f->{q}" : '');
-  $self->htmlBrowseNavigate($pageurl, $f->{p}, $np, 't');
-  div class => 'mainbox producerbrowse';
-   h1 $f->{q} ? 'Search results' : 'Producer list';
-   if(!@$list) {
-     p 'No results found';
-   } else {
-     # spread the results over 3 equivalent-sized lists
-     my $perlist = @$list/3 < 1 ? 1 : @$list/3;
-     for my $c (0..(@$list < 3 ? $#$list : 2)) {
-       ul;
-       for ($perlist*$c..($perlist*($c+1))-1) {
-         li;
-          cssicon 'lang '.$list->[$_]{lang}, $LANGUAGE{$list->[$_]{lang}};
-          a href => "/p$list->[$_]{id}", title => $list->[$_]{original}, $list->[$_]{name};
-         end;
-       }
-       end;
-     }
-   }
-   clearfloat;
-  end 'div';
-  $self->htmlBrowseNavigate($pageurl, $f->{p}, $np, 'b');
-  $self->htmlFooter;
-}
-
-
 # peforms a (simple) search and returns the results in XML format
 sub pxml {
   my $self = shift;
-- 
cgit v1.2.3