summaryrefslogtreecommitdiff
path: root/data/tpl
diff options
context:
space:
mode:
authoryorhel <yorhel@1fe2e327-d9db-4752-bcf7-ef0cb4a1748b>2008-05-19 07:01:24 +0000
committeryorhel <yorhel@1fe2e327-d9db-4752-bcf7-ef0cb4a1748b>2008-05-19 07:01:24 +0000
commit2ce770e7e5817f8838fdaf7bc7eda2a8da972962 (patch)
tree4aa6306599d38b6af01c8495d6731a838944602e /data/tpl
parent8b72b6535a553f8751842369a3abc0016d18611e (diff)
Too many changes to keep track of. See ChangeLog. (I should commit more often -.-)
git-svn-id: svn://vndb.org/vndb@13 1fe2e327-d9db-4752-bcf7-ef0cb4a1748b
Diffstat (limited to 'data/tpl')
-rw-r--r--data/tpl/defs.pl26
-rw-r--r--data/tpl/home10
-rw-r--r--data/tpl/main5
-rw-r--r--data/tpl/pbrowse16
-rw-r--r--data/tpl/redit2
-rw-r--r--data/tpl/vnbrowse110
-rw-r--r--data/tpl/vnedit2
-rw-r--r--data/tpl/vnpage37
-rw-r--r--data/tpl/vnpage_rel6
-rw-r--r--data/tpl/vnpage_stats6
10 files changed, 120 insertions, 100 deletions
diff --git a/data/tpl/defs.pl b/data/tpl/defs.pl
index 6c70a68b..405cc2a5 100644
--- a/data/tpl/defs.pl
+++ b/data/tpl/defs.pl
@@ -19,14 +19,14 @@ sub shorten {local$_=shift||return'';return length>$_[0]?substr($_,0,$_[0]-3)
# Date string format: yyyy-mm-dd
# y = 0 -> Unknown
# y = 9999 -> TBA (To Be Announced)
-# m = 0 -> Month + day unknown, year known
-# d = 0 -> Day unknown, month + year known
+# m = 99 -> Month + day unknown, year known
+# d = 99 -> Day unknown, month + year known
sub datestr {
- my $d = $_[0]||'00000000';
- my @d = map { int } $1, $2, $3 if $d =~ /^([0-9]{4})([0-9]{2})([0-9]{2})$/;
+ my $d = sprintf '%08d', $_[0]||0;
+ my $b = $d > Time::CTime::strftime("%Y%m%d", gmtime());
+ my @d = map int, $1, $2, $3 if $d =~ /^([0-9]{4})([0-9]{2})([0-9]{2})$/;
return 'unknown' if $d[0] == 0;
- my $r = sprintf !$d[1] ? '%04d' : !$d[2] ? '%04d-%02d' : '%04d-%02d-%02d', @d;
- my $b = $r gt Time::CTime::strftime("%Y-%m-%d", gmtime());
+ my $r = sprintf $d[1] == 99 ? '%04d' : $d[2] == 99 ? '%04d-%02d' : '%04d-%02d-%02d', @d;
$r = 'TBA' if $d[0] == 9999;
return ($b?'<b class="future">':'').$r.($b?'</b>':'');
}
@@ -134,7 +134,8 @@ sub summary { # cmd, len, def
my $res = '';
my $len = 0;
my $as = 0;
- for (split / /, $_[0]) {
+ (my $txt = $_[0]) =~ s/\r?\n/\n /g;
+ for (split / /, $txt) {
next if !defined $_ || $_ eq '';
my $l = length;
s/\&/&amp;/g;
@@ -146,7 +147,7 @@ sub summary { # cmd, len, def
}
if(!$as && s/(http|https):\/\/(.+[0-9a-zA-Z=\/])/<a href="$1:\/\/$2" rel="nofollow">link<\/a>/) {
$l = 4;
- } elsif(!$as) {
+ } elsif($as) {
s/^([duvpr][0-9]+)[^\w]*$/<a href="\/$1">$1<\/a>/;
}
while(s/\[\/url\]/<\/a>/) {
@@ -157,8 +158,8 @@ sub summary { # cmd, len, def
last if $_[1] && $len > $_[1];
$res .= "$_ ";
}
- $res =~ y/\r\n/ / if $_[1];
- $res =~ s/\r?\n/<br \/>/g if !$_[1];
+ $res =~ y/\n/ / if $_[1];
+ $res =~ s/\n/<br \/>/g if !$_[1];
$res =~ s/ +$//;
$res .= '</a>' x $as if $as;
$res .= '...' if $_[1] && $len > $_[1];
@@ -179,7 +180,7 @@ sub ttabs { # [vrp], obj, sel
'<a href="/%s/del" id="idel">del</a>',
sprintf('<a href="/%%s/hide"%s>%s</a>', $t eq 'v' ? ' id="vhide"' : '', $$o{hidden} ? 'unhide' : 'hide')
) : (),
- !$$o{locked} || ($p{Authedit} && $p{Authlock}) ?
+ (!$$o{locked} && !$$o{hidden}) || ($p{Authedit} && $p{Authlock}) ?
($s eq 'edit' ? 'edit' : '<a href="'.($p{Authedit}?'/%s/edit':'/u/register?n=1').'" '.($t eq 'v' || $t eq 'r' ? 'class="dropdown" rel="nofollow editDD"':'').'>edit</a>') : (),
$p{Authhist} ?
@@ -247,8 +248,7 @@ my %pagetitles = (
vnrg => sub { return 'Relations for '.$p{vnrg}{vn}{title} },
vnstats => sub { return 'User statistics for '.$p{vnstats}{vn}{title} },
vnbrowse => sub {
- return $p{vnbrowse}{chr} eq 'search' ? sprintf 'Search results for "%s"', $p{searchquery} :
- $p{vnbrowse}{chr} eq 'cat' ? 'Browse categories' :
+ return $p{vnbrowse}{chr} eq 'search' ? 'Visual novel search' :
$p{vnbrowse}{chr} eq 'mod' ? 'Visual Novels awaiting moderation' :
$p{vnbrowse}{chr} eq 'all' ? 'Browse all visual novels' :
$p{vnbrowse}{chr} eq '0' ? 'Browse by char: Other' :
diff --git a/data/tpl/home b/data/tpl/home
index 37ada1d8..e8e9158d 100644
--- a/data/tpl/home
+++ b/data/tpl/home
@@ -13,13 +13,13 @@
or to discuss about the database at our <a href="http://forum.vndb.org/">forums</a>.
</p>
-<h3 class="home">VNDB 1.14!</h3>
+<h3 class="home">VNDB 1.15!</h3>
<p class="desc">
- A large update technical-wise, but no major noticable changes: Large cover images will now automatically
- get resized, all static content has been moved to a separate domain, the Nintento Wii has been
- added to the platform list, and various other small changes and bug fixes.
+ This update finally implements a new feature I've been wanting to see for a
+ while now: anime relations! Other than that, it also includes the usual bug
+ fixes and some other improvements.
<br />
- <a href="http://forum.vndb.org/index.php?topic=49.0">Read more...</a> - <a href="http://forum.vndb.org/index.php?board=7.0">news archive</a>.
+ <a href="http://forum.vndb.org/index.php?topic=50.0">Read more...</a> - <a href="http://forum.vndb.org/index.php?board=7.0">news archive</a>.
</p>
<ul class="home">
diff --git a/data/tpl/main b/data/tpl/main
index cbac2729..5c009297 100644
--- a/data/tpl/main
+++ b/data/tpl/main
@@ -32,7 +32,7 @@
<form id="search" method="get" action="/v/search">
<fieldset>
<legend>Search</legend>
- <input id="searchfield" type="text" name="q" value="[[: $p{searchquery} || 'search' ]]"[[= !$p{searchquery} ? ' style="color: #999"': '' ]]- />
+ <input id="searchfield" type="text" name="sq" value="search" style="color: #999" />
<input id="searchsubmit" type="submit" value="Search" />
</fieldset>
</form>
@@ -75,7 +75,7 @@
<li><a href="/">Home</a></li>
<li><a href="/v">Visual Novels</a></li>
<li><a href="/p">Producers</a></li>
- <li><a href="/v/cat">Categories</a></li>
+ <li><a href="/v/search">Search</a></li>
<li><a href="/u/list">Users</a></li>
<li><a href="/hist">Recent changes</a></li>
<li><a href="/d6">FAQ</a></li>
@@ -134,6 +134,7 @@
<div id="footer">
<p>
vndb v[[: $VNDB::VERSION ]]- |
+ <a href="/d7">about us</a> |
<a href="mailto:contact@vndb.org">contact@vndb.org</a> |
designed by <a href="http://www.freecsstemplates.org/">free css templates</a>.
</p>
diff --git a/data/tpl/pbrowse b/data/tpl/pbrowse
index 71b40c82..8d2604c3 100644
--- a/data/tpl/pbrowse
+++ b/data/tpl/pbrowse
@@ -6,8 +6,8 @@
[[ } ]]-
<form id="psearch" method="get" action="/p" accept-charset="UTF-8">
<fieldset>
- <input type="text" name="q" id="q" value="[[: $d{query} ]]" class="text" />
- <input type="submit" value="Search!" />
+ <input type="text" name="q" id="q" value="[[: $d{query} ]]" class="text"
+ /><input type="submit" value="Search!" />
</fieldset>
</form>
</p>
@@ -25,17 +25,17 @@
<thead><tr>
<td class="tc1">Name</td>
<td class="tc2">Type</td>
- <td class="tc3">Main language</td>
- <td class="tc4">Website</td>
+ <td class="tc3">Website</td>
</tr></thead>
[[ for (@{$d{prods}}) { ]]-
<tr>
- <td class="tc1"><a href="/p[[= $_->{id} ]]">[[: $_->{name} ]]</a></td>
+ <td class="tc1">
+ <acronym class="icons lang -[[= $_->{lang} ]]" title="[[: $VNDB::LANG->{$_->{lang}} ]]">&nbsp;</acronym><a
+ href="/p[[= $_->{id} ]]" title="[[: $_->{original}||$_->{name} ]]">[[: $_->{name} ]]</a></td>
<td class="tc2">[[: $VNDB::PROT->{$_->{type}} ]]</td>
- <td class="tc3">[[: $VNDB::LANG->{$_->{lang}} ]]</td>
- <td class="tc4">
+ <td class="tc3">
[[ if($_->{website}) { ]]
- <a href="[[: $_->{website} ]]">[[: length($_->{website}) > 30 ? substr($_->{website}, 0, 27).'...' : $_->{website} ]]
+ <a href="[[: $_->{website} ]]">[[: shorten $_->{website}, 50 ]]
[[ } else { ]]---[[ } ]]
</td>
</tr>
diff --git a/data/tpl/redit b/data/tpl/redit
index 9567cce0..4bac5e24 100644
--- a/data/tpl/redit
+++ b/data/tpl/redit
@@ -42,7 +42,7 @@
{ type => 'static', raw => 1, text => '<label>Platforms</label><ul class="platforms">'.join('', map { my $p = $_;
'<li><input type="checkbox" name="platforms" value="'.$_.'" id="'.$_.'" '.
(($d{form}{platforms} && grep { $p eq $_ } @{$d{form}{platforms}}) ? 'checked="checked" ':'').'/>'.
- '<label for="'.$_.'"><acronym class="plat '.$_.'" title="'.$VNDB::PLAT->{$_}.'">&nbsp;</acronym>'.$VNDB::PLAT->{$_}.'</label></li>'
+ '<label for="'.$_.'"><acronym class="icons '.$_.'" title="'.$VNDB::PLAT->{$_}.'">&nbsp;</acronym>'.$VNDB::PLAT->{$_}.'</label></li>'
} sort { $VNDB::PLAT->{$a} cmp $VNDB::PLAT->{$b} } keys %$VNDB::PLAT).'</ul>' },
{ type => 'static', text => '<br />' },
diff --git a/data/tpl/vnbrowse b/data/tpl/vnbrowse
index 27aa78b7..fef795a3 100644
--- a/data/tpl/vnbrowse
+++ b/data/tpl/vnbrowse
@@ -1,31 +1,56 @@
<h2>[[: $p{PageTitle} ]]</h2>
-[[ if($d{chr} eq 'cat') { ]]-
-<ul id="cat">
-[[ for my $c (qw| e g p t l s |) { ]]-
- -[[= $c ne 'l' && $c ne 'p' ? '<li>' : '<br />' ]][[: $VNDB::CAT->{$c}[0] ]]-
- <ul>
- [[ for (sort keys %{$VNDB::CAT->{$c}[1]}) { ]]-
- <li class="cat_[[= $c.$_ ]][[= $d{incl} =~ /$c$_/ ? ' inc' : $d{excl} =~ /$c$_/ ? ' exc' : '' ]]">
- [[: $VNDB::CAT->{$c}[1]{$_} ]]- ([[= $d{cat}{$c.$_} || 0 ]])</li>
- [[ } ]]
- </ul>[[= $c ne 't' && $c ne 'g' ? '</li>' : '' ]]-
-[[ } ]]-
-</ul>
-<div id="lfilter">
- <b>Languages</b> (none selected means all)<br />
-[[ for (sort keys %{$d{lang}}) { next if !$d{lang}{$_}; ]]-
- <input type="checkbox" name="lang_[[= $_ ]]" id="lang_[[= $_ ]]" value="1" -[[= $d{slang}=~/$_/?'checked="checked"':'' ]] />
- <label for="lang_[[= $_ ]]">[[: $VNDB::LANG->{$_} ]]- ([[= $d{lang}{$_} ]])</label>
-[[ } ]]-
-</div>
-<br style="clear: left" />
-<input type="button" class="right" id="catsearch" name="catsearch" value="Search!" />
-<br style="clear: left" />
-<br />
-<br />
-[[ } elsif($d{chr} ne 'search') { ]]-
+[[ if($d{chr} eq 'search') { ]]
+ <form id="vsearch" method="get" action="/v/search" accept-charset="UTF-8">
+ <fieldset>
+ <input type="text" name="q" id="q" value="[[: $p{searchquery} ]]" class="text"
+ /><input type="submit" value="Search!" />
+ <br />
+ <b id="adsearchclick">[[= !$p{searchquery} ? '&#9662;' : '&#9656;' ]]- advanced options</b>
+ </fieldset>
+ </form>
+
+ <div id="adsearch" [[= !$p{searchquery} ? '' : ' style="display: none"' ]]>
+ <b>Categories</b> (inclusive, selecting more gives less results)
+ <ul id="cat">
+ [[ for my $c (qw| e g p t l s |) { ]]-
+ -[[= $c ne 'l' && $c ne 'p' ? '<li>' : '<br />' ]][[: $VNDB::CAT->{$c}[0] ]]-
+ <ul>
+ [[ for (sort keys %{$VNDB::CAT->{$c}[1]}) { my $ca = $c.$_; ]]-
+ <li[[= (grep /$ca/, @{$d{incl}}) ? ' class="inc"' : (grep /$ca/, @{$d{excl}}) ? ' class="exc"' : '' ]]- id="cat_[[= $ca ]]">
+ [[: $VNDB::CAT->{$c}[1]{$_} ]]- ([[= $d{cat}{$ca} || 0 ]])</li>
+ [[ } ]]
+ </ul>[[= $c ne 't' && $c ne 'g' ? '</li>' : '' ]]-
+ [[ } ]]-
+ </ul>
+ <br style="clear: both" />
+ <br />
+
+ <b>Languages</b> (exclusive, selecting more gives more results)<br />
+ <ul class="filter" id="lfilter">
+ [[ for (sort keys %{$d{langc}}) { next if !$d{langc}{$_}; my $l=$_; ]]-
+ <li><input type="checkbox" name="lang_[[= $l ]]" id="lang_[[= $l ]]" value="[[: $VNDB::LANG->{$l} ]]" [[= (grep /$l/, @{$d{lang}}) ? ' checked="checked"' : '' ]]- />
+ <label for="lang_[[= $l ]]"><acronym class="icons lang -[[= $l ]]" title="[[: $VNDB::LANG->{$l} ]]">&nbsp;</acronym>([[= $d{langc}{$l} ]])</label></li>
+ [[ } ]]-
+ </ul>
+ <br style="clear: both" />
+ <br />
+
+ <b>Platforms</b> (exclusive, selecting more gives more results)<br />
+ <ul class="filter" id="pfilter">
+ [[ for (sort keys %$VNDB::PLAT) { next if /oth/; my $l=$_; ]]-
+ <li><input type="checkbox" name="plat_[[= $l ]]" id="plat_[[= $l ]]" value="[[: $VNDB::PLAT->{$l} ]]" [[= (grep /$l/, @{$d{plat}}) ? ' checked="checked"' : '' ]]- />
+ <label for="plat_[[= $l ]]"><acronym class="icons -[[= $l ]]" title="[[: $VNDB::PLAT->{$l} ]]">&nbsp;</acronym></label></li>
+ [[ } ]]-
+ </ul>
+ <br style="clear: both" />
+ <input type="button" class="right" id="vsearch_sub" name="vsearch_sub" value="Search!" />
+ <br style="clear: left" />
+ <br /><br />
+ </div>
+
+[[ } else { ]]-
<p class="chr">
-[[= $d{chr} ne 'all' ? '<a href="/v/all">all</a>' : 'all' ]]- |
[[ for('a'..'z', 0) { ]]-
@@ -35,23 +60,16 @@
</p>
[[ } ]]-
+
-[[ if($#{$d{vn}} < 0) { ]]
+ -[[ if($d{chr} eq 'search' && $p{searchquery} || $d{chr} ne 'search') { ]]
<p>
- -[[ if($d{chr} eq 'cat' && !$d{scat}[0][0] && !$d{scat}[0][1]) { ]]
- Select some categories and hit the "Search" button to get a list of visual novels. Click on a
- category again to exclude it.<br />
- Please keep in mind that not all visual novels have the correct categories set, so you
- may not always find what you are looking for.
- [[ } else { ]]
No results again, life sucks... :'(
- [[ } ]]-
</p>
+ [[ } ]]
[[ } else {
my %url = (
$p{searchquery} ? ( q => $p{searchquery} ) : (),
- $d{incl} ? ( i => $d{incl} ) : (),
- $d{excl} ? ( e => $d{excl} ) : (),
- $d{slang} ? ( l => $d{slang} ) : (),
);
my %urls = ( %url,
$d{order}[0] ne 'title' ? ( s => $d{order}[0] ) : (),
@@ -67,19 +85,25 @@
<table id="tbv">
<thead><tr>
<td class="tc1">Title [[= sortbut($url, 'title') ]]</td>
- <td class="tc2">Released [[= sortbut($url, 'released') ]]</td>
- <td class="tc3">Languages</td>
- <td class="tc4">Rating [[= sortbut($url, 'votes') ]]</td>
+ <td class="tc2">&nbsp;</td>
+ <td class="tc3">&nbsp;</td>
+ <td class="tc4">Released [[= sortbut($url, 'released') ]]</td>
+ <td class="tc5">Rating [[= sortbut($url, 'votes') ]]</td>
</tr></thead>
[[ 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>0?($Time::CTime::MoY[$2-1].' '):'').$1)#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' ? '<acronym class="icons '.$_.'" title="'._hchar($VNDB::PLAT->{$_}).'">&nbsp;</acronym>' : ()
+ } split /\//, $_->{c_platforms};
+ $_->{c_languages} = join '', map qq|<acronym class="icons lang $_" title="$$VNDB::LANG{$_}">&nbsp;</acronym>|, reverse sort split /\//, $_->{c_languages};
]]-
<tr>
- <td class="tc1"><a href="/v[[= $_->{id} ]]">[[: $_->{title} ]]</a></td>
- <td class="tc2">[[: $_->{c_released} ]]</td>
- <td class="tc3">[[: $_->{c_languages} || 'N/A' ]]</td>
- <td class="tc4">[[: $_->{c_votes} ]]</td>
+ <td class="tc1"><a href="/v[[= $_->{id} ]]" title="[[: $_->{title} ]]">[[: shorten $_->{title}, 50 ]]</a></td>
+ <td class="tc2">[[= $_->{c_platforms} ]]</td>
+ <td class="tc3">[[= $_->{c_languages} ]]</td>
+ <td class="tc4">[[: $_->{c_released} ]]</td>
+ <td class="tc5">[[: $_->{c_votes} ]]</td>
</tr>
[[ } ]]-
</table>
diff --git a/data/tpl/vnedit b/data/tpl/vnedit
index 0e46ba47..b0869b45 100644
--- a/data/tpl/vnedit
+++ b/data/tpl/vnedit
@@ -45,7 +45,7 @@
{ type => 'static', text => '<br />' },
{ type => 'input', name => 'External links', short => 'l_wp', pre => 'http://en.wikipedia.org/wiki/' },
{ type => 'input', name => '&nbsp;', short => 'l_vnn', pre => 'http://visual-novels.net/vn/index.php?option=com_content&amp;task=view&amp;id=', class => 'shortopts' },
- { type => 'input', name => '&nbsp;', short => 'l_cisv', pre => 'http://cisvisual.net/title/', class => 'shortopts' },
+# { type => 'input', name => '&nbsp;', short => 'l_cisv', pre => 'http://cisvisual.net/title/', class => 'shortopts' },
{ type => 'static', text => '<br />' },
{ type => 'input', name => 'Related anime', short => 'anime' },
diff --git a/data/tpl/vnpage b/data/tpl/vnpage
index 1388fd03..84c00fc2 100644
--- a/data/tpl/vnpage
+++ b/data/tpl/vnpage
@@ -69,18 +69,32 @@
my @links = (
$d{vn}{l_wp} ? [ 'Wikipedia', 'http://en.wikipedia.org/wiki/%s', $d{vn}{l_wp} ] : (),
$d{vn}{l_vnn} ? [ 'V-N.net', 'http://visual-novels.net/vn/index.php?option=com_content&amp;task=view&amp;id=%d', $d{vn}{l_vnn} ] : (),
- $d{vn}{l_cisv} ? [ 'CISVisual', 'http://cisvisual.net/title/%d', $d{vn}{l_cisv} ] : (),
+# $d{vn}{l_cisv} ? [ 'CISVisual', 'http://cisvisual.net/title/%d', $d{vn}{l_cisv} ] : (),
);
-if($d{vn}{length} || $d{vn}{alias} || @links) { ]]
+ my $prod = @lang && grep { @{$_->{producers}} } @{$d{rel}};
+
+if($d{vn}{length} || $d{vn}{alias} || @links || $prod) { ]]
<h3>General info</h3>
<dl>
[[ if($d{vn}{length}) { ]]-
<dt>Length</dt><dd>[[: $VNDB::VNLEN->[$d{vn}{length}][0] ]]- ([[: $VNDB::VNLEN->[$d{vn}{length}][1] ]])</dd>[[ } ]]-
[[ if($d{vn}{alias}) { ]]-
<dt>Aliases</dt><dd>[[: $d{vn}{alias} ]]</dd>[[ } ]]-
+ [[ if($prod) { ]]-
+ <dt>Producers</dt><dd>
+ [[ for my $l (@lang) { my %l;
+ $_->{language} eq $l && (%l = ( %l, map {
+ sprintf('<a href="/p%d" title="%s">%s</a>',
+ $_->{id}, _hchar($_->{name}), _hchar shorten $_->{name}, 30) => 1
+ } @{$_->{producers}} )) for (@{$d{rel}});
+ if(keys %l) { ]]-
+ <acronym class="icons lang -[[= $l ]]" title="[[: $VNDB::LANG->{$l} ]]">&nbsp;</acronym>[[= join(' &amp; ', keys %l) ]]<br />
+ [[ } } ]]
+ </dd>[[ } ]]-
[[ if(@links > 0) { ]]-
<dt>Links</dt><dd>[[= join(', ', map { '<a href="'.sprintf($_->[1],$_->[2]).'">'.$_->[0].'</a>' } @links) ]]</dd>[[ } ]]-
+ <dt>Rating</dt><dd>[[: $d{vn}{c_votes} ]]</dd>
</dl>
[[ } ]]-
@@ -129,25 +143,6 @@ if($d{vn}{length} || $d{vn}{alias} || @links) { ]]
[[ } ]]
</ul>
[[ } ]]-
-
- [[ if(@lang && grep { @{$_->{producers}} } @{$d{rel}}) { ]]-
- <h3>Producers</h3>
- <dl>
- [[ for my $l (@lang) { my %l;
- $_->{language} eq $l && (%l = ( %l, map {
- sprintf('<a href="/p%d" title="%s">%s</a>',
- $_->{id}, _hchar($_->{name}), _hchar shorten $_->{name}, 30) => 1
- } @{$_->{producers}} )) for (@{$d{rel}});
- if(keys %l) { ]]-
- <dt>[[: $VNDB::LANG->{$l} ]]</dt><dd>[[= join(' &amp; ', keys %l) ]]</dd>
- [[ } } ]]
- </dl>
- [[ } ]]-
-
- <h3>[[= $d{page} eq 'stats' ? 'User stats' : '<a href="/v'.$d{vn}{id}.'/stats">User stats</a>' ]]</h3>
- <dl>
- <dt>Rating</dt><dd>[[: $d{vn}{c_votes} ]]</dd>
- </dl>
</div>
-[[
diff --git a/data/tpl/vnpage_rel b/data/tpl/vnpage_rel
index ea5c5235..e213c12f 100644
--- a/data/tpl/vnpage_rel
+++ b/data/tpl/vnpage_rel
@@ -30,11 +30,11 @@
<td class="tc1">[[= datestr($_->{released}) ]]</td>
<td class="tc2">[[= $_->{minage}<0 ? '' : $VNDB::VRAGES->{$_->{minage}} ]]</td>
<td class="tc3">
- [[= join('', map { $_ ne 'oth' ? '<acronym class="plat '.$_.'" title="'._hchar($VNDB::PLAT->{$_}).'">&nbsp;</acronym>' : () } sort @{$_->{platforms}}) ]]
- <acronym title="[[= $VNDB::RTYP->[$_->{type}] ]]- release" class="plat -[[= lc substr($VNDB::RTYP->[$_->{type}],0,3) ]]">&nbsp;</acronym>
+ [[= join('', map { $_ ne 'oth' ? '<acronym class="icons '.$_.'" title="'._hchar($VNDB::PLAT->{$_}).'">&nbsp;</acronym>' : () } sort @{$_->{platforms}}) ]]
+ <acronym title="[[= $VNDB::RTYP->[$_->{type}] ]]- release" class="icons -[[= lc substr($VNDB::RTYP->[$_->{type}],0,3) ]]">&nbsp;</acronym>
</td>
<td class="tc4"><a href="/r[[= $_->{id} ]]" title="[[: $_->{original} || $_->{title} ]]">[[: shorten $_->{title},60 ]]</a></td>
- <td class="tc5">[[ if($_->{website}) { ]]<a href="[[: $_->{website} ]]" class="plat ext" title="WWW">&nbsp;</a>[[ } ]]</td>
+ <td class="tc5">[[ if($_->{website}) { ]]<a href="[[: $_->{website} ]]" class="icons ext" title="WWW">&nbsp;</a>[[ } ]]</td>
</tr>
[[ } ]]-
[[ } ]]-
diff --git a/data/tpl/vnpage_stats b/data/tpl/vnpage_stats
index dde9aed3..7108486e 100644
--- a/data/tpl/vnpage_stats
+++ b/data/tpl/vnpage_stats
@@ -8,8 +8,8 @@
}
]]
[[ if(!$d{user} || ($d{pv} && $d{user}{votes})) { ]]-
-<li><h3>Vote graph <b class="actions">[[= $total ]]- vote[[= $total==1?'':'s' ]]- total
- [[= $total ? sprintf(', average: %.1f.', $sum/$total) : '' ]]</b></h3>
+<li><h3>Vote graph <p class="actions">[[= $total ]]- vote[[= $total==1?'':'s' ]]- total
+ [[= $total ? sprintf(', average: %.1f.', $sum/$total) : '' ]]</p></h3>
<table id="tvg">
[[ for (0..$#{$d{votes}{graph}}) { ]]-
<tr>
@@ -39,7 +39,7 @@
-[[ $max = 1; $total = 0;
for (@{$d{lists}{graph}}) { $total += $_; $max = $_ if $_ > $max; } ]]
[[ if(!$d{user} || ($d{pl} && $d{user}{vnlist})) { ]]-
-<li class="break"><h3>VN List stats <b class="actions">[[= $total ]]- -[[= $d{user}?'visual novel':'user' ]][[= $total==1?'':'s' ]]- total</b></h3>
+<li class="break"><h3>VN List stats <p class="actions">[[= $total ]]- -[[= $d{user}?'visual novel':'user' ]][[= $total==1?'':'s' ]]- total</p></h3>
<table id="tus">
[[ for (0..$#$VNDB::LSTAT) { ]]-
<tr>