[[: $p{PageTitle} ]]
[[ if($d{chr} eq 'search') { ]]
Categories (boolean and, selecting more gives less results)
[[ for my $c (qw| e g t p h l s |) { ]]-
-[[= $c !~ /[thl]/ ? '- ' : '
' ]][[: $VNDB::CAT->{$c}[0] ]]-
[[ for (sort keys %{$VNDB::CAT->{$c}[1]}) { my $ca = $c.$_; ]]-
-
[[: $VNDB::CAT->{$c}[1]{$_} ]]- ([[= $d{cat}{$ca} || 0 ]])
[[ } ]]
[[= $c !~ /[gph]/ ? ' ' : '' ]]-
[[ } ]]-
Languages (boolean or, selecting more gives more results)
Platforms (boolean or, selecting more gives more results)
[[ } else { ]]-
-[[= $d{chr} ne 'all' ? 'all' : 'all' ]]- |
[[ for('a'..'z', 0) { ]]-
-[[ if($d{chr} eq $_) { ]][[= $_?$_:'#' ]][[ } else { ]][[= $_?$_:'#' ]][[ } ]]
[[ } ]]-
[[ } ]]-
-[[ if($#{$d{vn}} < 0) { ]]
-[[ if($d{chr} eq 'search' && $p{searchquery} || $d{chr} ne 'search') { ]]
No results again, life sucks... :'(
[[ } ]]
[[ } else {
my %url = (
$p{searchquery} ? ( q => $p{searchquery} ) : (),
);
my %urls = ( %url,
$d{order}[0] ne 'title' ? ( s => $d{order}[0] ) : (),
$d{order}[1] ne 'a' ? ( o => $d{order}[1] ) : (),
);
my $url = sprintf '/v/%s', $d{chr};
my $urls = $url;
$urls .= '?'.join(';', map { $_.'='.$urls{$_} } keys %urls) if keys %urls;
$url .= '?'.join(';', map { $_.'='.$url{$_} } keys %url) if keys %url;
]]
[[= pagebut($urls) ]]
Title [[= sortbut($url, 'title') ]] |
|
|
Released [[= sortbut($url, 'released') ]] |
Rating [[= sortbut($url, 'votes') ]] |
[[ for (@{$d{vn}}) {
$_->{c_votes} =~ s#^([0-9]{2}.[0-9]{2})\|([0-9]{4})$#$1 == 0 ? sprintf '- (%d)', $2 : sprintf '%.2f (%d)', $1, $2#e;
$_->{c_released} =~ s#^([0-9]{4})([0-9]{2}).+#$1==0?'N/A':$1==9999?'TBA':(($2&&$2<13?($Time::CTime::MoY[$2-1].' '):'').$1)#e;
$_->{c_platforms} = join '', map {
$_ ne 'oth' ? ' ' : ()
} split /\//, $_->{c_platforms};
$_->{c_languages} = join '', map qq| |, reverse sort split /\//, $_->{c_languages};
]]-
[[: shorten $_->{title}, 50 ]] |
[[= $_->{c_platforms} ]] |
[[= $_->{c_languages} ]] |
[[: $_->{c_released} ]] |
[[: $_->{c_votes} ]] |
[[ } ]]-
[[= pagebut($urls) ]]
[[ } ]]