X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgetter%2Fhttp_getter.ml;h=574f6b3c281b8f1113bbbd7ff9a2c274e8370935;hb=4e238c92f66aedf21c2d3a33aa5215cdf0a7189f;hp=d2993575a439f3770ffb35c4caab5745dd3c5dea;hpb=0c2c92ac29d8f9592e5b9d547632ff334155aee1;p=helm.git

diff --git a/helm/software/components/getter/http_getter.ml b/helm/software/components/getter/http_getter.ml
index d2993575a..574f6b3c2 100644
--- a/helm/software/components/getter/http_getter.ml
+++ b/helm/software/components/getter/http_getter.ml
@@ -151,13 +151,21 @@ let exists uri =
    let uri = deref_index_theory uri in
     Http_getter_storage.exists (uri ^ xml_suffix)
 	
+let is_an_obj s = 
+  try 
+    s <> UriManager.buri_of_uri (UriManager.uri_of_string s)
+  with UriManager.IllFormedUri _ -> false
+    
 let resolve ~writable uri =
   if remote () then
     resolve_remote ~writable uri
   else
    let uri = deref_index_theory uri in
     try
-      Http_getter_storage.resolve ~writable (uri ^ xml_suffix)
+      if is_an_obj uri then
+        Http_getter_storage.resolve ~writable (uri ^ xml_suffix)
+      else
+        Http_getter_storage.resolve ~writable uri
     with Http_getter_storage.Resource_not_found _ -> raise (Key_not_found uri)
 
 let filename ~writable uri =