Fix leading ptis for a XIP
Change-Id: Ic0b8e2f31eceffc46d7c713439415e112e902d40
diff --git a/lib/KorAP/Index/XIP/Constituency.pm b/lib/KorAP/Index/XIP/Constituency.pm
index d181afd..7e2853e 100644
--- a/lib/KorAP/Index/XIP/Constituency.pm
+++ b/lib/KorAP/Index/XIP/Constituency.pm
@@ -88,7 +88,8 @@
term => '<>:xip/c:' . $type,
o_start => $span->o_start,
o_end => $span->o_end,
- p_end => $span->p_end
+ p_end => $span->p_end,
+ pti => 64
);
# Only add level payload if node != root
diff --git a/lib/KorAP/Index/XIP/Morpho.pm b/lib/KorAP/Index/XIP/Morpho.pm
index 474bef0..2c82ba7 100644
--- a/lib/KorAP/Index/XIP/Morpho.pm
+++ b/lib/KorAP/Index/XIP/Morpho.pm
@@ -43,9 +43,8 @@
# Composites
my (@token) = split('#', $found);
- if (@token == 1) {
- next;
- };
+ next if @token == 1;
+
my $full = '';
foreach (@token) {
$full .= $_;
diff --git a/lib/KorAP/Index/XIP/Sentences.pm b/lib/KorAP/Index/XIP/Sentences.pm
index 9d61825..0273b39 100644
--- a/lib/KorAP/Index/XIP/Sentences.pm
+++ b/lib/KorAP/Index/XIP/Sentences.pm
@@ -19,6 +19,7 @@
o_start => $span->o_start,
o_end => $span->o_end,
p_end => $span->p_end,
+ pti => 64,
payload => '<b>0' # Could be 2 as well for t/p/s
);
$i++;