Added support for wildcards in document siglen
Change-Id: I9e19da720b89c4cee6f4b85a83cf0c0b709ac2da
diff --git a/lib/KorAP/XML/Archive.pm b/lib/KorAP/XML/Archive.pm
index 17a4f53..714e876 100644
--- a/lib/KorAP/XML/Archive.pm
+++ b/lib/KorAP/XML/Archive.pm
@@ -174,8 +174,15 @@
$first = 0;
};
- # With prefix
- push @breadcrumbs, $doc, '*';
+ # With wildcard
+ if (index($doc, '*') > 0) {
+ push @breadcrumbs, $doc;
+ }
+
+ # As a folder sigle
+ else {
+ push @breadcrumbs, $doc, '*';
+ }
push(@cmd, join('/', @breadcrumbs));
diff --git a/lib/KorAP/XML/Krill.pm b/lib/KorAP/XML/Krill.pm
index 6ba77db..968d3d9 100644
--- a/lib/KorAP/XML/Krill.pm
+++ b/lib/KorAP/XML/Krill.pm
@@ -15,7 +15,7 @@
use Data::Dumper;
use File::Spec::Functions qw/catdir catfile catpath splitdir splitpath rel2abs/;
-our $VERSION = '0.22';
+our $VERSION = '0.23';
has 'path';
has [qw/text_sigle doc_sigle corpus_sigle/];