diff options
Diffstat (limited to 'lib/VNDB/Handler')
-rw-r--r-- | lib/VNDB/Handler/ULists.pm | 70 |
1 files changed, 70 insertions, 0 deletions
diff --git a/lib/VNDB/Handler/ULists.pm b/lib/VNDB/Handler/ULists.pm index 3a715fcf..bb714b6e 100644 --- a/lib/VNDB/Handler/ULists.pm +++ b/lib/VNDB/Handler/ULists.pm @@ -3,11 +3,14 @@ package VNDB::Handler::ULists; use strict; use warnings; +use YAWF ':html'; +use VNDB::Func; YAWF::register( qr{v([1-9]\d*)/vote}, \&vnvote, qr{v([1-9]\d*)/wish}, \&vnwish, + qr{u([1-9]\d*)/wish}, \&wishlist, ); @@ -47,5 +50,72 @@ sub vnwish { } +sub wishlist { + my($self, $uid) = @_; + + my $own = $self->authInfo->{id} && $self->authInfo->{id} == $uid; + my $u = $self->dbUserGet(uid => $uid)->[0]; + return 404 if !$u || !$own && !$u->{show_list}; + + my $f = $self->formValidate( + { name => 'p', required => 0, default => 1, template => 'int' }, + { name => 'o', required => 0, default => 'a', enum => [ 'a', 'd' ] }, + { name => 's', required => 0, default => 'title', enum => [qw|title added|] }, + { name => 'f', required => 0, default => -1, enum => [ -1..$#{$self->{wishlist_status}} ] }, + ); + return 404 if $f->{_err}; + + my($list, $np) = $self->dbWishListGet( + uid => $uid, + order => $f->{s}.' '.($f->{o} eq 'a' ? 'ASC' : 'DESC'), + $f->{f} != -1 ? (wstat => $f->{f}) : (), + what => 'vn', + results => 50, + page => $f->{p}, + ); + + my $title = $own ? 'My wishlist' : "\u$u->{username}'s wishlist"; + $self->htmlHeader(title => $title, noindex => 1); + $self->htmlMainTabs('u', $u, 'wish'); + div class => 'mainbox'; + h1 $title; + if(!@$list && $f->{f} == -1) { + p 'Wishlist empty...'; + end; + return $self->htmlFooter; + } + p class => 'browseopts'; + a $f->{f} == $_ ? (class => 'optselected') : (), href => "/u$uid/wish?f=$_", + $_ == -1 ? 'All priorities' : ucfirst $self->{wishlist_status}[$_] + for (-1..$#{$self->{wishlist_status}}); + end; + end; + + $self->htmlBrowse( + items => $list, + nextpage => $np, + options => $f, + pageurl => "/u$uid/wish?f=$f->{f};o=$f->{o};s=$f->{s}", + sorturl => "/u$uid/wish?f=$f->{f}", + header => [ + [ Title => 'title' ], + [ Priority => '' ], + [ Added => 'added' ], + ], + row => sub { + my($s, $n, $i) = @_; + Tr $n % 2 == 0 ? (class => 'odd') : (); + td class => 'tc1'; + a href => "/v$i->{vid}", title => $i->{original}||$i->{title}, shorten $i->{title}, 70; + end; + td class => 'tc2', ucfirst $self->{wishlist_status}[$i->{wstat}]; + td class => 'tc3', date $i->{added}, 'compact'; + end; + } + ); + $self->htmlFooter; +} + + 1; |