X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_bd_update.erl;h=a039c1f10ad19e3b0b4c24011dd0e93fdf2bf332;hp=4c722848b48f277c7f8beb96b0fd5d5d577f4752;hb=ed8e58f8759312d4c71043023c4ed198330bc5f4;hpb=0976005abd680db9689d0d43d00a0cbfe1769b4b

diff --git a/modules/erl/euphorik_bd_update.erl b/modules/erl/euphorik_bd_update.erl
index 4c72284..a039c1f 100644
--- a/modules/erl/euphorik_bd_update.erl
+++ b/modules/erl/euphorik_bd_update.erl
@@ -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.