From 9a20d171233eca0dee4a2c854cd15a878312ba65 Mon Sep 17 00:00:00 2001 From: Marco Ziener Date: Thu, 14 Oct 2010 14:34:18 +0200 Subject: Errors fixed --- server/media.erl | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/server/media.erl b/server/media.erl index 9d5bcb6..7e84b28 100644 --- a/server/media.erl +++ b/server/media.erl @@ -122,9 +122,9 @@ devote(Artist, Title) -> lock(Artist, Title) -> F = fun() -> [Head|_] = ask(Artist, Title), - Votes = Head#track.votes -1, - New = Head#track(votes = Votes), - mnesia:write(New), + Votes = Head#track.votes - 1, + New = Head#track{votes = Votes}, + mnesia:write(New) end, mnesia:transaction(F). @@ -133,13 +133,16 @@ unlock(Artist, Title) -> [Head|_] = ask(Artist, Title), Votes = Head#track.votes -1, New = Head#track{votes = Votes}, - mnesia:write(New), + mnesia:write(New) end, mnesia:transaction(F). lock_prozess(Artist, Title) -> lock(Artist, Title), receive - after TIMEOUT unlock(Artist, Title). + + after ?TIMEOUT -> + unlock(Artist, Title) end. + -- cgit v1.2.3