From b14d178f158991e4d647f32f902e4a08c9f25c0b Mon Sep 17 00:00:00 2001 From: regineheberlein Date: Fri, 2 Aug 2024 13:48:13 -0400 Subject: [PATCH] queuing up batches identified for submission --- submissions/Islamic_II/Hadith/get_hadith.xquery | 12 ++++++++++++ .../Islamic_II/Islamic_law/get_islamic-law.xquery | 12 ++++++++++++ submissions/Islamic_II/Quran/get_quran.xquery | 13 +++++++++++++ submissions/Islamic_II/Turkish/get_turkish.xquery | 13 +++++++++++++ 4 files changed, 50 insertions(+) create mode 100644 submissions/Islamic_II/Hadith/get_hadith.xquery create mode 100644 submissions/Islamic_II/Islamic_law/get_islamic-law.xquery create mode 100644 submissions/Islamic_II/Quran/get_quran.xquery create mode 100644 submissions/Islamic_II/Turkish/get_turkish.xquery diff --git a/submissions/Islamic_II/Hadith/get_hadith.xquery b/submissions/Islamic_II/Hadith/get_hadith.xquery new file mode 100644 index 0000000..f330cf1 --- /dev/null +++ b/submissions/Islamic_II/Hadith/get_hadith.xquery @@ -0,0 +1,12 @@ +xquery version "3.0"; +declare option saxon:output "omit-xml-declaration=yes"; + +declare variable $marc as document-node()+ := doc("file:/Users/heberleinr/Documents/Digital_Scriptorium/submissions/2024_08/Islamic_II/BIBLIOGRAPHIC_38955194630006421_1_bkp.xml"); +declare variable $turkish as document-node()+ := doc("file:/Users/heberleinr/Documents/Digital_Scriptorium/submissions/2024_08/Islamic_II/turkish.xml"); +let $records := $marc//record[datafield[matches(@tag, '^65')]/subfield[@code='a'][matches(., "Hadith", 'i')]] +for $record in $records +return +(:( + insert node $record as last into $turkish//collection, + delete node $record +):) \ No newline at end of file diff --git a/submissions/Islamic_II/Islamic_law/get_islamic-law.xquery b/submissions/Islamic_II/Islamic_law/get_islamic-law.xquery new file mode 100644 index 0000000..99fb801 --- /dev/null +++ b/submissions/Islamic_II/Islamic_law/get_islamic-law.xquery @@ -0,0 +1,12 @@ +xquery version "3.0"; +declare option saxon:output "omit-xml-declaration=yes"; + +declare variable $marc as document-node()+ := doc("file:/Users/heberleinr/Documents/Digital_Scriptorium/submissions/2024_08/Islamic_II/BIBLIOGRAPHIC_38955194630006421_1_bkp.xml"); +declare variable $turkish as document-node()+ := doc("file:/Users/heberleinr/Documents/Digital_Scriptorium/submissions/2024_08/Islamic_II/turkish.xml"); +let $records := $marc//record[datafield[matches(@tag, '^65')]/subfield[@code='a'][matches(., "Islamic law", 'i') or matches(., "Droit Islamique", 'i')] and contains(controlfield[@tag='008'], 'ara')] +for $record in $records +return +(:( + insert node $record as last into $turkish//collection, + delete node $record +):) \ No newline at end of file diff --git a/submissions/Islamic_II/Quran/get_quran.xquery b/submissions/Islamic_II/Quran/get_quran.xquery new file mode 100644 index 0000000..7bd0d61 --- /dev/null +++ b/submissions/Islamic_II/Quran/get_quran.xquery @@ -0,0 +1,13 @@ +xquery version "3.0"; +declare option saxon:output "omit-xml-declaration=yes"; + +declare variable $marc as document-node()+ := doc("file:/Users/heberleinr/Documents/Digital_Scriptorium/submissions/2024_08/Islamic_II/BIBLIOGRAPHIC_38955194630006421_1_bkp.xml"); +declare variable $turkish as document-node()+ := doc("file:/Users/heberleinr/Documents/Digital_Scriptorium/submissions/2024_08/Islamic_II/turkish.xml"); +let $records := $marc//record[datafield[matches(@tag, '630')]/subfield[@code='a'][matches(., "Qu[ʼ`']?r[ʼ`']?an", 'i')] and contains(controlfield[@tag='008'], 'ara')] + +for $record in $records +return +(:( + insert node $record as last into $turkish//collection, + delete node $record +):) \ No newline at end of file diff --git a/submissions/Islamic_II/Turkish/get_turkish.xquery b/submissions/Islamic_II/Turkish/get_turkish.xquery new file mode 100644 index 0000000..acaa36c --- /dev/null +++ b/submissions/Islamic_II/Turkish/get_turkish.xquery @@ -0,0 +1,13 @@ +xquery version "3.0"; +declare option saxon:output "omit-xml-declaration=yes"; + +declare variable $marc as document-node()+ := doc("file:/Users/heberleinr/Documents/Digital_Scriptorium/submissions/2024_08/Islamic_II/BIBLIOGRAPHIC_38955194630006421_1_bkp.xml"); +declare variable $turkish as document-node()+ := doc("file:/Users/heberleinr/Documents/Digital_Scriptorium/submissions/2024_08/Islamic_II/turkish.xml"); +let $records := $marc//record[controlfield[@tag="008"][contains(., "tur")] | datafield[matches(@tag, '^65')][.="Manuscripts, Turkish"]] + +for $record in $records +return +( + insert node $record as last into $turkish//collection, + delete node $record +) \ No newline at end of file