<html 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=Windows-1252">
<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;}
@font-face
{font-family:"Times New Roman \(Body CS\)";
panose-1:2 11 6 4 2 2 2 2 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;}
span.EmailStyle18
{mso-style-type:personal-reply;
font-family:"Calibri",sans-serif;
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 70.85pt 2.0cm 70.85pt;}
div.WordSection1
{page:WordSection1;}
--></style>
</head>
<body lang="en-BE" link="#0563C1" vlink="#954F72" style="word-wrap:break-word">
<div class="WordSection1">
<p class="MsoNormal"><span lang="EN-US" style="font-size:14.0pt;mso-fareast-language:EN-US">The internal format is an array (of tags) of an array (of sub-fields). This is to keep the order of tags/subfields intact and allow for a faster processing of data.
Most of our use-cases required scanning of many tags in order.<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">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 lang="DE-AT" style="font-size:12.0pt;color:black;mso-ligatures:none">From:
</span></b><span lang="DE-AT" style="font-size:12.0pt;color:black;mso-ligatures:none">Mayr-Duffner, Georg <georg.mayr-duffner@wu.ac.at><br>
<b>Date: </b>Tuesday, 4 July 2023 at 10:40<br>
<b>To: </b>Patrick Hochstenbach <Patrick.Hochstenbach@UGent.be>, librecat-dev@lists.uni-bielefeld.de <librecat-dev@lists.uni-bielefeld.de><br>
<b>Subject: </b>AW: Merge multiple MARC fields into one<o:p></o:p></span></p>
</div>
<p class="MsoNormal"><span lang="DE-AT" style="font-size:11.0pt;mso-fareast-language:EN-US">Hi Patrick,</span><span lang="DE-AT"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="DE-AT" style="font-size:11.0pt;mso-fareast-language:EN-US"> </span><span lang="DE-AT"><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`.</span><span lang="DE-AT"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-IE" style="font-size:11.0pt;mso-fareast-language:EN-US"> </span><span lang="DE-AT"><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,</span><span lang="DE-AT"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-IE" style="font-size:11.0pt;mso-fareast-language:EN-US">Georg</span><span lang="DE-AT"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-IE" style="mso-fareast-language:EN-US"> </span><span lang="DE-AT"><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</span><span lang="DE-AT"><o:p></o:p></span></p>
</div>
</div>
<p class="MsoNormal"><span lang="DE-AT"> <o:p></o:p></span></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.</span><span lang="DE-AT"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:14.0pt;mso-fareast-language:EN-US"> </span><span lang="DE-AT"><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.</span><span lang="DE-AT"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:14.0pt;mso-fareast-language:EN-US"> </span><span lang="DE-AT"><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:</span><span lang="DE-AT"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:14.0pt;mso-fareast-language:EN-US"> </span><span lang="DE-AT"><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"> </span><span lang="DE-AT"><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)</span><span lang="DE-AT"><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)</span><span lang="DE-AT"><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"> </span><span lang="DE-AT"><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</span><span lang="DE-AT"><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</span><span lang="DE-AT"><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)</span><span lang="DE-AT"><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</span><span lang="DE-AT"><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)</span><span lang="DE-AT"><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 </span><span lang="DE-AT"><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)</span><span lang="DE-AT"><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</span><span lang="DE-AT"><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)</span><span lang="DE-AT"><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)</span><span lang="DE-AT"><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)</span><span lang="DE-AT"><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</span><span lang="DE-AT"><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)</span><span lang="DE-AT"><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</span><span lang="DE-AT"><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"> </span><span lang="DE-AT"><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)</span><span lang="DE-AT"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:14.0pt;mso-fareast-language:EN-US"> </span><span lang="DE-AT"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:14.0pt;mso-fareast-language:EN-US">Cheers</span><span lang="DE-AT"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:14.0pt;mso-fareast-language:EN-US">Patrick</span><span lang="DE-AT"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="DE-AT" style="font-size:14.0pt;mso-fareast-language:EN-US"> </span><span lang="DE-AT"><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 lang="DE-AT" style="font-size:12.0pt;color:black;mso-ligatures:none">From:
</span></b><span lang="DE-AT" 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</span><span lang="DE-AT"><o:p></o:p></span></p>
</div>
<p class="MsoNormal"><span lang="DE-AT" style="font-size:11.0pt;mso-fareast-language:EN-US">Hi,</span><span lang="DE-AT"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="DE-AT" style="font-size:11.0pt;mso-fareast-language:EN-US"> </span><span lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="DE-AT" style="font-size:11.0pt;mso-fareast-language:EN-US">776 08 $i Erscheint auch als $n Druck-Ausgabe $z 9876543210111 $z 9876543210112</span><span lang="DE-AT"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="DE-AT" style="font-size:11.0pt;mso-fareast-language:EN-US"> </span><span lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="DE-AT" style="font-size:11.0pt;mso-fareast-language:EN-US">```</span><span lang="DE-AT"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="DE-AT" style="font-size:11.0pt;mso-fareast-language:EN-US">if marc_has('776')</span><span lang="DE-AT"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="DE-AT" style="font-size:11.0pt;mso-fareast-language:EN-US"> marc_add('999', ind1, '0', ind2, '8', i, 'Erscheint auch als', n, 'Druck-Ausgabe')</span><span lang="DE-AT"><o:p></o:p></span></p>
<p class="MsoNormal"><span lang="DE-AT" 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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><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 lang="DE-AT"><o:p></o:p></span></p>
</div>
</div>
</body>
</html>