Api: Lighten the request getting all portraits of a given database

We only need to return the surname, the first name and the occurrence
number of the person.

src/api.ml

@@ -417,20 +417,12 @@ let print_img_all conf base =
     else
       Api_util.print_result conf (fl list)
   in
-  let compute_sosa = Api_util.compute_sosa conf base false in
-  if Api_util.p_getenvbin conf.env "full_infos" = Some "1" then
-    aux
-      (fun p img ->
-         let p = Api_util.pers_to_piqi_person_full conf base p compute_sosa in
-         Api_piqi.Full_image.({person = p; img = img;}))
-      (fun list -> Api_piqi_ext.gen_list_full_images @@ Api_piqi.List_full_images.({images = list}) )
-  else
-    aux
-      (fun p img ->
-         let p = Api_util.pers_to_piqi_person_light conf base p compute_sosa in
-         Api_piqi.Image.({person = p; img}))
-      (fun list ->
-         Api_piqi_ext.gen_list_images @@ Api_piqi.List_images.({list_images = list}))
+  aux
+    (fun p img ->
+       let p = Api_util.person_to_reference_person base p in
+       Api_piqi.Image.({person = p; img}))
+    (fun list ->
+       Api_piqi_ext.gen_list_images @@ Api_piqi.List_images.({list_images = list}))
 
 (**/**) (* API_IMAGE_APP *)
 

src/assets/api.proto

@@ -241,23 +241,14 @@ message SearchParams {
 }
 
 message Image {
-  required Person person = 1;
-  required string img = 2;
-}
-
-message FullImage {
-  required FullPerson person = 1;
+  required ReferencePerson person = 1;
   required string img = 2;
 }
 
 message ListImages {
   repeated Image list_images = 1;
 }
 
-message ListFullImages {
-  repeated FullImage images = 1;
-}
-
 message PersImg {
   required ReferencePerson person = 1;
   required string img = 2;