From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Tue, 1 Feb 2005 13:44:27 +0000 (+0000)
Subject: MetadataDB.clean now cleans the getter maps (calling Http_getter.unregister)
X-Git-Tag: V_0_1_0~76
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=9eb303488eea42ec9cd1f588f49b293148878a37;p=helm.git

MetadataDB.clean now cleans the getter maps (calling Http_getter.unregister)
from the uris that deletes from the DB
---

diff --git a/helm/ocaml/metadata/metadataDb.ml b/helm/ocaml/metadata/metadataDb.ml
index 7eaf4d881..df79118f2 100644
--- a/helm/ocaml/metadata/metadataDb.ml
+++ b/helm/ocaml/metadata/metadataDb.ml
@@ -130,5 +130,6 @@ let clean ~(dbd:Mysql.dbd) ~owner =
   in
   List.iter del_from
     [sort_tbl; rel_tbl; obj_tbl; conclno_tbl; conclno_hyp_tbl; name_tbl;
-    owners_tbl]
+    owners_tbl];
+  List.iter Http_getter.unregister owned_uris