From: Greg Burri <greg.burri@gmail.com>
Date: Fri, 3 Oct 2008 07:23:34 +0000 (+0000)
Subject: FIX #81 (pas fini)
X-Git-Tag: 1.1.3~25
X-Git-Url: http://git.euphorik.ch/index.cgi?a=commitdiff_plain;h=e1bca2f5335f66a1a869bbc57e3346514e628558;p=euphorik.git

FIX #81 (pas fini)
---

diff --git a/modules/erl/euphorik_bd_admin.erl b/modules/erl/euphorik_bd_admin.erl
index 616ac4d..d9e9cc7 100644
--- a/modules/erl/euphorik_bd_admin.erl
+++ b/modules/erl/euphorik_bd_admin.erl
@@ -205,7 +205,28 @@ update(Version) ->
 % crée un backup avant l'application du patch
 % dans BD/backups nommé "backup<num>" où <num> et le numéro de la version.
 % 1 -> 2
-patch(1) ->
+patch(1) ->
+   % Prend un chemin vers la feuille de style de type "css/1/euphorik.css"
+   % et renvoie "styles/1/euphorik.css"
+   Transforme_css = fun(F) ->
+      case F of
+         "css" ++ Reste -> "styles" ++ Reste;
+         _ -> F
+      end
+   end,
+   Traiter_message = fun(M, Racine) ->
+      F = fun(F, M2) -> % seul moyen à ma connaissance pour faire de la récursion dans une lambda fonction, voir : http://www.nabble.com/Auto-generated-functions-td15279499.html
+         % met à jour la racine de chaque message qui répond à M
+         lists:foreach(
+            fun(M3) ->
+               mnesia:write(M2#minichat{racine_id = Racine}),
+               F(F, M3)
+            end,
+            euphorik_bd:enfants(M#minichat.id)
+         )
+      end,
+      F(F, M, Racine)
+   end,
    mnesia:create_table(texte, [
       {attributes, record_info(fields, texte)},
       {disc_copies, [node()]}
@@ -215,7 +236,7 @@ patch(1) ->
    mnesia:transform_table(
       user,
       fun({user, Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css, Nick_format, View_times, View_tooltips, Indice_flood, _Page_principale, Conversations, Ek_master, Last_ip}) ->
-            {user, Id, Cookie, Login, Password, {profile, Pseudo, Email, patch1_transforme_css(Css), Nick_format, View_times, View_tooltips, light, reverse, lists:map(fun({R, _}) -> {R, false} end, Conversations)}, Date_creation, Date_derniere_connexion, Indice_flood, Ek_master, Last_ip}
+            {user, Id, Cookie, Login, Password, {profile, Pseudo, Email, Transforme_css(Css), Nick_format, View_times, View_tooltips, light, reverse, lists:map(fun({R, _}) -> {R, false} end, Conversations)}, Date_creation, Date_derniere_connexion, Indice_flood, Ek_master, Last_ip}
       end,
       record_info(fields, user),
       user
@@ -233,31 +254,30 @@ patch(1) ->
          % met à jour les enfants des racines
          % idéalement : utiliser un cursor mais je crois qu'il n'est pas possible de faire des modifs en itérant en même temps avec un cursor, a voir..
          Messages = e(q([M || M <- mnesia:table(minichat), euphorik_bd:parents(M#minichat.id) =:= []]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]),
-         lists:foreach(fun(M) -> patch_1_traiter_message(M, M#minichat.id) end, Messages)
+         lists:foreach(fun(M) -> Traiter_message(M, M#minichat.id) end, Messages)
       end
    ) of
       {aborted, Raison} -> {erreur, Raison};
       {atomic, _} -> ok
-   end.
-   
-
-% Prend un chemin vers la feuille de style de type "css/1/euphorik.css"
-% et renvoie "styles/1/euphorik.css"
-patch1_transforme_css("css" ++ Reste) ->
-   "styles" ++ Reste;
-patch1_transforme_css(F) ->
-   F.
-
-   
-patch_1_traiter_message(M, Racine) ->
-   % met à jour la racine de chaque message qui répond à M
-   lists:foreach(
-      fun(M2) ->
-         mnesia:write(M2#minichat{racine_id = Racine}),
-         patch_1_traiter_message(M2, Racine)
-      end,
-      euphorik_bd:enfants(M#minichat.id)
-   ).
+   end;
+% 2 -> 3
+patch(2) ->
+   % traitement de la table troll
+   mnesia:transform_table(
+      troll,
+      fun({troll, Id_troll, Id_user, Date_create, Date_post, Content}) ->
+         % recherche le message associé s'il existe
+         Id_minichat = case mnesia:index_read(minichat, Id_troll, 7) of
+            [#minichat{id = Id}] -> Id;
+            _ -> undefined
+         end,
+         {troll, Id_troll, Id_user, Id_minichat, Date_create, Date_post, Content}
+      end,
+      record_info(fields, troll),
+      user
+   )
+   TODO...
+   
 
 % crée un backup dont le nom est fournit dans le repertoire backups qui se trouve dans le repertoire de la BD.
 %backup(Nom) ->
diff --git a/modules/include/euphorik_bd.hrl b/modules/include/euphorik_bd.hrl
index 6713830..ae69459 100755
--- a/modules/include/euphorik_bd.hrl
+++ b/modules/include/euphorik_bd.hrl
@@ -19,7 +19,7 @@
 
 
 % Version de la BD
--define(VERSION_BD, 2).
+-define(VERSION_BD, 3).
 -define(TABLES, [counter, proprietes, minichat, reponse_minichat, user, ip_table, troll]).
 
 
@@ -55,7 +55,6 @@
       date, % erlang:now()
       pseudo, % chaine de caractère
       contenu, % chaine de caractère
-      troll_id = undefined, % l'id du troll associé correspondant
       racine_id = undefined % la racine, par défaut correspond à l'id du message
    }).
    
@@ -69,7 +68,6 @@
    }). 
 
 
-
 -record(profile, % attention : pas une table !
    {
       pseudo = [], % string()
@@ -81,7 +79,9 @@
       ostentatious_master = light, % peut valoir invisible, light ou heavy. seulement pour ek_master
       chat_order = reverse, % peut valoir chrono ou reverse
       conversations = [] % [{integer(), bool}], la liste des messages correspondant au conversation {racine, reduite?}
-   }).
+   }).
+   
+   
 -record(user,
    {
       id,
@@ -113,7 +113,8 @@
 -record(troll,
    {
       id,
-      id_user,
+      id_user,
+      id_minichat = undefined, % l'id du message associé
       date_create, % erlang:now()
       date_post = undefined, % date à laquelle le troll est affiché sur la page principale. undefined initialement puis erlang:now() quand affiché
       content % chaine de caractère