diff options
Diffstat (limited to 'lib/VNWeb/Reviews/Elm.pm')
-rw-r--r-- | lib/VNWeb/Reviews/Elm.pm | 28 |
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; |