conf/normalize/isis_ffzg.pl

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

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

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

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

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

display('ResponsibilitySecond',
        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( 'nazlov-efzg:',
                        first(
                                rec(463,1)
                        )
                )
        )
);

tag('PieceSubtitle',
        lookup(
                prefix( 'podnazlov-efzg:',
                        first(
                                rec(463,1)
                        )
                )
        )
);

tag('PieceNum',
        rec('463','v')
);
1	dpavlin	462	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('IdentificationNumbers',
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			display('ResponsibilityFirst',
52			rec('200','f')
53			);
54
55			display('ResponsibilitySecond',
56			rec('200','g')
57			);
58
59			tag('VolumeDesignation',
60			rec('200','v')
61			);
62
63			tag('EditionStatement',
64			rec('205','a')
65			);
66
67			tag('SerialNo',
68			rec('207','a')
69			);
70
71			tag('fond',
72			rec('209','a')
73			);
74
75			tag('PlacePublication',
76			rec('210','a')
77			);
78
79			tag('NamePublisher',
80			rec('210','c')
81			);
82
83			tag('DatePublication',
84			rec('210','d')
85			);
86
87			tag('PhysicalDescription',
88			join_with(" : ",
89			rec('215','a'),
90			join_with(" ; ",
91			rec('215','c'),
92			rec('215','d'),
93			)
94			)
95			);
96
97			tag('MaterialDesignation',
98			rec('215','a')
99			);
100
101			tag('PhysicalDetails',
102			rec('215','c')
103			);
104
105			tag('AccompanyingMaterial',
106			rec('215','e')
107			);
108
109			tag('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			tag('SeriesTitle',
126			rec('225','a')
127			);
128
129			tag('GeneralNote',
130			rec('300')
131			);
132
133			tag('EditionNote',
134			rec('305')
135			);
136
137			tag('PhysicalDescriptionNote',
138			rec('307')
139			);
140
141			tag('IntellectResponsNote',
142			rec('314')
143			);
144
145			tag('InternalBibliographies',
146			rec('320')
147			);
148
149			tag('Frequency',
150			rec('326')
151			);
152
153			tag('ContentsNote',
154			rec('327')
155			);
156
157			tag('Summary',
158			rec('330')
159			);
160
161			tag('SystemRequirements',
162			rec('337')
163			);
164
165			tag('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			display('Parts',
176			lookup(
177	dpavlin	463	prefix( 'dio-jzav:', rec(900) )
178	dpavlin	462	)
179			);
180
181			search('Parts',
182			lookup(
183	dpavlin	463	prefix( 'id-dio-jzav:', rec(900) )
184	dpavlin	462	)
185			);
186
187			display('PartsEF',
188			lookup(
189	dpavlin	463	prefix( 'naslov-efzg:001', rec('001') )
190	dpavlin	462	)
191			);
192
193			tag('PartsID',
194			rec('463','1')
195			);
196
197			tag('Piece',
198			lookup(
199	dpavlin	463	prefix( 'nazlov-efzg:',
200	dpavlin	462	first(
201			rec(463,1)
202			)
203			)
204			)
205			);
206
207			tag('PieceSubtitle',
208			lookup(
209	dpavlin	463	prefix( 'podnazlov-efzg:',
210	dpavlin	462	first(
211			rec(463,1)
212			)
213			)
214			)
215			);
216
217			tag('PieceNum',
218			rec('463','v')
219			);