X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_bd.erl;h=8eb90dfb03c2f85b3d711ff39b65fc233366b8f4;hb=cded85bdaf899cef1ba38d2ee6fd24c67f2abc52;hp=49bb3348f4ff74544e44aa9d1c1ee154342e3c79;hpb=5527b650d1cb16caa6afc8f44545097ca92b97a2;p=euphorik.git

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index 49bb334..8eb90df 100755
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -55,9 +55,7 @@ vers_version(2) ->
       end,
       record_info(fields, user),
       user
-   ).
-
-
+   );
 vers_version(3) ->
    mnesia:transform_table(
       user,
@@ -66,8 +64,16 @@ vers_version(3) ->
       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
+   ).      
 
 % exemple de peuplage de la BD, utilisé pour les tests
 peupler() ->