diff options
author | Yorhel <git@yorhel.nl> | 2019-11-10 16:48:19 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2019-11-10 16:48:19 +0100 |
commit | 096b742b75cce0df7c41c3b9ff90fb9c610ad5da (patch) | |
tree | 4ebceedae3f7e27469b8868946a37564d2576b65 /lib/VNWeb/User | |
parent | 671ba75f3fdc46d250fd7e2a64017dc2b62d885e (diff) |
ulist: Beta mode
Diffstat (limited to 'lib/VNWeb/User')
-rw-r--r-- | lib/VNWeb/User/Lists.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lib/VNWeb/User/Lists.pm b/lib/VNWeb/User/Lists.pm index a42fb63b..97170ca9 100644 --- a/lib/VNWeb/User/Lists.pm +++ b/lib/VNWeb/User/Lists.pm @@ -418,6 +418,9 @@ TUWF::get qr{/$RE{uid}/ulist}, sub { return tuwf->resNotFound if !$u->{id}; my $own = auth && $u->{id} == auth->uid; + + return tuwf->resNotFound if !$own; # TEMPORARY while in beta. + my $labels = tuwf->dbAlli( 'SELECT l.id, l.label, l.private, count(vl.vid) as count, null as delete FROM ulist_labels l LEFT JOIN ulist_vns_labels vl ON vl.uid = l.uid AND vl.lbl = l.id @@ -434,6 +437,20 @@ TUWF::get qr{/$RE{uid}/ulist}, sub { voteprivate => (map \($_->{private}?1:0), grep $_->{id} == 7, @$labels), } ) : (), sub { + div_ class => 'mainbox', sub { + p_ class => 'center', sub { b_ class => 'standout', style => 'font-size: 30px', '!BETA BETA BETA BETA!'; }; + div_ class => 'warning', sub { + p_ 'This is a prototype for the new lists feature. It should eventually replace your visual novel list, votes and wishlist. Feel free to play around, but keep the following in mind:'; + ul_ sub { + li_ "Changes made on this page will be lost when the feature goes live, and possibly a few times before that as well. The old visual novel list, votes and wishlist are still your primary lists."; + li_ "Exception to the above rule: The releases are synchronized with your visual novel list, so adding/removing/changing release status here will also affect your regular visual novel list and the other way around."; + li_ "You can not share your list or browse other people's list while this is in beta."; + li_ sub { txt_ "More info and feedback go to "; a_ href => '/t13136', 't13136' }; + }; + }; + p_ class => 'center', sub { b_ class => 'standout', style => 'font-size: 30px', '!BETA BETA BETA BETA!'; }; + }; + my $opt; div_ class => 'mainbox', sub { h1_ $title; |