MOD avancement sur les conversations (on s'approche du but..)

[euphorik.git] / modules / erl / euphorik_bd.erl

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index 8eb90df..c27a694 100755 (executable)
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -21,8 +21,8 @@ create() ->
    mnesia:delete_schema([node()]),\r
    mnesia:create_schema([node()]), % nécessaire pour les tables sur disc\r
    mnesia:start(),\r
-   create_tables().\r
-\r
+   create_tables().
+   \r
 
 create_tables() ->\r
    mnesia:create_table(counter, [\r
@@ -73,8 +73,19 @@ vers_version(4) ->
       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() ->   
    mnesia:transaction(