<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <meta name="Generator" content="Microsoft Word 15 (filtered medium)"> <style></style> </head> <body lang="en-BE" link="#0563C1" vlink="#954F72" style="word-wrap:break-word"> <div class="WordSection1"> Hi,<o:p></o:p> <o:p> </o:p> Yes this is what the marc_copy does. # Loop over each marc field do marc_each() # If we have a 650… if marc_has('650') # Copy all the data of this particular 650 into some temporary field marc_copy('650','tmp') # Keep the data as-is but change some of the tags/indicators/subfields set_field(tmp.0.tag,'044') set_field(tmp.0.ind1,'A') set_field(tmp.0.ind2,' ') add_field(tmp.0.subfields.$prepend.n,600)<o:p></o:p> # Now paste this new tag back into the record marc_paste('tmp')<o:p></o:p> remove_field('tmp')<o:p></o:p> end<o:p></o:p> end<o:p></o:p> If you want to replace the 650 by 044, then you can do the same fix but using marc_cut instead of marc_copy. Patrick<o:p></o:p> <o:p> </o:p> <div id="mail-editor-reference-message-container"> <div> <div style="border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm"> From: Siebert, Dr. Martina <Martina.Siebert@sbb.spk-berlin.de> Date: Wednesday, 31 January 2024 at 19:52 To: Patrick Hochstenbach <Patrick.Hochstenbach@UGent.be>, librecat-dev@lists.uni-bielefeld.de <librecat-dev@lists.uni-bielefeld.de> Subject: AW: Moving MARC 600 to PICA 044A<o:p></o:p> </div> <div> Hi Patrick,<o:p></o:p> <o:p></o:p> Thanks for the example for a MARC to MARC loop when moving/copying subfields between MARC tags.<o:p></o:p> <o:p></o:p> I am actually looking for a way to copy these subfields to PICA+. Sorry, I did not phrase this too well.<o:p></o:p> MARC<o:p></o:p> =600 10$aSen Sharma, Partha Sarthi,$d1970-$xTravel$zIndia$zAndaman and Nicobar Islands.<o:p></o:p> =600 10$aDescartes, René,$d1596-1650$xPolitical and social views.<o:p></o:p> <o:p></o:p> Shall become PICA+<o:p></o:p> 044A $N600$Sp$aPartha Sarthi$d1970-$xTravel$zIndia$zAndaman and Nicobar Islands<o:p></o:p> 044A $N600$Sp$aDescartes, René$d1596-1650$xPolitical and social views <o:p></o:p> <o:p></o:p> Luckily all subfields can keep their subfield “letter”, i.e. $a in MARC is $a in PICA+ in this case. <o:p></o:p> <o:p></o:p> Best,<o:p></o:p> martina<o:p></o:p> <o:p></o:p> <o:p></o:p> <div> <div style="border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0cm 0cm 0cm"> Von: Patrick Hochstenbach <Patrick.Hochstenbach@UGent.be> Gesendet: Mittwoch, 31. Januar 2024 19:28 An: Siebert, Dr. Martina <Martina.Siebert@sbb.spk-berlin.de>; librecat-dev@lists.uni-bielefeld.de Betreff: Re: Moving MARC 600 to PICA 044A<o:p></o:p> </div> </div> <o:p></o:p> <div> Catmandu::MARC 1.32 supports capitals in MARC paths (so that your example should work).<o:p></o:p> </div> <div> <o:p></o:p> </div> <div> Patrick<o:p></o:p> </div> <div class="MsoNormal" align="center" style="text-align:center"> <hr size="0" width="100%" align="center"> </div> <div id="divRplyFwdMsg"> From: Patrick Hochstenbach <<a href="mailto:Patrick.Hochstenbach@UGent.be">Patrick.Hochstenbach@UGent.be</a>> Sent: 31 January 2024 19:17 To: Siebert, Dr. Martina <<a href="mailto:Martina.Siebert@sbb.spk-berlin.de">Martina.Siebert@sbb.spk-berlin.de</a>>; <a href="mailto:librecat-dev@lists.uni-bielefeld.de">librecat-dev@lists.uni-bielefeld.de</a> <<a href="mailto:librecat-dev@lists.uni-bielefeld.de">librecat-dev@lists.uni-bielefeld.de</a>> Subject: Re: Moving MARC 600 to PICA 044A <o:p></o:p> <div> <o:p></o:p> </div> </div> <div> Hi<o:p></o:p> <o:p></o:p> This is the fix:<o:p></o:p> do marc_each()<o:p></o:p> if marc_has('650')<o:p></o:p> marc_copy('650','tmp')<o:p></o:p> set_field(tmp.0.tag,'044')<o:p></o:p> set_field(tmp.0.ind1,'A')<o:p></o:p> set_field(tmp.0.ind2,' ')<o:p></o:p> add_field(tmp.0.subfields.$prepend.n,600)<o:p></o:p> marc_paste('tmp')<o:p></o:p> remove_field('tmp')<o:p></o:p> end<o:p></o:p> end<o:p></o:p> <div> For some reason Catmandu::MARC doesn't like the <code>$N</code> (capital N) subfield. But, I can add a $n (lowercase n) subfield this way. I need to check why capitals are not supported.<o:p></o:p> </div> <div> <o:p></o:p> </div> <div> Patrick<o:p></o:p> </div> <div class="MsoNormal" align="center" style="text-align:center"> <hr size="0" width="100%" align="center"> </div> <div id="x_divRplyFwdMsg"> From: <a href="mailto:librecat-dev-bounces@lists.uni-bielefeld.de">librecat-dev-bounces@lists.uni-bielefeld.de</a> <<a href="mailto:librecat-dev-bounces@lists.uni-bielefeld.de">librecat-dev-bounces@lists.uni-bielefeld.de</a>> on behalf of Siebert, Dr. Martina <<a href="mailto:Martina.Siebert@sbb.spk-berlin.de">Martina.Siebert@sbb.spk-berlin.de</a>> Sent: 31 January 2024 16:53 To: <a href="mailto:librecat-dev@lists.uni-bielefeld.de">librecat-dev@lists.uni-bielefeld.de</a> <<a href="mailto:librecat-dev@lists.uni-bielefeld.de">librecat-dev@lists.uni-bielefeld.de</a>> Subject: [librecat-dev] Moving MARC 600 to PICA 044A <o:p></o:p> <div> <o:p></o:p> </div> </div> <div> <div> Dear all,<o:p></o:p> <o:p></o:p> I am trying to move MARC 600 (and 650 etc.) LOC subject headings to PICA+ 044A. 600er fields are repeatable as are most of their subfields.<o:p></o:p> Good thing: PICA+ 044A just reproduces the MARC 600er fields with all their subfields as they are, only prepending it with $N giving the original MARC tag and an indicator ($S) which is fix for each of the 6XX MARC fields. My problem is the copying of the set of repeatable subfields from MARC to PICA.<o:p></o:p> <o:p></o:p> To put it simple:<o:p></o:p> I have this<o:p></o:p> =600 10$aSen Sharma, Partha Sarthi,$d1970-$xTravel$zIndia$zAndaman and Nicobar Islands.<o:p></o:p> =600 10$aDescartes, René,$d1596-1650$xPolitical and social views.<o:p></o:p> <o:p></o:p> and I need this<o:p></o:p> 044A $N600$Sp$aPartha Sarthi$d1970-$xTravel$zIndia$zAndaman and Nicobar Islands<o:p></o:p> 044A $N600$Sp$aDescartes, René$d1596-1650$xPolitical and social views <o:p></o:p> <o:p></o:p> The “Catmandu Cheatsheet” lists a “marc_copy”/”marc_paste” routine which does the trick for moving all subfields from one MARC tag to another MARC tag. But how to “copy” this from MARC and “paste” it to PICA? And how to put this within a marc_each() loop?<o:p></o:p> <o:p></o:p> Best,<o:p></o:p> Martina<o:p></o:p> <o:p></o:p> ______________________________________________<o:p></o:p> Dr. Martina Siebert<o:p></o:p> Ostasienabteilung | CrossAsia<o:p></o:p> Staatsbibliothek zu Berlin – Preußischer Kulturbesitz<o:p></o:p> <o:p></o:p> <a href="mailto:martina.siebert@sbb.spk-berlin.de">martina.siebert@sbb.spk-berlin.de</a><o:p></o:p> <a href="http://www.staatsbibliothek-berlin.de/">www.staatsbibliothek-berlin.de</a><o:p></o:p> <o:p></o:p> Im Rahmen der E-Mail-Kommunikation werden gegebenenfalls personenbezogene Daten verarbeitet. Unsere Hinweise zum Datenschutz finden Sie hier: <a href="http://sbb.berlin/datenschutz" target="_short" title="Kurz-URL">http://sbb.berlin/datenschutz</a><o:p></o:p> <o:p></o:p> </div> </div> </div> </div> </div> </div> </div> </body> </html>