Fix DDC conversion of notations like 869:3 (#41)

ddc/ddc2jskos

@@ -1,7 +1,7 @@
 #!/bin/bash
 if [[ "$1" =~ ^ddc23[a-z][a-z](-.+)?.xml$ ]]; then
   set -x
-  catmandu convert marcxml to ndjson \
+  catmandu convert -I lib marcxml to ndjson \
 	  --fix "add_field(language,${1:5:2})" --fix ddc2jskos.fix \
 	  < $1 > ${1/.xml/.ndjson}
 else

ddc/ddc2jskos.fix

@@ -5,9 +5,11 @@
 select marc_match(LDR/6, 'w')   # record type == classification
 select marc_match(008/8, 'a')	# valid records only
 
+# some transformation in lib/Catmandu/Fix/ddc.pm
+ddc()
+
 # notation and uri
 marc_map(153$ac, uri, join:'-')
-replace_all(uri,'([^-]+)-([^-]+)-(.+)','$1-$2:$3')
 if marc_has(153$z[0])
   # table record
   marc_spec(153$z[0],table)

ddc/lib/Catmandu/Fix/ddc.pm

@@ -0,0 +1,30 @@
+package Catmandu::Fix::ddc;
+
+use v5.14.1;
+use Moo;
+
+use Data::Dumper;
+
+sub fix {
+    my ( $self, $data ) = @_;
+    my @fields = @{ $data->{record} };
+    my ($f153) = grep { $_->[0] eq '153' } @fields;
+    if ($f153) {
+        my $uri;
+        my @sf = splice @$f153, 3;
+        while (@sf) {
+            my $code  = shift @sf;
+            my $value = shift @sf;
+            if ( $code eq 'a' ) {
+                $uri = defined $uri ? "$uri:$value" : $value;
+            }
+            elsif ( $code eq 'c' ) {
+                $uri .= "-$value";
+            }
+        }
+        $data->{uri} = $uri;
+    }
+    $data;
+}
+
+1;