aboutsummaryrefslogtreecommitdiffstats
path: root/server/client.erl
diff options
context:
space:
mode:
Diffstat (limited to 'server/client.erl')
-rw-r--r--server/client.erl5
1 files changed, 4 insertions, 1 deletions
diff --git a/server/client.erl b/server/client.erl
index d12c891..7cee336 100644
--- a/server/client.erl
+++ b/server/client.erl
@@ -42,7 +42,10 @@ loop(Client, User) ->
execute(Client, fun() -> media:getVotes(Client) end);
{vote, Artist, Title} ->
- execute(Client, fun() -> media:vote(Artist, Title) end);
+ case cldb:decVote(User) of
+ {ok} -> execute(Client, fun() -> media:vote(Artist, Title) end);
+ _ -> Client ! {error, no_votes_available}
+ end;
{devote, Artist, Title} ->
execute(Client, fun() -> media:devote(Artist, Title) end);