Add NCNs for press summaries and logging of empty citations

corb2/README.md

@@ -4,4 +4,4 @@ Download corb2 from https://github.com/marklogic-community/corb2/releases
 Download xcc from https://repo1.maven.org/maven2/com/marklogic/marklogic-xcc/11.1.0/ or https://developer.marklogic.com/products/xcc-2/ (I used maven)
 (both into this directory)
 
-`corb migrate-ncn` will run the code, `migrate-ncn.log` will show what it writes to the identifiers
+`./corb migrate-ncn` will run the code, `migrate-ncn.log` will show what it writes to the identifiers

corb2/migrate-ncn.xqy

@@ -8,7 +8,10 @@ import module namespace sem = "http://marklogic.com/semantics"
 
 declare variable $URI external;
 
-let $cite := fn:doc($URI)//uk:cite/text()
+let $doc_cite := fn:doc($URI)//uk:cite/text()
+let $summary_cite := fn:doc($URI)//uk:summaryOfCite/text()
+let $cite := if ($doc_cite) then ($doc_cite) else ($summary_cite)
+
 let $slug := fn:replace(
                 fn:replace($URI, "\.xml$", "")
                 , "^/", "")
@@ -22,13 +25,16 @@ let $node :=
 <value>{$cite}</value>
 <url_slug>{$slug}</url_slug>
 </identifier></identifiers>
+
+let $log := ($log, if ($cite) then () else "cite empty at " || $URI)
+
 let $log := ($log, xdmp:quote($node))
 
 let $log := ($log, if
             (fn:starts-with($URI, "/failures/") or fn:starts-with($URI, "/collisions/"))
           then
             "ignored as failure/collision"
           else
-            "set property" || xdmp:document-set-property($URI, $node))
+            "set property" || xdmp:document-set-property($URI, $node) )
 
 return string-join($log, "&#10;")