projects
/
euphorik.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ADD script pour lancer tv (visualisation des tables mnesia)
[euphorik.git]
/
modules
/
erl
/
euphorik_bd_update.erl
diff --git
a/modules/erl/euphorik_bd_update.erl
b/modules/erl/euphorik_bd_update.erl
index
a0456bc
..
14a85c9
100644
(file)
--- 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) ->
% 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 ->
ok ->
case patch(Version) of
ok ->
@@
-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) ->
% 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).