X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_bd.erl;h=298db8d23a5707be3867a4a4542d3f066eeedeb6;hb=7ed3a03bffb4112ee174b05ef1d7b486d6ad6534;hp=4478726a9f302d49939dabdcf91398e4810d8434;hpb=50e129994805932dbf407e55afb971c0f7b20f1c;p=euphorik.git

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index 4478726..298db8d 100755
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -21,8 +21,8 @@ create() ->
    mnesia:delete_schema([node()]),
    mnesia:create_schema([node()]), % nécessaire pour les tables sur disc
    mnesia:start(),
-   create_tables().
-
+   create_tables().
+   
 
 create_tables() ->
    mnesia:create_table(counter, [
@@ -64,8 +64,27 @@ 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
+   );
+% Ajout du numéro de page de la conv principale
+vers_version(5) ->
+   mnesia:transform_table(
+      user,
+      fun({user, Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css, Indice_flood, Conversations}) ->
+            {user,  Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css, Indice_flood, 1, Conversations}
+      end,
+      record_info(fields, user),
+      user
+   ).      
+
 
 % exemple de peuplage de la BD, utilisé pour les tests
 peupler() ->   
@@ -75,5 +94,3 @@ peupler() ->
          mnesia:write({minichat, now(), "Paul", "Salut à toi !"})
       end
    ).
-
-