X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_bd_update.erl;h=1f04ab08743f73858d0d3e947f21980f4c92ec77;hp=a0456bc7b8b17dacae5b66e865fac5bbb47e17d5;hb=7ade6a3495cd5c74c964df5ed794e110e770ed9d;hpb=fe508652111984ab4f2707a36d5ced39aaaf5cac diff --git a/modules/erl/euphorik_bd_update.erl b/modules/erl/euphorik_bd_update.erl index a0456bc..1f04ab0 100644 --- a/modules/erl/euphorik_bd_update.erl +++ b/modules/erl/euphorik_bd_update.erl @@ -56,7 +56,7 @@ update() -> % attention : il est nécessaire de se trouver dans une transaction. update(?VERSION_BD) -> fini; update(Version) -> - case mnesia:backup(mnesia:system_info(directory) ++ "/backup" ++ integer_to_list(Version)) of + case mnesia:backup(fichier_backup(Version)) of ok -> case patch(Version) of ok -> @@ -78,7 +78,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, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css, Nick_format, View_times, View_tooltips, reverse, Indice_flood, lists:map(fun({C, _}) -> C end, Conversations), Ek_master, Last_ip} + {user, Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css, Nick_format, View_times, View_tooltips, light, reverse, Indice_flood, lists:map(fun({R, _}) -> {R, false} end, Conversations), Ek_master, Last_ip} end, record_info(fields, user), user @@ -120,5 +120,9 @@ patch_1_traiter_message(M, Racine) -> % Reviens à une version précédente de la base de données % (les données insérées durant les versions plus récentes sont perdues) restore(N) -> - mnesia:restore(mnesia:system_info(directory) ++ "/backup" ++ integer_to_list(N)). + mnesia:restore(fichier_backup(N), []). + +% Renvoie le fichier (avec le chemin) correspondant à la version Version. +fichier_backup(Version) -> + mnesia:system_info(directory) ++ "/backups/backup" ++ integer_to_list(Version).