<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=us-ascii"><meta name=Generator content="Microsoft Word 15 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
font-size:10.0pt;
font-family:"Calibri",sans-serif;
mso-ligatures:standardcontextual;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:#0563C1;
text-decoration:underline;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;
mso-ligatures:none;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 70.85pt 2.0cm 70.85pt;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body lang=DE-AT link="#0563C1" vlink="#954F72" style='word-wrap:break-word'><div class=WordSection1><p class=MsoNormal><span style='font-size:11.0pt;mso-fareast-language:EN-US'>Hi Patrick,<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-IE style='font-size:11.0pt;mso-fareast-language:EN-US'>thanks a lot for the code. I always thought, there were hash structures inside the record with keys like `tag`, `ind1` and `ind2`.<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-IE style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-IE style='font-size:11.0pt;mso-fareast-language:EN-US'>Kind regards,<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-IE style='font-size:11.0pt;mso-fareast-language:EN-US'>Georg<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-IE style='mso-fareast-language:EN-US'><o:p> </o:p></span></p><div style='border:none;border-left:solid blue 1.5pt;padding:0cm 0cm 0cm 4.0pt'><div><div style='border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0cm 0cm 0cm'><p class=MsoNormal><b><span lang=DE style='font-size:11.0pt;mso-ligatures:none'>Von:</span></b><span lang=DE style='font-size:11.0pt;mso-ligatures:none'> Patrick Hochstenbach <Patrick.Hochstenbach@UGent.be> <br><b>Gesendet:</b> Dienstag, 27. Juni 2023 08:52<br><b>An:</b> Mayr-Duffner, Georg <georg.mayr-duffner@wu.ac.at>; librecat-dev@lists.uni-bielefeld.de<br><b>Betreff:</b> Re: Merge multiple MARC fields into one<o:p></o:p></span></p></div></div><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;mso-fareast-language:EN-US'>Indeed, this is a bit nasty example but it can be fixed with a nasty trick.<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;mso-fareast-language:EN-US'>You can use the fact that internally, for Catmandu, a MARC record is nothing more than `record` field which contains an array-of-an-array values.<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;mso-fareast-language:EN-US'>With the fix below you can create a new field (in the array form Catmandu needs) and add it to the `record` field:<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'>if marc_has(776)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'> marc_map('776z',tmp.$append)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'> # Marc field<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'> add_field(zz.$append,999)<br> # Ind1 & 2<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'> add_field(zz.$append,0)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'> add_field(zz.$append,8)<br> # $i<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'> add_field(zz.$append,i)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'> add_field(zz.$append,'Erscheint auch als')<br> # $n <o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'> add_field(zz.$append,n)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'> add_field(zz.$append,'Druck-Ausgabe')<br> # All the $z<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'> do list(path:tmp,var:z)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'> add_field(zz.$append,z)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'> copy_field(z,zz.$append)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'> end<br> # Add this new field to the record<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'> move_field(zz,record.$append)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'>end<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;font-family:"Courier New";mso-fareast-language:EN-US'>remove_field(tmp)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;mso-fareast-language:EN-US'>Cheers<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:14.0pt;mso-fareast-language:EN-US'>Patrick<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:14.0pt;mso-fareast-language:EN-US'><o:p> </o:p></span></p><div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm'><p class=MsoNormal style='margin-bottom:12.0pt'><b><span style='font-size:12.0pt;color:black;mso-ligatures:none'>From: </span></b><span style='font-size:12.0pt;color:black;mso-ligatures:none'><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 Mayr-Duffner, Georg <<a href="mailto:georg.mayr-duffner@wu.ac.at">georg.mayr-duffner@wu.ac.at</a>><br><b>Date: </b>Thursday, 22 June 2023 at 10:43<br><b>To: </b><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>><br><b>Subject: </b>[librecat-dev] Merge multiple MARC fields into one<o:p></o:p></span></p></div><p class=MsoNormal><span style='font-size:11.0pt;mso-fareast-language:EN-US'>Hi,<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;mso-fareast-language:EN-US'> <o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>I’m trying to combine two MARC fields into one with Catmandu and somehow it doesn’t come along as expected.</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> </span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>The MARC record has two fields 776:</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>776 08 $z 9876543210111</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>776 08 $z 9876543210112</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> </span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>These should be combined into one 776 with two subfields prepended:</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> </span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;mso-fareast-language:EN-US'>776 08 $i Erscheint auch als $n Druck-Ausgabe $z 9876543210111 $z 9876543210112<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;mso-fareast-language:EN-US'> <o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>I tried various approaches without success. The closest I got was:</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> </span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;mso-fareast-language:EN-US'>```<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;mso-fareast-language:EN-US'>if marc_has('776')<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;mso-fareast-language:EN-US'> marc_add('999', ind1, '0', ind2, '8', i, 'Erscheint auch als', n, 'Druck-Ausgabe')<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;mso-fareast-language:EN-US'> </span><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>marc_cut('999', tmp776)</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> do marc_each()</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> if marc_has('776z')</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> marc_map('776z', tmpisbn)</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> add_field(tmp776.*.subfields.$append.z,$.tmpisbn)</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> marc_remove('776')</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> end</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> end</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> set_field(tmp776.*.tag,776)</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> marc_paste(tmp776)</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>end</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>```</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> </span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>But this interprets `$.tmpisbn` as a string instead of a variable and inserts it lterally.</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> </span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>How could I fix this?</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> </span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>Thanks!</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> </span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>Kind regards,</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>Georg</span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> </span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> </span><span style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p></o:p></span></p></div></div></body></html>