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