conf/normalize/common.pl

tag('MFN',
        rec('000')
);

display('ControlNumber',
        rec1('001')
);

display('LastTransaction',
        rec1('005')
);

display('ISBN',
        rec1('10'),
        rec('010','a')
);

display('ISBN_information',
        rec('010','b')
);

display('ISBN_availability',
        rec('010','d')
);

display('ISBN_incorrect',
        rec('010','z')
);

display('ISSN',
        rec1('11'),
        rec('011','a')
);

display('ISSN_incorrect',
        rec('011','z')
);

display('ISSN_cancelled',
        rec('011','y')
);

search('ISN',
        rec('10'),
        rec('010'),
        rec('11'),
        rec('011'),
);

display('NationalBibliographySource',
        rec('020','a')
);

display('NationalBibliographyNumber',
        rec('020','b')
);

display('LegalDepositSource',
        rec('021','a')
);

display('LegalDepositNumber',
        rec('021','b')
);

display('GovernmentDocumentSource',
        rec('022','a')
);

display('GovernmentDocumentNumber',
        rec('022','b')
);

display('GovernmentDocumentCancelled',
        rec('022','z')
);

tag('Coden',
        rec('040','a')
);

display('GeneralInformation',
        rec(100,'a')
);

tag('LanguageText',
        rec(101,'a')
);

tag('LanguageOriginal',
        join_with(', ',
                rec(101,'b'),
                rec(101,'d')
        )
);

tag('LanguageSummary',
        rec(101,'d')
);

tag('LanguageContents',
        rec(101,'e')
);

tag('CountryPublishing',
        rec(102,'a')
);

tag('LocalSubentity',
        rec(102,'b')
);

tag('TitleProper',
        regex( 's/<[^>]*>//g',
                rec(200,'a')
        )
);

tag('Medium',
        rec(200,'b')
);

tag('AnotherAuthorTitle',
        prefix('. ',
                rec(200,'c')
        )
);

tag('ReminderTitle',
        join_with(' : ',
                prefix(' = ',
                        rec(200,'d')
                ),
                rec(200,'e')
        )
);

tag('StatementResponsibility',
        join_with(" ; ",
                rec(200,'f'),
                rec(200,'g')
        )
);

tag('NumberPart',
        rec(200,'h'),
        rec(200,'v')
);

tag('NamePart',
        rec(200,'i')
);

tag('EditionStatement',
        join_with(', ',
                rec(205,'a'),
                join_with(' = ',
                        rec(205,'b'),
                        rec(205,'d')
                )
        )
);

tag('StatementScale',
        rec(206,'a')
);

tag('SerialsNumberingDateVol',
        rec(207,'a')
);

tag('SerialsNumberingSource',
        rec(207,'z')
);

tag('fond',
        rec('209','a')
);

tag('PlacePublication',
        rec('210','a')
);

tag('NamePublisher',
        rec(210,'c'),
        surround(' (', ')', rec(210,'b') )
);

tag('DatePublication',
        rec('210','d')
);

tag('PlaceManufacture',
        rec(210,'e')
);

tag('NameManufacturer',
        rec('210','g'),
        surround(' (', ') ', rec(210,'f') )
);

tag('DateManufacture',
        rec(210,'h')
);

tag('ExtentItem',
        rec(215,'a')
);

tag('OtherPhysicalDetails',
        rec(215,'c')
);

tag('Dimensions',
        rec(215,'d')
);

tag('AccompanyingMaterial',
        rec(215,'e')
);

tag('SeriesStatement',
        join_with(" = ", 
                rec('225','a'),
                join_with(" : ", 
                        rec('225','d'),
                        join_with(" / ", 
                                rec('225','e'),
                                rec('225','f'),
                        )
                )
        )
);

tag('VolumeNumber',
        join_with(', ',
                rec(225,'h'),
                rec(225,'i'),
                rec(225,'v')
        )
);

tag('SeriesISSN',
        rec(225,'x')
);

tag('ComputerFileCharacteristics',
        rec(230,'a')
);

tag('GeneralNote',
        rec('300')
);

tag('InternalBibliographiesNote',
        rec('320')
);

tag('FrequencyNote',
        first(
                rec('326')
        )
);

tag('ContentsNote',
        rec('327')
);

tag('Summary',
        rec('330')
);

tag('SystemDetailsNote',
        rec('337')
);

tag('IssuedWith',
        join_with(': ', rec(423,'z'),
                join_with(' / ', rec(423,'a'),
                        join_with(' ', rec(423,'c'),
                                rec(423,'b')
                        )
                )
        )
);

display('parts',
        lookup(
                prefix( 'dio-jzav:', rec(900) )
        )
);

search('parts',
        lookup(
                prefix( 'id-dio-jzav:', rec(900) )
        )
);

display('partsEF',
        lookup(
                prefix( 'naslov-efzg:001', rec('001') )
        )
);

tag('partsID',
        rec('463','1')
);

tag('piece',
        lookup(
                prefix( 'naslov-efzg:',
                        first(
                                rec(463,1)
                        )
                )
        )
);

tag('pieceSubtitle',
        lookup(
                prefix( 'podnaslov-efzg:',
                        first(
                                rec(463,1)
                        )
                )
        )
);

tag('pieceNum',
        rec('463','v')
);

tag('pieceAnalitic',
        join_with(' / ',
                rec('464','a'),
                join_with(' ',
                        rec(464,'g'),
                        rec(464,'f'),
                )
        )
);

tag('UniformTitle',
        rec(500,'a'),
        surround(' [', ']', rec(500,'b') )
);

tag('VariantAccessTitle',
        rec(532)
);

tag('SubjectForm',
        rec(608)
);

tag('UncontroledTerms',
        rec(610)
);

tag('UDC',
        rec(675)
);

tag('OtherCassification',
        rec(686)
);

tag('PersonalNamePrim',
        join_with(', ',
                rec(700,'a'),
                rec(700,'b'),
        )
);

tag('PersonalNameAdded',
        join_with(', ',
                rec(701,'a'),
                rec(701,'b'),
        ),
        join_with(', ',
                rec(702,'a'),
                rec(702,'b')
        )
);

search('names',
        rec(700),
        rec(701),
        rec(702),
);

tag('CorporateNamePrim',
        join_with(', ',
                rec(710,'a'),
                rec(710,'b'),
        )
);

tag('CorporateNameAdded',
        join_with(', ',
                rec(711,'a'),
                rec(711,'b'),
        )
);

tag('CatalogingSource',
        rec(801)
);

tag('ElectronicLocation',
        rec(856,'u')
);

tag('level',
        rec(909)
);

tag('id',
        rec(900)
);

display('set',
        lookup(
                prefix( 'set-jzav:',
                        rec(946,1),
                )
        ),
        lookup(
                prefix( 'set-efzg:',
                        rec(461,1),
                )
        )
);

search('set',
        rec(946,1),
        rec(461,1),
);

tag('set2',
        lookup(
                prefix( 'set-jzav:',
                        lookup( 'parent-id:',
                                rec(946,1)
                        )
                )
        )
);

tag('ShelvingControlNumber',
        rec(990)
);

tag('InternalItemNumber',
        rec(991,'b'),
        rec1(991)
);


1	tag('MFN',
2	rec('000')
3	);
4
5	display('ControlNumber',
6	rec1('001')
7	);
8
9	display('LastTransaction',
10	rec1('005')
11	);
12
13	display('ISBN',
14	rec1('10'),
15	rec('010','a')
16	);
17
18	display('ISBN_information',
19	rec('010','b')
20	);
21
22	display('ISBN_availability',
23	rec('010','d')
24	);
25
26	display('ISBN_incorrect',
27	rec('010','z')
28	);
29
30	display('ISSN',
31	rec1('11'),
32	rec('011','a')
33	);
34
35	display('ISSN_incorrect',
36	rec('011','z')
37	);
38
39	display('ISSN_cancelled',
40	rec('011','y')
41	);
42
43	search('ISN',
44	rec('10'),
45	rec('010'),
46	rec('11'),
47	rec('011'),
48	);
49
50	display('NationalBibliographySource',
51	rec('020','a')
52	);
53
54	display('NationalBibliographyNumber',
55	rec('020','b')
56	);
57
58	display('LegalDepositSource',
59	rec('021','a')
60	);
61
62	display('LegalDepositNumber',
63	rec('021','b')
64	);
65
66	display('GovernmentDocumentSource',
67	rec('022','a')
68	);
69
70	display('GovernmentDocumentNumber',
71	rec('022','b')
72	);
73
74	display('GovernmentDocumentCancelled',
75	rec('022','z')
76	);
77
78	tag('Coden',
79	rec('040','a')
80	);
81
82	display('GeneralInformation',
83	rec(100,'a')
84	);
85
86	tag('LanguageText',
87	rec(101,'a')
88	);
89
90	tag('LanguageOriginal',
91	join_with(', ',
92	rec(101,'b'),
93	rec(101,'d')
94	)
95	);
96
97	tag('LanguageSummary',
98	rec(101,'d')
99	);
100
101	tag('LanguageContents',
102	rec(101,'e')
103	);
104
105	tag('CountryPublishing',
106	rec(102,'a')
107	);
108
109	tag('LocalSubentity',
110	rec(102,'b')
111	);
112
113	tag('TitleProper',
114	regex( 's/<[^>]*>//g',
115	rec(200,'a')
116	)
117	);
118
119	tag('Medium',
120	rec(200,'b')
121	);
122
123	tag('AnotherAuthorTitle',
124	prefix('. ',
125	rec(200,'c')
126	)
127	);
128
129	tag('ReminderTitle',
130	join_with(' : ',
131	prefix(' = ',
132	rec(200,'d')
133	),
134	rec(200,'e')
135	)
136	);
137
138	tag('StatementResponsibility',
139	join_with(" ; ",
140	rec(200,'f'),
141	rec(200,'g')
142	)
143	);
144
145	tag('NumberPart',
146	rec(200,'h'),
147	rec(200,'v')
148	);
149
150	tag('NamePart',
151	rec(200,'i')
152	);
153
154	tag('EditionStatement',
155	join_with(', ',
156	rec(205,'a'),
157	join_with(' = ',
158	rec(205,'b'),
159	rec(205,'d')
160	)
161	)
162	);
163
164	tag('StatementScale',
165	rec(206,'a')
166	);
167
168	tag('SerialsNumberingDateVol',
169	rec(207,'a')
170	);
171
172	tag('SerialsNumberingSource',
173	rec(207,'z')
174	);
175
176	tag('fond',
177	rec('209','a')
178	);
179
180	tag('PlacePublication',
181	rec('210','a')
182	);
183
184	tag('NamePublisher',
185	rec(210,'c'),
186	surround(' (', ')', rec(210,'b') )
187	);
188
189	tag('DatePublication',
190	rec('210','d')
191	);
192
193	tag('PlaceManufacture',
194	rec(210,'e')
195	);
196
197	tag('NameManufacturer',
198	rec('210','g'),
199	surround(' (', ') ', rec(210,'f') )
200	);
201
202	tag('DateManufacture',
203	rec(210,'h')
204	);
205
206	tag('ExtentItem',
207	rec(215,'a')
208	);
209
210	tag('OtherPhysicalDetails',
211	rec(215,'c')
212	);
213
214	tag('Dimensions',
215	rec(215,'d')
216	);
217
218	tag('AccompanyingMaterial',
219	rec(215,'e')
220	);
221
222	tag('SeriesStatement',
223	join_with(" = ",
224	rec('225','a'),
225	join_with(" : ",
226	rec('225','d'),
227	join_with(" / ",
228	rec('225','e'),
229	rec('225','f'),
230	)
231	)
232	)
233	);
234
235	tag('VolumeNumber',
236	join_with(', ',
237	rec(225,'h'),
238	rec(225,'i'),
239	rec(225,'v')
240	)
241	);
242
243	tag('SeriesISSN',
244	rec(225,'x')
245	);
246
247	tag('ComputerFileCharacteristics',
248	rec(230,'a')
249	);
250
251	tag('GeneralNote',
252	rec('300')
253	);
254
255	tag('InternalBibliographiesNote',
256	rec('320')
257	);
258
259	tag('FrequencyNote',
260	first(
261	rec('326')
262	)
263	);
264
265	tag('ContentsNote',
266	rec('327')
267	);
268
269	tag('Summary',
270	rec('330')
271	);
272
273	tag('SystemDetailsNote',
274	rec('337')
275	);
276
277	tag('IssuedWith',
278	join_with(': ', rec(423,'z'),
279	join_with(' / ', rec(423,'a'),
280	join_with(' ', rec(423,'c'),
281	rec(423,'b')
282	)
283	)
284	)
285	);
286
287	display('parts',
288	lookup(
289	prefix( 'dio-jzav:', rec(900) )
290	)
291	);
292
293	search('parts',
294	lookup(
295	prefix( 'id-dio-jzav:', rec(900) )
296	)
297	);
298
299	display('partsEF',
300	lookup(
301	prefix( 'naslov-efzg:001', rec('001') )
302	)
303	);
304
305	tag('partsID',
306	rec('463','1')
307	);
308
309	tag('piece',
310	lookup(
311	prefix( 'naslov-efzg:',
312	first(
313	rec(463,1)
314	)
315	)
316	)
317	);
318
319	tag('pieceSubtitle',
320	lookup(
321	prefix( 'podnaslov-efzg:',
322	first(
323	rec(463,1)
324	)
325	)
326	)
327	);
328
329	tag('pieceNum',
330	rec('463','v')
331	);
332
333	tag('pieceAnalitic',
334	join_with(' / ',
335	rec('464','a'),
336	join_with(' ',
337	rec(464,'g'),
338	rec(464,'f'),
339	)
340	)
341	);
342
343	tag('UniformTitle',
344	rec(500,'a'),
345	surround(' [', ']', rec(500,'b') )
346	);
347
348	tag('VariantAccessTitle',
349	rec(532)
350	);
351
352	tag('SubjectForm',
353	rec(608)
354	);
355
356	tag('UncontroledTerms',
357	rec(610)
358	);
359
360	tag('UDC',
361	rec(675)
362	);
363
364	tag('OtherCassification',
365	rec(686)
366	);
367
368	tag('PersonalNamePrim',
369	join_with(', ',
370	rec(700,'a'),
371	rec(700,'b'),
372	)
373	);
374
375	tag('PersonalNameAdded',
376	join_with(', ',
377	rec(701,'a'),
378	rec(701,'b'),
379	),
380	join_with(', ',
381	rec(702,'a'),
382	rec(702,'b')
383	)
384	);
385
386	search('names',
387	rec(700),
388	rec(701),
389	rec(702),
390	);
391
392	tag('CorporateNamePrim',
393	join_with(', ',
394	rec(710,'a'),
395	rec(710,'b'),
396	)
397	);
398
399	tag('CorporateNameAdded',
400	join_with(', ',
401	rec(711,'a'),
402	rec(711,'b'),
403	)
404	);
405
406	tag('CatalogingSource',
407	rec(801)
408	);
409
410	tag('ElectronicLocation',
411	rec(856,'u')
412	);
413
414	tag('level',
415	rec(909)
416	);
417
418	tag('id',
419	rec(900)
420	);
421
422	display('set',
423	lookup(
424	prefix( 'set-jzav:',
425	rec(946,1),
426	)
427	),
428	lookup(
429	prefix( 'set-efzg:',
430	rec(461,1),
431	)
432	)
433	);
434
435	search('set',
436	rec(946,1),
437	rec(461,1),
438	);
439
440	tag('set2',
441	lookup(
442	prefix( 'set-jzav:',
443	lookup( 'parent-id:',
444	rec(946,1)
445	)
446	)
447	)
448	);
449
450	tag('ShelvingControlNumber',
451	rec(990)
452	);
453
454	tag('InternalItemNumber',
455	rec(991,'b'),
456	rec1(991)
457	);
458
459