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	dpavlin	502	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