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