conf/normalize/common.pl

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

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

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

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'),
);

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

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

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