commit ee2073dff4c7f75e16d49044869b11906458702e
author Akron <nils@diewald-online.de> Wed May 20 15:19:55 2020 +0200
committer Akron <nils@diewald-online.de> Wed May 20 15:19:55 2020 +0200
tree df2a07f7ddebf4773bc34af723a7b178df8ff05a
parent 1839cb1ce1bb16952e1cfb2de9595c4a2d5348ce

Support C2 text siglen in vc conversion tool

Change-Id: I22b91d4e14baeb09c7c73d6dd9c4970ec489e992

tools/list2vc.pl

diff --git a/tools/list2vc.pl b/tools/list2vc.pl
index 508f88f..c3fcd30 100755
--- a/tools/list2vc.pl
+++ b/tools/list2vc.pl
@@ -98,6 +98,9 @@
   };
 
   if ($key eq 'text') {
+
+    # Convert C2 sigle to KorAP form
+    $value =~ s!^([^/]+?/[^\.]+?)\.(.+?)$!$1\/$2!;
     push @{$data{text}}, $value;
   }
 

tools/t/data/list2.def

diff --git a/tools/t/data/list2.def b/tools/t/data/list2.def
index 8cf6da9..7b2cc1e 100644
--- a/tools/t/data/list2.def
+++ b/tools/t/data/list2.def
@@ -4,25 +4,8 @@
 BRZ05/NOV Braunschweiger Zeitung, November 2005
 BRZ05/DEZ Braunschweiger Zeitung, Dezember 2005
 BRZ06/JAN Braunschweiger Zeitung, Januar 2006
-BRZ06/FEB Braunschweiger Zeitung, Februar 2006
-BRZ06/MAR Braunschweiger Zeitung, März 2006
-BRZ06/APR Braunschweiger Zeitung, April 2006
-BRZ06/MAI Braunschweiger Zeitung, Mai 2006
-BRZ06/JUN Braunschweiger Zeitung, Juni 2006
-BRZ06/JUL Braunschweiger Zeitung, Juli 2006
-BRZ06/AUG Braunschweiger Zeitung, August 2006
-BRZ06/SEP Braunschweiger Zeitung, September 2006
-BRZ06/OKT Braunschweiger Zeitung, Oktober 2006
-BRZ06/NOV Braunschweiger Zeitung, November 2006
-BRZ06/DEZ Braunschweiger Zeitung, Dezember 2006
-BRZ07/JAN Braunschweiger Zeitung, Januar 2007
-BRZ07/FEB Braunschweiger Zeitung, Februar 2007
-BRZ07/MAR Braunschweiger Zeitung, März 2007
-BRZ07/APR Braunschweiger Zeitung, April 2007
-BRZ07/MAI Braunschweiger Zeitung, Mai 2007
-BRZ07/JUN Braunschweiger Zeitung, Juni 2007
-BRZ07/JUL Braunschweiger Zeitung, Juli 2007
-BRZ07/AUG Braunschweiger Zeitung, August 2007
+<text>B19/AUG.01665</text>
+<text>B19/AUG.01666</text>
 BRZ07/SEP Braunschweiger Zeitung, September 2007
 BRZ07/OKT Braunschweiger Zeitung, Oktober 2007
 BRZ07/NOV Braunschweiger Zeitung, November 2007

tools/t/list2vc-def.t

diff --git a/tools/t/list2vc-def.t b/tools/t/list2vc-def.t
index 8c24fa3..7810408 100644
--- a/tools/t/list2vc-def.t
+++ b/tools/t/list2vc-def.t
@@ -33,4 +33,12 @@
 is($op1->{'value'}->[0], "BRZ05/SEP", 'value');
 is($op1->{'value'}->[1], ,"BRZ05/OKT", 'value');
 is($op1->{'value'}->[-1], ,"BRZ08/FEB", 'value');
+
+my $op2 = $json->{'collection'}->{'operands'}->[1];
+is($op2->{'@type'}, 'koral:doc', 'type');
+is($op2->{'key'}, 'textSigle', 'key');
+is($op2->{'match'}, 'match:eq', 'match');
+is($op2->{'value'}->[0], "B19/AUG/01665", 'value');
+is($op2->{'value'}->[1], ,"B19/AUG/01666", 'value');
+
 done_testing;