commit b1f7dcc487c2ea9b1335ce3ba3248a5d0e642a62
author Akron <nils@diewald-online.de> Thu Jan 21 12:52:43 2016 +0100
committer Akron <nils@diewald-online.de> Thu Jan 21 12:52:43 2016 +0100
tree 9b8c132ef65f92a9603c4ded1980d1051fee89b9
parent b5d3461aacb55d392f2232e8f1ed2ff572127339

Added Schreibgebrauch features

Change-Id: I2eb4f6b32007370985e2cf4168e00a95cbde4001

lib/KorAP/Document.pm

diff --git a/lib/KorAP/Document.pm b/lib/KorAP/Document.pm
index 2e3da2a..8aeec55 100644
--- a/lib/KorAP/Document.pm
+++ b/lib/KorAP/Document.pm
@@ -116,7 +116,7 @@
   # Get document id and corpus id
   if ($rt && $rt->{'-docid'}) {
     $self->text_sigle($rt->{'-docid'});
-    if ($self->text_sigle =~ /^(([^_]+)_[^\._]+?)\.\d+$/) {
+    if ($self->text_sigle =~ /^(([^_]+)_[^\._]+?)\..+?$/) {
       $self->corpus_sigle($2);
       $self->doc_sigle($1);
     }