Fixed DRuKoLa annotations
Change-Id: I95b881905495e4ccee30c0b6dc711eebdebfb955
diff --git a/lib/KorAP/XML/Annotation/DRuKoLa/Morpho.pm b/lib/KorAP/XML/Annotation/DRuKoLa/Morpho.pm
index 6d2e6f8..4cf6d50 100644
--- a/lib/KorAP/XML/Annotation/DRuKoLa/Morpho.pm
+++ b/lib/KorAP/XML/Annotation/DRuKoLa/Morpho.pm
@@ -24,7 +24,7 @@
}
# ana tag
- elsif ($f->{-name} eq 'ana' &&
+ elsif ($f->{-name} eq 'msd' &&
($found = $f->{'#text'})) {
my ($pos, $msd) = split(/ /, $found);
if ($msd) {
diff --git a/lib/KorAP/XML/Meta/I5.pm b/lib/KorAP/XML/Meta/I5.pm
index 7aefc0a..1a6c86f 100644
--- a/lib/KorAP/XML/Meta/I5.pm
+++ b/lib/KorAP/XML/Meta/I5.pm
@@ -215,7 +215,7 @@
};
unless ($create_date =~ s{^(\d{4})$}{$1\.00\.00}) {
unless ($create_date =~ s{^(\d{4})\.(\d{2})$}{$1\.$2\.00}) {
- $create_date =~ /^\d{4}\.\d{2}\.\d{2}$/;
+ $create_date =~ /^\d{4}\.\d{2}\.\d{2}$/;
};
};
if ($create_date =~ /^\d{4}(?:\.\d{2}(?:\.\d{2})?)?$/) {
@@ -231,8 +231,8 @@
$temp->find("catRef")->each(
sub {
- my ($ign, @ttopic) = split('\.', $_->attr('target'));
- push(@topic, @ttopic);
+ my ($ign, @ttopic) = split('\.', $_->attr('target'));
+ push(@topic, @ttopic);
}
);
$self->{text_class} = [@topic] if @topic > 0;
@@ -271,8 +271,8 @@
if ($temp = $dom->at('sourceDesc reference[type=complete]')) {
if (my $ref_text = _squish $temp->all_text) {
- $ref_text =~ s!$REF_RE!!;
- $self->{reference} = $ref_text;
+ $ref_text =~ s!$REF_RE!!;
+ $self->{reference} = $ref_text;
};
};
@@ -284,7 +284,7 @@
if ($temp = $dom->at('biblStruct biblScope[type=pp]')) {
$temp = _squish $temp->all_text;
if ($temp && $temp =~ m/(\d+)\s*-\s*(\d+)/) {
- $self->{pages} = $1 . '-' . $2;
+ $self->{pages} = $1 . '-' . $2;
};
};
};