From 9cadaef507c4ecf644c8013dba87d53a185935be Mon Sep 17 00:00:00 2001
From: Petra Maier <petra.maier@hbz-nrw.de>
Date: Mon, 30 Oct 2023 15:37:26 +0100
Subject: [PATCH] Add professionOrOccupation (RPB-102)

---
 conf/rppd-to-lobid.fix | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/conf/rppd-to-lobid.fix b/conf/rppd-to-lobid.fix
index f80c6374..0d75b592 100644
--- a/conf/rppd-to-lobid.fix
+++ b/conf/rppd-to-lobid.fix
@@ -1,4 +1,6 @@
-nothing()
+do once("map")
+  put_filemap("conf/RPB-Export_HBZ_SW.tsv", "SW_map", sep_char: "\t")
+end
 
 # ------
 #00 RPPD-ID 
@@ -49,7 +51,21 @@ uniq("variantName[]")
 # #1nn (Berufe/Stellungen (m, R)) -> professionOrOccupation
 # Kommentar Doku: nach Möglichkeit aus Register 3, sonst Klartext gemäß GND, getrennt mit @
 # Hier brauchen wir die Werte aus Register 3, eine Konkoranz auf die GND. Falls nur GND dann nur auf label mappen?
+# professionOrOccupationAsLiteral[].*
+# professionOrOccupation[].*.id
+# professionOrOccupation[].*.label
+
 
+set_array("professionOrOccupation[]")
+do list(path:"f1nn[]", "var": "$i")
+  replace_all("$i.f1nn", "_", "")
+  copy_field("$i.f1nn", "professionOrOccupation[].$append.label")
+  copy_field("$i.f1nn", "professionOrOccupation[].$last.id")
+end
+do list(path:"professionOrOccupation[]", "var": "$i")
+  lookup("$i.label", "SW_map")
+end
+  
 
 # -------
 # #1wz (Wirkungszeitraum) -> periodOfActivity
@@ -143,6 +159,7 @@ retain(
   "dateOfDeath[]",
   "gndIdentifier",
   "describedBy",
-  "gender[]"
+  "gender[]",
+  "professionOrOccupation[]"
   )
 	
\ No newline at end of file