FIX oubli de fichiers
authorGreg Burri <greg.burri@gmail.com>
Thu, 10 Jul 2008 18:26:36 +0000 (18:26 +0000)
committerGreg Burri <greg.burri@gmail.com>
Thu, 10 Jul 2008 18:26:36 +0000 (18:26 +0000)
modules/erl/euphorik_bd_update.erl
styles/1/infos.txt [new file with mode: 0644]
styles/2/infos.txt [new file with mode: 0644]

index 4c72284..a039c1f 100644 (file)
@@ -132,11 +132,10 @@ backup(Nom) ->
 
 % 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) when is_integer(N) ->
-   mnesia:restore(fichier_backup(N), [{default_op, recreate_tables}]);
-restore(Nom) when is_string(Nom) ->
+restore(N) ->
+   mnesia:restore(fichier_backup(N), [{default_op, recreate_tables}]).
 
 
 % Renvoie le fichier (avec le chemin) correspondant à la version Version, par exemple : "/var/euphorik/BD/backups/backup1"
 fichier_backup(Version) -> 
-   mnesia:system_info(directory) ++ "/backups/backup" ++ integer_to_list(Version).
+   mnesia:system_info(directory) ++ "/backups/" ++ if is_integer(Version) -> "backup" ++ integer_to_list(Version); true -> Version end.
diff --git a/styles/1/infos.txt b/styles/1/infos.txt
new file mode 100644 (file)
index 0000000..bccf61f
--- /dev/null
@@ -0,0 +1 @@
+{nom, "retro"}.
\ No newline at end of file
diff --git a/styles/2/infos.txt b/styles/2/infos.txt
new file mode 100644 (file)
index 0000000..bd5cc0b
--- /dev/null
@@ -0,0 +1 @@
+{nom, "dark"}.
\ No newline at end of file