commit 9367d7e1d6c7d66eb45116c69de91342d8e20afc
author Marc Kupietz <kupietz@ids-mannheim.de> Sun Sep 29 12:54:39 2024 +0200
committer Marc Kupietz <kupietz@ids-mannheim.de> Sun Sep 29 12:54:39 2024 +0200
tree c24cadcb4019cc93f6bbc3467cf20cb59e186a73
parent cff63c04680865c7187008a91862c9fc24053650

Add script to convert csv metadata to oaidc xml metadata

scripts/csv2oaidc.R

diff --git a/scripts/csv2oaidc.R b/scripts/csv2oaidc.R
new file mode 100755
index 0000000..448b678
--- /dev/null
+++ b/scripts/csv2oaidc.R
@@ -0,0 +1,99 @@
+#!/bin/env Rscript
+library(glue)
+library(tidyverse)
+library(readr)
+
+df <- read_delim("Metadaten.csv", delim = ";",  locale = readr::locale(encoding = "cp1252"))
+
+recordBuilder <- function(ID, ISBN, author, creationDate, title, publisher, pubPlace, ...) {
+  glue::glue(
+'    <record>
+      <recordSchema>oai_dc</recordSchema>
+      <recordPacking>xml</recordPacking>
+      <recordData>
+        <dc xmlns:dnb="http://d-nb.de/standards/dnbterms" xmlns:tel="http://krait.kb.nl/coop/tel/handbook/telterms.html" xmlns="http://www.openarchives.org/OAI/2.0/oai_dc/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+          <dc:title>{title}</dc:title>
+          <dc:creator>{author}</dc:creator>
+          <dc:publisher>{publisher}</dc:publisher>
+          <dc:date>{creationDate}</dc:date>
+          <dc:language>ger</dc:language>
+          <dc:identifier xsi:type="tel:ISBN">{ISBN}</dc:identifier>
+          <dc:identifier xsi:type="dnb:IDN">{ID}</dc:identifier>
+          <dc:subject>830 Deutsche Literatur</dc:subject>
+          <dc:subject>B Belletristik</dc:subject>
+          <dc:type>Online-Ressource</dc:type>
+        </dc>
+      </recordData>
+    </record>
+')
+}
+
+escape_xml <- function(x) {
+  x <- gsub("&", "&amp;", x)
+  x <- gsub("<", "&lt;", x)
+  x <- gsub(">", "&gt;", x)
+  x <- gsub("\"", "&quot;", x)
+  x <- gsub("'", "&apos;", x)
+  return(x)
+}
+
+df <- df %>%
+  mutate(across(everything(), ~ escape_xml(.)))
+
+xmlRecords <- df %>% purrr::pmap(recordBuilder) %>% unlist %>% paste(collapse = "\n")
+
+glue::glue(
+'<?xml version="1.0" encoding="UTF-8"?>
+<searchRetrieveResponse xmlns="http://www.loc.gov/zing/srw/">
+  <records>
+{xmlRecords}
+    <!-- From here on only fake examples for testing -->
+    <record>
+      <recordSchema>oai_dc</recordSchema>
+      <recordPacking>xml</recordPacking>
+      <recordData>
+        <dc xmlns:dnb="http://d-nb.de/standards/dnbterms" xmlns:tel="http://krait.kb.nl/coop/tel/handbook/telterms.html" xmlns="http://www.openarchives.org/OAI/2.0/oai_dc/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+          <dc:title>Ein Hauch von Meer und Mord : Juist-Krimi / Barbara Saladin</dc:title>
+          <dc:creator>Saladin, Barbara [Verfasser]</dc:creator>
+          <dc:publisher>Hillesheim : KBV Verlags- &amp; Medien</dc:publisher>
+          <dc:date>2012</dc:date>
+          <dc:language>ger</dc:language>
+          <dc:identifier xsi:type="tel:URN">urn:nbn:de:101:1-2012112917525</dc:identifier>
+          <dc:identifier xsi:type="tel:URL">http://nbn-resolving.de/urn:nbn:de:101:1-2012112917525</dc:identifier>
+          <dc:identifier xsi:type="tel:ISBN">978-3-95441-123-8</dc:identifier>
+          <dc:identifier xsi:type="tel:URL">http://d-nb.info/1028379862/34</dc:identifier>
+          <dc:identifier xsi:type="dnb:IDN">8999999998</dc:identifier>
+          <dc:subject>830 Deutsche Literatur</dc:subject>
+          <dc:subject>B Belletristik</dc:subject>
+          <dc:type>Online-Ressource</dc:type>
+        </dc>
+      </recordData>
+      <recordPosition>1</recordPosition>
+    </record>
+
+    <record>
+      <recordSchema>oai_dc</recordSchema>
+      <recordPacking>xml</recordPacking>
+      <recordData>
+        <dc xmlns:dnb="http://d-nb.de/standards/dnbterms" xmlns:tel="http://krait.kb.nl/coop/tel/handbook/telterms.html" xmlns="http://www.openarchives.org/OAI/2.0/oai_dc/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+          <dc:title>Herzblut : Kriminalroman aus Düsseldorf / David Daniel</dc:title>
+          <dc:creator>Daniel, David [Verfasser]</dc:creator>
+          <dc:publisher>Hillesheim : KBV Verlags- &amp; Medien</dc:publisher>
+          <dc:date>2018</dc:date>
+          <dc:language>ger</dc:language>
+          <dc:identifier xsi:type="tel:URN">urn:nbn:de:101:1-2012112917539</dc:identifier>
+          <dc:identifier xsi:type="tel:URL">http://nbn-resolving.de/urn:nbn:de:101:1-2012112917539</dc:identifier>
+          <dc:identifier xsi:type="tel:ISBN">978-3-95441-027-9</dc:identifier>
+          <dc:identifier xsi:type="tel:URL">http://d-nb.info/1028379870/34</dc:identifier>
+          <dc:identifier xsi:type="dnb:IDN">8999999999</dc:identifier>
+          <dc:subject>830 Deutsche Literatur</dc:subject>
+          <dc:subject>B Belletristik</dc:subject>
+          <dc:type>Online-Ressource</dc:type>
+        </dc>
+      </recordData>
+    </record>
+  </records>
+</searchRetrieveResponse>
+'
+) %>% cat(file = "static_metadata.xml")
+