diff options
author | Yorhel <git@yorhel.nl> | 2009-05-24 09:15:52 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2009-05-24 09:15:52 +0200 |
commit | 1e960aae90bc7a94365bdd1578a7852f996c8d93 (patch) | |
tree | 7ceddf60a780a2e3ba4fce621b6bf9bd48c3e2a9 /lib/VNDB/Handler/VNBrowse.pm | |
parent | dcec270729b0a4a9bfc35b73744a0383a2036728 (diff) |
Removed category filters from /v/all
The tags work fine already. I'll keep the categories on the VN pages
and in the history for now, though.
Diffstat (limited to 'lib/VNDB/Handler/VNBrowse.pm')
-rw-r--r-- | lib/VNDB/Handler/VNBrowse.pm | 33 |
1 files changed, 1 insertions, 32 deletions
diff --git a/lib/VNDB/Handler/VNBrowse.pm b/lib/VNDB/Handler/VNBrowse.pm index 03c4a8ce..24fa8508 100644 --- a/lib/VNDB/Handler/VNBrowse.pm +++ b/lib/VNDB/Handler/VNBrowse.pm @@ -25,11 +25,7 @@ sub list { return 404 if $f->{_err}; $f->{q} ||= $f->{sq}; - # NOTE: this entire search thingy can also be done using a PgSQL fulltext search, - # which is faster and requires less code. It does require an extra database - # column, index and some triggers, though - - my(@cati, @cate, @plat, @lang); + my(@plat, @lang); my $q = $f->{q}; if($q) { # VNDBID @@ -37,15 +33,6 @@ sub list { if $q =~ /^([gvrptud])([0-9]+)(?:\.([0-9]+))?$/; if(!($q =~ s/^title://)) { - # categories - my %catl = map { - my $ic = $_; - map { $ic.$_ => $self->{categories}{$ic}[1]{$_} } keys %{$self->{categories}{$ic}[1]} - } keys %{$self->{categories}}; - - $q =~ s/-(?:$catl{$_}|c:$_)//ig && push @cate, $_ for keys %catl; - $q =~ s/(?:$catl{$_}|c:$_)//ig && push @cati, $_ for keys %catl; - # platforms $_ ne 'oth' && $q =~ s/(?:$self->{platforms}{$_}|p:$_)//ig && push @plat, $_ for keys %{$self->{platforms}}; @@ -62,8 +49,6 @@ sub list { results => 50, page => $f->{p}, order => ($f->{s} eq 'rel' ? 'c_released' : $f->{s} eq 'pop' ? 'c_popularity' : 'title').($f->{o} eq 'a' ? ' ASC' : ' DESC'), - @cati ? ( cati => \@cati ) : (), - @cate ? ( cate => \@cate ) : (), @lang ? ( lang => \@lang ) : (), @plat ? ( platform => \@plat ) : (), ); @@ -132,22 +117,6 @@ sub _filters { lit '<i>▸</i> advanced search'; end; div id => 'advoptions', class => 'hidden'; - - h2; - lit 'Categories <b>(boolean and, selecting more gives less results. The categories are explained on <a href="/d1">this page</a>)</b>'; - end; - ul id => 'catselect'; - for my $c (qw| e g t p h l s |) { - $c !~ /[thl]/ ? li : br; - txt $self->{categories}{$c}[0]; - ul; - li id => "cat_$c$_", $self->{categories}{$c}[1]{$_} - for (sort keys %{$self->{categories}{$c}[1]}); - end; - end if $c !~ /[gph]/; - } - end; - h2; lit 'Languages <b>(boolean or, selecting more gives more results)</b>'; end; |