summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2009-07-04 20:24:39 +0200
committerYorhel <git@yorhel.nl>2009-07-04 20:24:39 +0200
commiteb5cf4b60da8916b9fa480b3e48a91116f52b96f (patch)
tree61155f59ec0a47d5850f89a87a1ba86f4aa0ea15
parenta1e73ab52eb1c5c380e8b1a16923f72773851e0e (diff)
Removed old /v/cat URL rewriting function
That URL is so extremely old that I doubt anyone still links to it.
-rw-r--r--lib/VNDB/Handler/Misc.pm15
1 files changed, 0 insertions, 15 deletions
diff --git a/lib/VNDB/Handler/Misc.pm b/lib/VNDB/Handler/Misc.pm
index 414139a5..dd9c8307 100644
--- a/lib/VNDB/Handler/Misc.pm
+++ b/lib/VNDB/Handler/Misc.pm
@@ -30,21 +30,6 @@ YAWF::register(
sub { $_[0]->resRedirect("/d$_[1]#$_[2]", 'perm') },
qr{u([1-9]\d*)/votes},
sub { $_[0]->resRedirect("/u$_[1]/list?v=1", 'perm') },
-
- # rewrite the old category browser to the new-ish search function
- qr{v/cat}, sub {
- my $f = $_[0]->formValidate(
- {name=>'i',required=>0,default=>''},{name=>'e',required=>0,default=>''},{name=>'l',required=>0,default=>''},
- {name=>'p',required=>0},{name=>'o',required=>0},{name=>'s',required=>0});
- my %f;
- $f{$_} = $f->{$_} for (qw|p o s|);
- $f{q} = join ' ', (map $_[0]{categories}{substr($_,0,1)}[1]{substr($_,1,2)}, split /,/, $f->{i}),
- (map '-'.$_[0]{categories}{substr($_,0,1)}[1]{substr($_,1,2)}, split /,/, $f->{e}),
- (map $_[0]{languages}{$_}, split /,/, $f->{l});
- !$f{$_} && delete $f{$_} for keys %f;
- $_[0]->resRedirect('/v/all'.(!(keys %f)?'':'?'.join(';', map $_.'='.$f{$_}, keys %f) ), 'perm');
- },
-
);