diff options
Diffstat (limited to 'data/tpl/defs.pl')
-rw-r--r-- | data/tpl/defs.pl | 25 |
1 files changed, 22 insertions, 3 deletions
diff --git a/data/tpl/defs.pl b/data/tpl/defs.pl index ef5b3a67..27d1443d 100644 --- a/data/tpl/defs.pl +++ b/data/tpl/defs.pl @@ -215,7 +215,6 @@ sub ttabs { # [vrpu], obj, sel ($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>') : (), $t eq 'u' ? ( - $o->{flags} & $VNDB::UFLAGS->{votes} ? ( $s eq 'vote' ? 'votes' : '<a href="/%s/votes">votes</a>', ) : (), $o->{flags} & $VNDB::UFLAGS->{list} ? ( $s eq 'list' ? 'list' : '<a href="/%s/list">list</a>', ) : (), ) : (), @@ -258,6 +257,26 @@ sub ttabs { # [vrpu], obj, sel } +# Uwaaaa~ ugly function! +sub rlist_dd { + my $r = shift; + return + qq|<div class="dropdown rlistdd" id="rlistDD$$r{id}"><ul><li><b>Release status</b></li>|. + join('', map { + $r->{rlist} && $_ == $r->{rlist}{rstat} ? "<li><b> $$VNDB::RSTAT[$_]</b></li>" + : qq|<li><a href="/r$$r{id}/list?r=$_"> $$VNDB::RSTAT[$_]</a></li>| + } 0..$#$VNDB::RSTAT). + qq|</ul><ul><li><b>Play status</b></li>|. + join('', map { + $r->{rlist} && $_ == $r->{rlist}{vstat} ? "<li><b> $$VNDB::VSTAT[$_]</b></li>" + : qq|<li><a href="/r$$r{id}/list?v=$_"> $$VNDB::VSTAT[$_]</a></li>| + } 0..$#$VNDB::VSTAT). + qq|</ul><ul class="full">|. + ($r->{rlist} ? qq|<li class="center"><a href="/r$$r{id}/list?d=1">remove from my list</a></li>| + : qq|<li class="center"><b>not in your list</b></li>|). + qq|</ul></div>|; +} + my %pagetitles = ( faq => 'Frequently Asked Questions', @@ -275,12 +294,12 @@ my %pagetitles = ( tedit => sub { return $p{tedit}{p} ? 'Edit post' : $p{tedit}{t} ? 'Reply to thread' : 'Start a new thread' }, - myvotes => sub { - return $p{myvotes}{user}{username} eq $p{AuthUsername} ? 'My votes' : ('Votes by '.$p{myvotes}{user}{username}); }, userpage => sub { return 'User: '.$p{userpage}{user}{username} }, vnlist => sub { return $p{vnlist}{user}{username} eq $p{AuthUsername} ? 'My visual novel list' : ($p{vnlist}{user}{username}.'\'s visual novel list'); }, + rlist => sub { + return $p{rlist}{user}{username} eq $p{AuthUsername} ? 'My visual novel list' : ($p{rlist}{user}{username}.'\'s visual novel list'); }, useredit => sub { return !$p{useredit}{adm} ? 'My account' : 'Edit '.$p{useredit}{form}{username}.'\'s account'; }, ppage => sub { |