diff options
author | Yorhel <git@yorhel.nl> | 2020-04-11 10:51:44 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2020-04-11 10:51:47 +0200 |
commit | c71afbf134c173d5c36871135e969b93c652be0c (patch) | |
tree | a08b9ff7eee33b9896045a2b3bb4675d3d217488 /lib/VNDB/Handler/VNPage.pm | |
parent | 6fd9ceb051538f11829b7d9b2919665dbeca70ed (diff) |
v2rw: Convert VN char pages (/v+/chars)
This also reimplements the VN infobox part of the page - a good first
step into converting the main VN pages to v2rw.
The new '?view=' parameter is used for spoiler and sexual hiding.
Also fixes a bug on character pages where release-specific roles weren't
displayed correctly.
Diffstat (limited to 'lib/VNDB/Handler/VNPage.pm')
-rw-r--r-- | lib/VNDB/Handler/VNPage.pm | 26 |
1 files changed, 2 insertions, 24 deletions
diff --git a/lib/VNDB/Handler/VNPage.pm b/lib/VNDB/Handler/VNPage.pm index 2f35744f..3170fd30 100644 --- a/lib/VNDB/Handler/VNPage.pm +++ b/lib/VNDB/Handler/VNPage.pm @@ -14,7 +14,6 @@ use POSIX 'strftime'; TUWF::register( qr{v/rand} => \&rand, qr{v([1-9]\d*)/releases} => \&releases, - qr{v([1-9]\d*)/(chars)} => \&page, qr{v([1-9]\d*)/staff} => sub { $_[0]->resRedirect("/v$_[1]#staff") }, qr{v([1-9]\d*)(?:\.([1-9]\d*))?} => \&page, ); @@ -306,7 +305,7 @@ sub _releases_table { sub page { my($self, $vid, $rev) = @_; - my $char = $rev && $rev eq 'chars'; + my $char = $rev && $rev eq 'chars'; # XXX: Not used anymore; implemented in VNWeb::VN::Page. $rev = undef if $char; my $method = $rev ? 'dbVNGetRev' : 'dbVNGet'; @@ -500,7 +499,7 @@ sub page { } if($char) { - _chars($self, $chars, $v); + #_chars($self, $chars, $v); } else { _releases($self, $v, $r); _staff($self, $v); @@ -948,27 +947,6 @@ sub _charspoillvl { } -sub _chars { - my($self, $l, $v) = @_; - return if !@$l; - my %done; - my %rol; - for my $r (keys %CHAR_ROLE) { - $rol{$r} = [ grep grep($_->{role} eq $r, @{$_->{vns}}) && !$done{$_->{id}}++, @$l ]; - } - div class => 'charops', id => 'charops'; - $self->charOps(1, 'chars'); - for my $r (keys %CHAR_ROLE) { - next if !@{$rol{$r}}; - div class => 'mainbox'; - h1 $CHAR_ROLE{$r}{ @{$rol{$r}} > 1 ? 'plural' : 'txt' }; - $self->charTable($_, 1, $_ != $rol{$r}[0], 1, _charspoillvl $v->{id}, $_) for (@{$rol{$r}}); - end; - } - end; -} - - sub _charsum { my($self, $l, $v) = @_; return if !@$l; |