Update MARC21-EDM fix transformation #589

Author: TobiasNx

metafacture-runner/src/main/dist/examples/marc21-to-edm/MARC21-EDM.fix

@@ -262,6 +262,17 @@ end
 copy_field("@pEventID","edm:Agent.$last.*edm:wasPresent")
 
 
+do list(path:"1001 |1101 |7001 |7101", "var":"CREATOR")
+  do list(path: "CREATOR.0", "var":"CREATORID")
+    if any match("CREATORID", "^\\(DE-588\\)(.*)")
+      copy_field("CREATORID","edm.Agent.$append.~rdf:about")
+      replace_all("edm.Agent.$last.~rdf:about", "^\\(DE-588\\)(.*)","http://d-nb.info/gnd/$1")
+      copy_field("CREATOR.a","edm.Agent.$last.skos:prefLabel$de")
+      copy_field("@cEventID","edm.Agent.$last.*edm:wasPresent")
+    end
+  end
+end
+
         <data name="@creatorID" source="1001 .0|1101 .0|7001 .0|7101 .0">
             <regexp match="^\(DE-588\)(.*)" format="http://d-nb.info/gnd/${1}" />
         </data>
@@ -276,9 +287,14 @@ copy_field("@pEventID","edm:Agent.$last.*edm:wasPresent")
         <data name="@cEventID" source="001">
             <compose prefix="#/event/" postfix="-c" />
         </data>
+
+paste("@cEventID", "~#/event/", "001", "~-c", join_char:"")
+
         <data name="@pEventID" source="001">
             <compose prefix="#/event/" postfix="-p" />
         </data>
+paste("@cEventID", "~#/event/", "001", "~-p", join_char:"")
+
         <entity name="edm:Event" flushWith="record">
             <data name="~rdf:about" source="@cEventID" />
             <data name="edm:hasType" source="_id">
@@ -288,6 +304,15 @@ copy_field("@pEventID","edm:Agent.$last.*edm:wasPresent")
                 <regexp match="^\(DE-588\)(.*)" format="http://d-nb.info/gnd/${1}" />
             </data>
         </entity>
+
+copy_field("@cEventID","edm:Event.$append.~rdf:about")
+add_field("edm:Event.$last.edm:hasType", "http://terminology.lido-schema.org/lido00012")
+do list(path:"edm.Agent","var":"AGENT")
+  if any_match("AGENT..~rdf:about", "http://d-nb.info/gnd/")
+    copy_field("AGENT.~rdf:about", "edm:Event.$last.*crm:P11_had_participant.$append")
+  end
+end
+
         <entity name="edm:Event" flushWith="record">
             <data name="~rdf:about" source="@pEventID" />
             <!-- <data name="*edm:hasType" source="_id"> -->
@@ -300,21 +325,36 @@ copy_field("@pEventID","edm:Agent.$last.*edm:wasPresent")
             <data name="*edm:occuredAt" source="@timeID" />
             <data name="*edm:happenedAt" source="@placeID" />
         </entity>
+      copy_field("@pEventID","edm:Event.$append.~rdf:about")
+      add_field("edm:Event.$last.edm:hasType", "http://terminology.lido-schema.org/lido00228")
+      copy_field("@publisherID", "edm:Event.$last.*crm:P11_had_participant.$append")
+      copy_field("@timeID", "edm:Event.$last.*edm:occuredAt")
+      copy_field("@placeID", "edm:Event.$last.*edm:happenedAt")
+
         <data name="@place" source="2603 .a">
             <replace pattern=" \[?u.a.\]?.*$" with="" />
             <split delimiter=" ; " />
             <occurrence only="1" />
         </data>
+
+        copy_field("2603 .a","@place")
+        replace_all("@place"," \\[?u.a.\\]?.*$","")
+        paste("@placeID","~#/place/","001","~_place","@place",join_char:"") # what is the count doing?
         <combine name="@placeID" value="#/place/${id}_place${c}">
             <data name="c" source="@place">
                 <count />
             </data>
             <data source="001" name="id" />
         </combine>
+
+
         <entity name="edm:Place">
             <data name="~rdf:about" source="@placeID" />
             <data name="skos:prefLabel" source="@place" />
         </entity>
+
+
+
         <combine name="@timeID" value="#/timespan/${id}_timespan${c}">
             <data name="c" source="260 .c|2603 .c">
                 <count />