diff options
author | Yorhel <git@yorhel.nl> | 2009-07-04 20:24:39 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2009-07-04 20:24:39 +0200 |
commit | eb5cf4b60da8916b9fa480b3e48a91116f52b96f (patch) | |
tree | 61155f59ec0a47d5850f89a87a1ba86f4aa0ea15 | |
parent | a1e73ab52eb1c5c380e8b1a16923f72773851e0e (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.pm | 15 |
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'); - }, - ); |