From 0a56de20bf1b461df480cf9f1319488c839bc6a4 Mon Sep 17 00:00:00 2001 From: Michael Wittig Date: Thu, 14 Oct 2010 19:14:46 +0200 Subject: give_votes needs to be fixed, still --- server/client.erl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'server/client.erl') 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); -- cgit v1.2.3