t/data/normalize.pl

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

display('ISBN',
        rec('10')
);

display('ISSN',
        rec('11')
);

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

tag('Language',
        rec('101')
);

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

tag('titleNo',
        rec('200','9')
);

tag('Subtitle',
        rec('200','e')
);

tag('TitleProper2',
        rec('200','c')
);

tag('ParallelTitle',
        rec('200','d')
);

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

tag('VolumeDesignation',
        rec('200','v')
);

tag('EditionStatement',
        rec('205','a')
);

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

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

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

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

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

tag('PhysicalDescription',
        join_with(" : ",
                rec('215','a'),
                join_with(" ; ",
                        rec('215','c'),
                        rec('215','d'),
                )
        )
);

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

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

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

tag('Series',
        join_with(" = ", rec('225','a'),
                join_with(" : ", rec('225','d'),
                        join_with(" ; ", rec('225','e'),
                                join_with(". ", rec('225','v'),
                                        join_with(", ", rec('225','h'),
                                                join_with(" ; ", rec('225','i'),
                                                        rec('225','w'),
                                                )
                                        )
                                )
                        )
                )
        )
);

tag('SeriesTitle',
        rec('225','a')
);

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

tag('EditionNote',
        rec('305')
);

tag('PhysicalDescriptionNote',
        rec('307')
);

tag('IntellectResponsNote',
        rec('314')
);

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

tag('Frequency',
        rec('326')
);

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

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

tag('SystemRequirements',
        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('UniformHeading',
        join_with('. ',
                rec(500,'a'),
                rec(500,'b'),
        )
);

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

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

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

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

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

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

tag('PersonalNameSec',
        join_with(', ',
                rec(701,'a'),
                rec(701,'b'),
        )
);

tag('PersonalNameOth',
        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('CorporateNameSec',
        join_with(', ',
                rec(711,'a'),
                rec(711,'b'),
        )
);

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

tag('URL',
        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('CallNo',
        rec(990)
);

tag('InvNo',
        rec(991)
);

        
1	tag('MFN',
2	rec('000')
3	);
4
5	display('ISBN',
6	rec('10')
7	);
8
9	display('ISSN',
10	rec('11')
11	);
12
13	search('ISN',
14	rec('10'),
15	rec('11'),
16	);
17
18	tag('Language',
19	rec('101')
20	);
21
22	tag('TitleProper',
23	regex( 's/<[^>]*>//g',
24	rec('200','a')
25	)
26	);
27
28	tag('titleNo',
29	rec('200','9')
30	);
31
32	tag('Subtitle',
33	rec('200','e')
34	);
35
36	tag('TitleProper2',
37	rec('200','c')
38	);
39
40	tag('ParallelTitle',
41	rec('200','d')
42	);
43
44	tag('Responsibility',
45	join_with(" ; ",
46	rec('200','f'),
47	rec('200','g')
48	)
49	);
50
51	tag('VolumeDesignation',
52	rec('200','v')
53	);
54
55	tag('EditionStatement',
56	rec('205','a')
57	);
58
59	tag('SerialNo',
60	rec('207','a')
61	);
62
63	tag('fond',
64	rec('209','a')
65	);
66
67	tag('PlacePublication',
68	rec('210','a')
69	);
70
71	tag('NamePublisher',
72	rec('210','c')
73	);
74
75	tag('DatePublication',
76	rec('210','d')
77	);
78
79	tag('PhysicalDescription',
80	join_with(" : ",
81	rec('215','a'),
82	join_with(" ; ",
83	rec('215','c'),
84	rec('215','d'),
85	)
86	)
87	);
88
89	tag('MaterialDesignation',
90	rec('215','a')
91	);
92
93	tag('PhysicalDetails',
94	rec('215','c')
95	);
96
97	tag('AccompanyingMaterial',
98	rec('215','e')
99	);
100
101	tag('Series',
102	join_with(" = ", rec('225','a'),
103	join_with(" : ", rec('225','d'),
104	join_with(" ; ", rec('225','e'),
105	join_with(". ", rec('225','v'),
106	join_with(", ", rec('225','h'),
107	join_with(" ; ", rec('225','i'),
108	rec('225','w'),
109	)
110	)
111	)
112	)
113	)
114	)
115	);
116
117	tag('SeriesTitle',
118	rec('225','a')
119	);
120
121	tag('GeneralNote',
122	rec('300')
123	);
124
125	tag('EditionNote',
126	rec('305')
127	);
128
129	tag('PhysicalDescriptionNote',
130	rec('307')
131	);
132
133	tag('IntellectResponsNote',
134	rec('314')
135	);
136
137	tag('InternalBibliographies',
138	rec('320')
139	);
140
141	tag('Frequency',
142	rec('326')
143	);
144
145	tag('ContentsNote',
146	rec('327')
147	);
148
149	tag('Summary',
150	rec('330')
151	);
152
153	tag('SystemRequirements',
154	rec('337')
155	);
156
157	tag('IssuedWith',
158	join_with(': ', rec(423,'z'),
159	join_with(' / ', rec(423,'a'),
160	join_with(' ', rec(423,'c'),
161	rec(423,'b')
162	)
163	)
164	)
165	);
166
167	display('Parts',
168	lookup(
169	prefix( 'dio-jzav:', rec(900) )
170	)
171	);
172
173	search('Parts',
174	lookup(
175	prefix( 'id-dio-jzav:', rec(900) )
176	)
177	);
178
179	display('PartsEF',
180	lookup(
181	prefix( 'naslov-efzg:001', rec('001') )
182	)
183	);
184
185	tag('PartsID',
186	rec('463','1')
187	);
188
189	tag('Piece',
190	lookup(
191	prefix( 'naslov-efzg:',
192	first(
193	rec(463,1)
194	)
195	)
196	)
197	);
198
199	tag('PieceSubtitle',
200	lookup(
201	prefix( 'podnaslov-efzg:',
202	first(
203	rec(463,1)
204	)
205	)
206	)
207	);
208
209	tag('PieceNum',
210	rec('463','v')
211	);
212
213	tag('PieceAnalitic',
214	join_with(' / ',
215	rec('464','a'),
216	join_with(' ',
217	rec(464,'g'),
218	rec(464,'f'),
219	)
220	)
221	);
222
223	tag('UniformHeading',
224	join_with('. ',
225	rec(500,'a'),
226	rec(500,'b'),
227	)
228	);
229
230	tag('ExpandedTitle',
231	rec(532)
232	);
233
234	tag('Form',
235	rec(608)
236	);
237
238	tag('UncontroledTerms',
239	rec(610)
240	);
241
242	tag('UDC',
243	rec(675)
244	);
245
246	tag('APACC',
247	rec(686)
248	);
249
250	tag('PersonalNamePrim',
251	join_with(', ',
252	rec(700,'a'),
253	rec(700,'b'),
254	)
255	);
256
257	tag('PersonalNameSec',
258	join_with(', ',
259	rec(701,'a'),
260	rec(701,'b'),
261	)
262	);
263
264	tag('PersonalNameOth',
265	join_with(', ',
266	rec(702,'a'),
267	rec(702,'b'),
268	)
269	);
270
271	search('Names',
272	rec(700),
273	rec(701),
274	rec(702),
275	);
276
277	tag('CorporateNamePrim',
278	join_with(', ',
279	rec(710,'a'),
280	rec(710,'b'),
281	)
282	);
283
284	tag('CorporateNameSec',
285	join_with(', ',
286	rec(711,'a'),
287	rec(711,'b'),
288	)
289	);
290
291	tag('OriginatingSource',
292	rec(801)
293	);
294
295	tag('URL',
296	rec(856,'u')
297	);
298
299	tag('level',
300	rec(909)
301	);
302
303	tag('ID',
304	rec(900)
305	);
306
307	display('Set',
308	lookup(
309	prefix( 'set-jzav:',
310	rec(946,1),
311	)
312	),
313	lookup(
314	prefix( 'set-efzg:',
315	rec(461,1),
316	)
317	)
318	);
319
320	search('Set',
321	rec(946,1),
322	rec(461,1),
323	);
324
325	tag('Set2',
326	lookup(
327	prefix( 'set-jzav:',
328	lookup( 'parent-id:',
329	rec(946,1)
330	)
331	)
332	)
333	);
334
335	tag('CallNo',
336	rec(990)
337	);
338
339	tag('InvNo',
340	rec(991)
341	);
342
343
344
345
346
347