X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=helm%2Finterface%2FxsltProcessorHTTP.ml;h=d8f5b057ead0c7daa2a2851743a482d02e61a6f0;hb=faf311442f59ccbc652c7965d23ed2945fd40906;hp=56096a314bf98137179ef8bfa71cf6023602a436;hpb=952ad2bf8ea4bea5999570f0f592f84bf30acd3f;p=helm.git

diff --git a/helm/interface/xsltProcessorHTTP.ml b/helm/interface/xsltProcessorHTTP.ml
index 56096a314..d8f5b057e 100644
--- a/helm/interface/xsltProcessorHTTP.ml
+++ b/helm/interface/xsltProcessorHTTP.ml
@@ -38,15 +38,18 @@ let initialize () =
 
 let process uri usecache mode =
  let uri = UriManager.string_of_uri uri in
- let url = Configuration.getter_url ^ "get?uri=" ^ uri in
- let key_list = StyleConfiguration.key_list_of_mode_name mode in
- let string_to_send = Configuration.processor_url ^ "apply?xmluri=" ^ url ^ 
+ let url = Configuration.getter_url ^ "getxml?uri=" ^ uri in
+ let first_key::key_list = StyleConfiguration.key_list_of_mode_name mode in
+ let string_to_send =
+  Configuration.processor_url ^ "apply?xmluri=" ^ url ^
+  "&param.getterURL=" ^ Configuration.getter_url ^
+  "&keys=" ^ first_key ^
   (List.fold_right
-   (fun key cmd -> "&key=" ^ key ^ cmd)
+   (fun key cmd -> "," ^ key ^ cmd)
     key_list
     ""
    )
  in
-  ClientHTTP.get_and_save_to_tmp string_to_send
+  string_to_send
 ;;