From 0a56de20bf1b461df480cf9f1319488c839bc6a4 Mon Sep 17 00:00:00 2001
From: Michael Wittig <michael.wittig@fu-berlin.de>
Date: Thu, 14 Oct 2010 19:14:46 +0200
Subject: give_votes needs to be fixed, still

---
 server/cldb.erl | 32 +++++++++++++++++++++++---------
 1 file changed, 23 insertions(+), 9 deletions(-)

(limited to 'server/cldb.erl')

diff --git a/server/cldb.erl b/server/cldb.erl
index d514ff9..f6c7821 100644
--- a/server/cldb.erl
+++ b/server/cldb.erl
@@ -1,7 +1,7 @@
 % The clientdatabase
 
 -module(cldb).
--export([init/0, ask/2, login/2, decVote/1, incVote/1, register/3, check_rights/1]).
+-export([init/0,all/0, ask/2, login/2, decVote/1, incVote/1, register/3, check_rights/1, give_votes/1]).
 -record(user, {name, passwd, votes, rights}).
 
 init() ->
@@ -12,10 +12,18 @@ init() ->
 
 ask(User, Pwd) ->
     F = fun() ->
-                mnesia:match_object({user, User, Pwd, '_', '_'})
+        mnesia:match_object({user, User, Pwd, '_', '_'})
         end,
     mnesia:transaction(F).
 
+all() ->
+	F = fun() ->
+        mnesia:match_object({user, '_', '_', '_', '_'})
+        end,
+    {atomic, List} =  mnesia:transaction(F),
+	List.
+	
+
 login(User, Pwd) ->
     case ask(User, Pwd) of
 	{atomic, [UserRow|_]} -> {ok, UserRow};
@@ -38,14 +46,20 @@ register(User, Pwd, Root) ->
 	    {error, duplicated_user}
     end.
 
+decVote(User) when is_list(User) ->
+    {atomic, [Head|_]} = ask(User, '_'),
+    if Head#user.votes > 0 ->
+        F = fun() ->
+                    Votes = Head#user.votes - 1,
+                    New = Head#user{votes = Votes},
+                    mnesia:write(New)
+            end,
+        mnesia:transaction(F),
+        {ok};
+        true -> {error}
+    end;
 decVote(User) ->
-    F = fun() ->
-                [Head|_] = ask(User, '_'),
-                Votes = Head#user.votes - 1,
-                New = Head#user{votes = Votes},
-                mnesia:write(New)
-        end,
-    mnesia:transaction(F).
+    decVote(User#user.name).
 
 incVote(User) ->
     F = fun() ->
-- 
cgit v1.2.3