+% Met à jour la bd, compare ?VERSION_BD avec la version dans la table 'proprietes'
+% et exécute les patchs nécessaires.
+update() ->
+ mnesia:transaction(
+ fun() ->
+ case mnesia:read({proprietes, version}) of
+ [#proprietes{nom = Version}] ->
+ update(Version);
+ _ ->
+ erreur
+ end
+ end
+ ).
+
+
+% Mise à jour de la BD.
+% attention : il est nécessaire de se trouver dans une transaction.
+update(?VERSION_BD) -> fini;
+update(Version) ->
+ patch(Version),
+ update(Version + 1).
+
+
+% Applique une modification de la BD pour passer d'une version à la suivante.
+% 1 -> 2
+patch(1) ->
+ ok.
+% 2 -> 3
+%patch(2) ->
+
+