Add professionOrOccupation (RPB-102)

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[]"
   )