Skip to content
Snippets Groups Projects
Commit 93df63d0 authored by Gerhard Gonter's avatar Gerhard Gonter :speech_balloon:
Browse files

write all persons into authctrl.json

parent baef974a
Branches
No related tags found
No related merge requests found
...@@ -23,3 +23,5 @@ Q* ...@@ -23,3 +23,5 @@ Q*
PDS_backing.pages PDS_backing.pages
latest latest
index.html index.html
P31_cnt
authctrl_P31_cnt.tsv
...@@ -219,7 +219,7 @@ sub print_page_info ...@@ -219,7 +219,7 @@ sub print_page_info
print "highest_page_num=[$self->{highest_page_num}]\n"; print "highest_page_num=[$self->{highest_page_num}]\n";
my $ps= $self->{page_skips}; 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 sub load_page
......
...@@ -432,9 +432,25 @@ my $fo_count= $fo_rec->open(); ...@@ -432,9 +432,25 @@ my $fo_count= $fo_rec->open();
my $authctrl; my $authctrl;
if ($ty eq 'item') if ($ty eq 'item')
{ {
my $use_authctrl= 0;
foreach my $x (@authctrl) foreach my $x (@authctrl)
{ {
if (exists ($jc->{$x})) 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= $authctrl=
{ {
...@@ -442,8 +458,6 @@ my $fo_count= $fo_rec->open(); ...@@ -442,8 +458,6 @@ my $fo_count= $fo_rec->open();
'tlt_l' => \%tlt_l, 'tlt_l' => \%tlt_l,
'tlt_d' => \%tlt_d, 'tlt_d' => \%tlt_d,
}; };
last;
}
} }
} }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please to comment