[[= ttabs('v', $d{vn}) ]]
< user options - [[= $d{vote}{vid} ? 'your vote: '.$d{vote}{vote} : 'vote' ]] - [[= $d{wlist}{vid} ? 'wishlist: '.lc($$VNDB::WSTAT[$d{wlist}{wstat}]) : 'wishlist' ]] >
[[ } ]]- [[ if($d{change}) { ]] [[= cdiff($d{prev}, $d{vn}, [ title => 'Title', 1 ], [ alias => 'Alias', 1, 1 ], [ desc => 'Description', 1, 1 ], [ length => 'Length', sub { $VNDB::VNLEN->[$_[0] ][0] } ], [ l_wp => 'Wikipedia link', sub { $_[0] ? ''.$_[0].'' : 'No link' } ], [ l_encubed => 'Encubed tag', sub { $_[0] ? ''.$_[0].'' : 'No link' } ], [ l_renai => 'Renai.us link', sub { $_[0] ? ''.$_[0].'' : 'No link' } ], [ l_vnn => 'V-N.net link', sub { $_[0] ? ''.$_[0].'' : 'No link' } ], [ anime => 'Related anime', sub { join(' ', map qq|$$_{id}|, sort { $a->{id} <=> $b->{id} } @{$_[0]}) } ], [ categories => 'Categories', sub { join(' ', map { my $l=$VNDB::CAT->{substr($_->[0],0,1)}[1]{substr($_->[0],1,2)}; $l?$l.'('.$_->[1].')':() } sort { $a->[0] cmp $b->[0] } @{$_[0]}) || 'No categories selected' }, 1 ], [ relations => 'Relations', sub { join("[ flagged as NSFW ]
[[ } ]] [[ } ]] [[ } elsif($d{vn}{image} < 0) { ]]- [processing image, please return in a few minutes] [[ } else { ]]- No image uploaded yet... [[ } ]]-- -[[= join(' - ', @lnks) ]]- -
[[ if(!$d{page}) { ]][[+ vnpage_rel ]][[ } ]] [[ if($d{page} eq 'stats') { ]][[+ vnpage_stats ]][[ } ]] [[ if($d{page} eq 'rg') { ]][[+ vnpage_rg ]][[ } ]] [[ if($d{page} eq 'scr') { ]][[+ vnpage_scr ]][[ } ]] [[ if($p{AuthLoggedin}) { ]]-