Changeset 35892

Timestamp:

2022-01-06T11:01:33+13:00 (2 years ago)

Author:

davidb

Message:

Need to monitor for metadata names such as '/equivDocLink' in $front as these are not valid TTL syntax

File:

• gs2-extensions/apache-jena/trunk/src/perllib/jenaTDBBuildproc.pm (modified) (3 diffs)

gs2-extensions/apache-jena/trunk/src/perllib/jenaTDBBuildproc.pm

@@ -188 +188 @@
     $str =~ s/[\r\n]+/\\n/g;
 
+    # Take care of metadata cases such as:
+    #    <Metadata ... name="/equivDocLink">...</Metadata>
+    $front =~ s/(\"(?:\w+\.)?)\//$1SLASH/g;
+
     return "$front$str$back";
 }
@@ -233 +237 @@
 #   my $cmd = "gs-triplestore-add $collection \"$tmp_doc_filename\"";
     my $cmd = "gs-triplestore-add3 $collection \"$tmp_doc_filename\"";
-        
+
     my $status = system($cmd);
     if ($status != 0) {
@@ -239 +243 @@
     }
     
-#   print STDERR "**** temporarily supressing deletion of: $tmp_doc_filename\n";
+#   print STDERR "**** jenaTDBBuildproc::xml_to_ttl() temporarily supressing deletion of: $tmp_doc_filename\n";
     unlink $tmp_doc_filename;
     }