1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
package VNWeb::VN::Tagmod;
use VNWeb::Prelude;
use VNWeb::Tags::Lib;
my $FORM = {
id => { id => 1 },
title => { _when => 'out' },
tags => { sort_keys => 'id', aoh => {
id => { id => 1 },
vote => { int => 1, enum => [ -3..3 ] },
spoil => { required => 0, uint => 1, enum => [ 0..2 ] },
overrule => { anybool => 1 },
notes => { required => 0, default => '', maxlength => 1000 },
cat => { _when => 'out' },
name => { _when => 'out' },
rating => { _when => 'out', num => 1 },
count => { _when => 'out', uint => 1 },
spoiler => { _when => 'out', num => 1 },
overruled => { _when => 'out', anybool => 1 },
othnotes => { _when => 'out' },
state => { _when => 'out', uint => 1 },
applicable => { _when => 'out', anybool => 1 },
} },
mod => { _when => 'out', anybool => 1 },
};
my $FORM_IN = form_compile in => $FORM;
my $FORM_OUT = form_compile out => $FORM;
elm_api Tagmod => $FORM_OUT, $FORM_IN, sub {
my($id, $tags) = $_[0]->@{'id', 'tags'};
return elm_Unauth if !auth->permTag;
$tags = [ grep $_->{vote}, @$tags ];
$_->{overrule} = 0 for auth->permTagmod ? () : @$tags;
# Weed out invalid/deleted/non-applicable tags.
# Voting on non-applicable tags is still allowed if there are existing votes for this tag on this VN.
enrich_merge id => sql('
SELECT tag AS id, 1 as exists FROM tags_vn WHERE vid =', \$id, '
UNION
SELECT id, 1 as exists FROM tags WHERE state <> 1 AND applicable AND id IN'
), $tags;
$tags = [ grep $_->{exists}, @$tags ];
# Find out if any of these tags are being overruled
enrich_merge id => sub { sql 'SELECT tag AS id, bool_or(ignore) as overruled FROM tags_vn WHERE vid =', \$id, 'AND tag IN', $_, 'GROUP BY tag' }, $tags;
# Delete tag votes not in $tags
tuwf->dbExeci('DELETE FROM tags_vn WHERE uid =', \auth->uid, 'AND vid =', \$id, @$tags ? ('AND tag NOT IN', [ map $_->{id}, @$tags ]) : ());
# Add & update tags
for(@$tags) {
my $row = { uid => auth->uid, vid => $id, tag => $_->{id}, vote => $_->{vote}, spoiler => $_->{spoil}, ignore => ($_->{overruled} && !$_->{overrule})?1:0, notes => $_->{notes} };
tuwf->dbExeci('INSERT INTO tags_vn', $row, 'ON CONFLICT (uid, tag, vid) DO UPDATE SET', $row);
tuwf->dbExeci('UPDATE tags_vn SET ignore = TRUE WHERE uid IS DISTINCT FROM (', \auth->uid, ') AND vid =', \$id, 'AND tag =', \$_->{id}) if $_->{overrule};
}
# Make sure to reset the ignore flag when a moderator removes an overruled vote.
# (i.e. look for tags where *all* votes are on ignore)
tuwf->dbExeci('UPDATE tags_vn tv SET ignore = FALSE WHERE NOT EXISTS(SELECT 1 FROM tags_vn tvi WHERE tvi.tag = tv.tag AND tvi.vid = tv.vid AND NOT tvi.ignore) AND vid =', \$id) if auth->permTagmod;
tuwf->dbExeci(select => sql_func tag_vn_calc => \$id);
elm_Success
};
TUWF::get qr{/$RE{vid}/tagmod}, sub {
my $v = tuwf->dbRowi('SELECT id, title, hidden AS entry_hidden, locked AS entry_locked FROM vn WHERE id =', \tuwf->capture('id'));
return tuwf->resNotFound if !$v->{id} || (!auth->permDbmod && $v->{entry_hidden});
return tuwf->resDenied if !auth->permTag;
my $tags = tuwf->dbAlli('
SELECT t.id, t.name, t.cat, count(*) as count, t.state, t.applicable
, coalesce(avg(CASE WHEN tv.ignore OR (u.id IS NOT NULL AND NOT u.perm_tag) THEN NULL ELSE tv.vote END), 0) as rating
, coalesce(avg(CASE WHEN tv.ignore OR (u.id IS NOT NULL AND NOT u.perm_tag) THEN NULL ELSE tv.spoiler END), t.defaultspoil) as spoiler
, bool_or(tv.ignore) as overruled
FROM tags t
JOIN tags_vn tv ON tv.tag = t.id
LEFT JOIN users u ON u.id = tv.uid
WHERE tv.vid =', \$v->{id}, '
GROUP BY t.id, t.name, t.cat
ORDER BY t.name'
);
enrich_merge id => sub { sql 'SELECT tag AS id, vote, spoiler AS spoil, ignore, notes FROM tags_vn WHERE', { uid => auth->uid, vid => $v->{id} } }, $tags;
enrich othnotes => id => tag => sub {
sql('SELECT tv.tag, ', sql_user(), ', tv.notes FROM tags_vn tv JOIN users u ON u.id = tv.uid WHERE tv.notes <> \'\' AND uid IS DISTINCT FROM (', \auth->uid, ') AND vid=', \$v->{id})
}, $tags;
for(@$tags) {
$_->{vote} //= 0;
$_->{spoil} //= undef;
$_->{notes} //= '';
$_->{overrule} = $_->{vote} && !$_->{ignore} && $_->{overruled};
$_->{othnotes} = join "\n", map user_displayname($_).': '.$_->{notes}, $_->{othnotes}->@*;
}
framework_ title => "Edit tags for $v->{title}", type => 'v', dbobj => $v, tab => 'tagmod', sub {
elm_ 'Tagmod' => $FORM_OUT, { id => $v->{id}, title => $v->{title}, tags => $tags, mod => auth->permTagmod };
};
};
1;
|
