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	dpavlin	470	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	dpavlin	477	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	dpavlin	470	tag('CallNo',
336			rec(990)
337			);
338
339			tag('InvNo',
340			rec(991)
341			);
342
343
344
345
346
347