X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Finterface%2FxsltProcessorHTTP.ml;h=92888ed74eec017d727d675f256d1dd66f839d72;hb=e1d232bab1b061d9098fd666ca24bed84b38f99e;hp=56096a314bf98137179ef8bfa71cf6023602a436;hpb=952ad2bf8ea4bea5999570f0f592f84bf30acd3f;p=helm.git diff --git a/helm/interface/xsltProcessorHTTP.ml b/helm/interface/xsltProcessorHTTP.ml index 56096a314..92888ed74 100644 --- a/helm/interface/xsltProcessorHTTP.ml +++ b/helm/interface/xsltProcessorHTTP.ml @@ -40,13 +40,15 @@ 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 string_to_send = + Configuration.processor_url ^ "apply?xmluri=" ^ url ^ + "¶m.getterURL=" ^ Configuration.getter_url ^ (List.fold_right (fun key cmd -> "&key=" ^ key ^ cmd) key_list "" ) in - ClientHTTP.get_and_save_to_tmp string_to_send + string_to_send ;;