summaryrefslogtreecommitdiff
path: root/lib/VNWeb/Reviews/Elm.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/VNWeb/Reviews/Elm.pm')
-rw-r--r--lib/VNWeb/Reviews/Elm.pm28
1 files changed, 0 insertions, 28 deletions
diff --git a/lib/VNWeb/Reviews/Elm.pm b/lib/VNWeb/Reviews/Elm.pm
deleted file mode 100644
index 385c8b0f..00000000
--- a/lib/VNWeb/Reviews/Elm.pm
+++ /dev/null
@@ -1,28 +0,0 @@
-package VNWeb::Reviews::Elm;
-
-use VNWeb::Prelude;
-
-my $VOTE = {
- id => { vndbid => 'w' },
- my => { required => 0, jsonbool => 1 },
- overrule => { anybool => 1 },
- mod => { _when => 'out', anybool => 1 },
-};
-
-my $VOTE_IN = form_compile in => $VOTE;
-our $VOTE_OUT = form_compile out => $VOTE;
-
-elm_api ReviewsVote => $VOTE_OUT, $VOTE_IN, sub {
- return elm_Unauth if !auth;
- my($data) = @_;
- my %id = (uid => auth->uid, id => $data->{id});
- my %val = (vote => $data->{my}?1:0, overrule => auth->permBoardmod ? $data->{overrule}?1:0 : 0, date => sql 'NOW()');
- tuwf->dbExeci(
- defined $data->{my}
- ? sql 'INSERT INTO reviews_votes', {%id,%val}, 'ON CONFLICT (id,uid) DO UPDATE SET', \%val
- : sql 'DELETE FROM reviews_votes WHERE', \%id
- );
- elm_Success
-};
-
-1;