X-Git-Url: http://git.euphorik.ch/index.cgi?a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_bd.erl;h=469e2422629cd6654e76d02357d56f613dc5d23d;hb=ac8cb03ce2a0982fd386e639be1368c8fb59e94e;hp=56a659ad1e950a9135c814c7aa6ef4428b341ae9;hpb=288706fac9732d0dbf55fc9e3291e2dda69f1fcd;p=euphorik.git

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index 56a659a..469e242 100755
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -1,9 +1,13 @@
 % Module de création de la base de données euphorik.
-% Auteur : G.Burri
-% Date : 14.10.2007
+% @author G.Burri
 
 -module(euphorik_bd).
--export([create/0, create_tables/0, vers_version2/0, vers_version3/0, peupler/0, tester/0]).
+-export([
+   create/0,
+   create_tables/0,
+   vers_version/1,
+   peupler/0
+   ]).
 
 -include("../include/euphorik_bd.hrl").
 
@@ -43,7 +47,7 @@ create_tables() ->
    ]).
 
 
-vers_version2() ->
+vers_version(2) ->
    mnesia:transform_table(
       user,
       fun({user, Id, Cookie, Pseudo, Date_creation, Date_derniere_connexion, Css}) ->
@@ -51,9 +55,8 @@ vers_version2() ->
       end,
       record_info(fields, user),
       user
-   ).
-
-vers_version3() ->
+   );
+vers_version(3) ->
    mnesia:transform_table(
       user,
       fun({user, Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css}) ->
@@ -61,6 +64,15 @@ vers_version3() ->
       end,
       record_info(fields, user),
       user
+   );
+vers_version(4) ->
+   mnesia:transform_table(
+      user,
+      fun({user, Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css, Indice_flood}) ->
+            {user,  Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css, Indice_flood, []}
+      end,
+      record_info(fields, user),
+      user
    ).
       
 
@@ -73,7 +85,4 @@ peupler() ->
       end
    ).
 
-
-tester() ->
-   ok.