Support C2 text siglen in vc conversion tool
Change-Id: I22b91d4e14baeb09c7c73d6dd9c4970ec489e992
diff --git a/list2vc.pl b/list2vc.pl
index 508f88f..c3fcd30 100755
--- a/list2vc.pl
+++ b/list2vc.pl
@@ -98,6 +98,9 @@
};
if ($key eq 'text') {
+
+ # Convert C2 sigle to KorAP form
+ $value =~ s!^([^/]+?/[^\.]+?)\.(.+?)$!$1\/$2!;
push @{$data{text}}, $value;
}
diff --git a/t/data/list2.def b/t/data/list2.def
index 8cf6da9..7b2cc1e 100644
--- a/t/data/list2.def
+++ b/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
diff --git a/t/list2vc-def.t b/t/list2vc-def.t
index 8c24fa3..7810408 100644
--- a/t/list2vc-def.t
+++ b/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;