write all persons into authctrl.json

.gitignore

@@ -23,3 +23,5 @@ Q*
 PDS_backing.pages
 latest
 index.html
+P31_cnt
+authctrl_P31_cnt.tsv

lib/PDS.pm

@@ -219,7 +219,7 @@ sub print_page_info
   print "highest_page_num=[$self->{highest_page_num}]\n";
 
   my $ps= $self->{page_skips};
-  print "page_skips: ", join (', ', map { $_. ' <= '. $ps->{$_}.'x' } sort keys %$ps), "\n";
+  print "page_skips: ", join (', ', map { $_. ' <= '. $ps->{$_}.'x' } sort { $a <=> $b } keys %$ps), "\n";
 }
 
 sub load_page

wdq1.pl

@@ -432,9 +432,25 @@ my $fo_count= $fo_rec->open();
   my $authctrl;
   if ($ty eq 'item')
   {
+    my $use_authctrl= 0;
     foreach my $x (@authctrl)
     {
       if (exists ($jc->{$x}))
+      {
+        $use_authctrl= 1;
+        last;
+      }
+    }
+
+    if (!$use_authctrl && exists ($jc->{P31}))
+    {
+      my $P31= $jc->{P31};
+      my $P31val= $P31->[0]->{mainsnak}->{datavalue}->{value}->{id};
+      # print __LINE__, " P31=[$P31] => [$P31val]\n";
+      $use_authctrl= 1 if ($P31val eq 'Q5');
+    }
+
+    if ($use_authctrl)
     {
         $authctrl=
         {
@@ -442,8 +458,6 @@ my $fo_count= $fo_rec->open();
           'tlt_l' => \%tlt_l,
           'tlt_d' => \%tlt_d,
         };
-        last;
-      }
     }
   }