t/data/normalize.pl

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

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

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

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

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

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

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

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

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

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

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

display('ResponsibilityFirst',
        rec('200','f')
);

display('ResponsibilitySecond',
        rec('200','g')
);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

search_display('SystemRequirements',
        rec('337')
);

search_display('IssuedWith',
        join_with(': ', rec(423,'z'),
                join_with(' / ', rec(423,'a'),
                        join_with(' ', rec(423,'c'),
                                rec(423,'b')
                        )
                )
        )
);

search_display('PartsID',
        rec('463','1')
);

search_display('PieceNum',
        rec('463','v')
);

search_display('PieceAnalitic',
        join_with(' / ',
                rec('464','a'),
                join_with(' ',
                        rec(464,'g'),
                        rec(464,'f'),
                )
        )
);

search_display('UniformHeading',
        join_with('. ',
                rec(500,'a'),
                rec(500,'b'),
        )
);

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

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

search_display('UncontrolledTerms',
        rec(610)
);

search('UDC_All',
        rec(675),
);

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

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

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

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

search_display('PersonalNameOther',
        join_with(', ',
                rec(702,'a'),
                rec(702,'b'),
        )
);

search('Names',
        rec(700),
        rec(701),
        rec(702),
);

search_display('CorporateNamePrim',
        join_with(', ',
                rec(710,'a'),
                rec(710,'b'),
        )
);

search_display('CorporateNameSec',
        join_with(', ',
                rec(711,'a'),
                rec(711,'b'),
        )
);

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

search_display('URL',
        rec(856,'u')
);

search_display('level',
        rec(909)
);

search_display('ID',
        rec(900)
);

search('Set',
        rec(946,1),
        rec(461,1),
);

search_display('CallNo',
        rec(990)
);

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

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