add is_contemporary

Author: swrup

src/api_saisie_read.ml

@@ -559,7 +559,8 @@ let pers_to_piqi_simple_person conf base p base_prefix =
       baseprefix = base_prefix;
       has_parent = has_parent;
       has_spouse = has_spouse;
-      has_child = has_child
+      has_child = has_child;
+      is_contemporary = !GWPARAM.is_contemporary conf base p;
     }
 
 
@@ -1945,7 +1946,7 @@ let print_from_identifier_person conf base print_result_from_ip identifier_perso
           begin
             match Gwdb.person_of_key base fn sn (Int32.to_int oc) with
             | Some ip ->
-              if Api_util.get_visibility conf base ip = `private_ then
+              if Api_util.get_visibility conf base (Gwdb.poi base ip) = `private_ then
                 print_error conf `not_found ""
               else
                 (if identifier_person.Mread.Identifier_person.track_visit

src/api_util.ml

@@ -667,6 +667,7 @@ let empty_piqi_person_light conf ref_person =
     descend = false;
     visible_for_visitors = `private_;
     baseprefix = conf.command;
+    is_contemporary = true;
   }
 
 
@@ -721,6 +722,7 @@ let empty_piqi_person_full conf ref_person =
     parents = None;
     families = [];
     baseprefix = conf.command;
+    is_contemporary = true;
   }
 
 
@@ -1015,6 +1017,7 @@ let pers_to_piqi_person_light conf base p compute_sosa =
     descend = descend;
     visible_for_visitors = get_visibility conf base p;
     baseprefix = baseprefix;
+    is_contemporary = !GWPARAM.is_contemporary conf base p;
   }
 
 
@@ -1223,6 +1226,7 @@ let pers_to_piqi_person_full conf base p compute_sosa =
     parents = parents;
     families = families;
     baseprefix = baseprefix;
+    is_contemporary = !GWPARAM.is_contemporary conf base p;
   }
 
 

src/assets/api.proto

@@ -149,6 +149,7 @@ message Person {
   required Visibility visible_for_visitors = 22;
   required string baseprefix = 23;
   required int32 index = 24;
+  required bool is_contemporary = 25;
 }
 
 message FullPerson {
@@ -188,6 +189,7 @@ message FullPerson {
   optional int32 parents = 36;
   repeated int32 families = 37;
   required string baseprefix = 38;
+  required bool is_contemporary = 39;
 }
 
 message FullFamily {

src/assets/api_saisie_read.proto

@@ -271,6 +271,7 @@ message SimplePerson {
   required bool has_parent = 19;
   required bool has_spouse = 20;
   required bool has_child = 21;
+  required bool is_contemporary = 22;
 }
 
 message RelationPerson {
@@ -391,6 +392,7 @@ message FichePerson {
   repeated RelationFichePerson rparents = 27;
   repeated EventFicheWitness events_witnesses = 28;
   repeated FicheEvent events = 29;
+  required bool is_contemporary = 30;
 }
 
 message Family {