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	dpavlin	502	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	dpavlin	758	#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	dpavlin	502
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	dpavlin	517	tag('UncontrolledTerms',
293	dpavlin	502	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	dpavlin	758	#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	dpavlin	502
371			search('set',
372			rec(946,1),
373			rec(461,1),
374			);
375
376	dpavlin	758	#tag('set2',
377			# lookup(
378			# prefix( 'set-jzav:',
379			# lookup( 'parent-id:',
380			# rec(946,1)
381			# )
382			# )
383			# )
384			#);
385	dpavlin	502
386			tag('ShelvingControlNumber',
387			rec(990)
388			);
389
390			tag('InternalItemNumber',
391			rec(991,'b'),
392			rec1(991)
393			);
394
395