Merge pull request #96 from geneanet/gnt-search-get-config

allow translations request when not a wizard

Author: canonici

src/api_saisie_write.ml

@@ -461,7 +461,7 @@ let print_config conf =
   let transl_hebrew_month = Api_saisie_write_piqi.Config_transl_hebrew_month.({msg = transl_hebrew_month;}) in
   let (gwf_place_format, gwf_place_format_placeholder) =
     match List.assoc_opt "places_format" conf.Geneweb.Config.base_env with
-    | Some s ->
+    | Some s when conf.Geneweb.Config.wizard ->
         let placeholder =
           (try
              List.fold_right
@@ -486,7 +486,7 @@ let print_config conf =
           | _ -> placeholder
         in
         (s, placeholder)
-    | None -> ("", "")
+    | Some _ | None -> ("", "")
   in
   let config =
     Api_saisie_write_piqi.Config.({

src/plugin_api.ml

@@ -3,15 +3,6 @@ let friend fn conf base =
   then fn conf base
   else Gwd_lib.Request.incorrect_request conf
 
-let wiz' fn conf =
-  if conf.Geneweb.Config.wizard then
-    fn conf
-  else if conf.Geneweb.Config.just_friend_wizard then
-    Plugin_api_lib.Api_util.print_error conf `forbidden ""
-  else
-    (* FIXME: Needs auth headers *)
-    Plugin_api_lib.Api_util.print_error conf `unauthorized ""
-
 let wiz fn conf base =
   if conf.Geneweb.Config.wizard then
     fn conf base
@@ -158,7 +149,7 @@ let () =
     ; ( "API_AUTO_COMPLETE"
       , fun a -> aux (wiz @@ w_base @@ Plugin_api_lib.Api_saisie_write.print_auto_complete a) a)
     ; ( "API_GET_CONFIG"
-      , aux @@ fun conf _ -> wiz' Plugin_api_lib.Api_saisie_write.print_config conf)
+      , aux @@ fun conf _ -> Plugin_api_lib.Api_saisie_write.print_config conf)
     ; ( "API_PERSON_SEARCH_LIST"
       , aux @@ w_base @@ Plugin_api_lib.Api_saisie_write.print_person_search_list)
     ; ( "API_GET_PERSON_SEARCH_INFO"