conf/normalize/ff-arti.pl

# Leader
#

marc_leader('05','n');
marc_leader('06','a');
if ( rec('990') ) {
        marc_leader('07','a');
} else {
        marc_leader('07','b');
};
marc_leader('18','i');

# privemeno koristimo 0356 umjesto 0359, zato ¹to marclint 9 prijavljuje kao gre¹ku

#marc('035','6',
#join_with('',
#               config('input normalize path'),
#               config('name'),
#               config('input name'),
#               config(),
#               id(),
#               rec('994','a'),
#               rec('000')
#       )
#);

marc('020','a',
        rec('10')
);

# u polje 040a mo¾da jo¹ dodati prefiks HR

marc('040','a',
        'FFZG'
);

marc('040','b',
        'hrv'
);

marc_indicators('245', 0, 0);

#_debug(3);

marc_compose('245',
        'a', suffix(
                rec('203','b') ? '. '   :
                rec('203','k') ? ' ; '  :
                rec('203','d') ? ' = '  :
                rec('203','e') ? ' : '  :
                rec('203','f') ? ' / '  :
                                 '.',
                        join_with('. ',
                                rec('203','a')
                        )
        ),
        'h', rec('203','b'),
        'b', 
        join_with(' ; ',
                rec('203','k'),
        ),
        'b', 
        join_with(' = ',
                rec('203','d'), 
        ),
        'b', 
        join_with(' : ',
                rec('203','e'),
        ),
        'c', 
        join_with(' ; ',
                rec('203','f'),
        ),
        '+', prefix('. ', rec('203','c') ),
);

marc_original_order('260', '210');

marc('520','a',
        regex('s/[\\r\\n]+/. /g',
                rec('330')
        )
);

marc_indicators('653', ' ', ' ');
marc('653','a',
        rec('610')
);

# 675 podpolja c, d ... - ¹to s njima ???

marc('080','a',
        rec('675','a')
);

marc_indicators('100', 1, ' ');
marc('100','a',
        join_with(', ',
                rec('700', 'a'),
                rec('700', 'b')
        )
);

marc_indicators('700', 1, ' ');

if ( rec('701') ) { 
marc('700','4', 
        'aut'
); 
}

marc('700','a',
        rec('701', 'a'),
);

marc('700','a',
        join_with(', ',
                rec('701', 'c'),
                rec('701', 'd')
        )
);

marc('700','a',
        join_with(', ',
                rec('701', 'e'),
                rec('701', 'f')
        )
);

marc('700','a',
        join_with(', ',
                rec('701', 'g'),
                rec('701', 'h')
        )
);


marc('700','a',
        rec('702','a'),
);


# ako je u originalu ponovljivo polje treba biti i konvertirano!!


marc('700','a',
        join_with(', ',
                rec('702','c'),
                rec('702','d')
        )
);

marc('700','a',
        join_with(', ',
                rec('702','e'),
                rec('702','f')
        )
);

marc('700','a',
        join_with(', ',
                rec('702','g'),
                rec('702','h')
        )
);

#_debug(0);


if ( rec('710','f') ) {

marc_indicators('111', 2, ' ');
marc('111','a',
        rec('710','a')
);

marc('111','c',
        rec('710','e')
);

marc('111','d',
        rec('710','f')
);

marc('111','e',
        rec('710','b')
);

marc('111','n',
        rec('710','d')
);


} else {
        
marc_indicators('110', 2, ' ');
marc('110','a',
        rec('710','a')
);

marc('110','c',
        rec('710','c')
);

};

marc_indicators('773', 0, ' ');

marc('773','g',
        rec('200','x'),
);

marc('773','t',
        join_with(' : ',
                rec('200','a'),
                rec('200','e'),
        ),
);

marc('773','w',
        lookup(
                sub { 'ffkk-peri-' . rec('000') },
                'ffkk','peri',
                sub { rec('11') }
        ) ||
        lookup(
                sub { 'ffkk-peri-' . rec('000') },
                'ffkk','peri',
                sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) },
        ) ||

        lookup(
                sub { "ffkk-peri-" . rec('000') },
                'ffkk','peri',
                sub { rec(200,'a') },
#               sub { rec(900,'x') },
        )

);


1	dpavlin	751	# Leader
2			#
3
4			marc_leader('05','n');
5			marc_leader('06','a');
6			if ( rec('990') ) {
7			marc_leader('07','a');
8			} else {
9			marc_leader('07','b');
10			};
11			marc_leader('18','i');
12
13			# privemeno koristimo 0356 umjesto 0359, zato ¹to marclint 9 prijavljuje kao gre¹ku
14
15			#marc('035','6',
16			#join_with('',
17			# config('input normalize path'),
18			# config('name'),
19			# config('input name'),
20			# config(),
21			# id(),
22			# rec('994','a'),
23			# rec('000')
24			# )
25			#);
26
27			marc('020','a',
28			rec('10')
29			);
30
31			# u polje 040a mo¾da jo¹ dodati prefiks HR
32
33			marc('040','a',
34			'FFZG'
35			);
36
37			marc('040','b',
38			'hrv'
39			);
40
41			marc_indicators('245', 0, 0);
42
43			#_debug(3);
44
45			marc_compose('245',
46			'a', suffix(
47			rec('203','b') ? '. ' :
48			rec('203','k') ? ' ; ' :
49			rec('203','d') ? ' = ' :
50			rec('203','e') ? ' : ' :
51			rec('203','f') ? ' / ' :
52			'.',
53	dpavlin	807	join_with('. ',
54			rec('203','a')
55			)
56	dpavlin	751	),
57			'h', rec('203','b'),
58			'b',
59	dpavlin	807	join_with(' ; ',
60			rec('203','k'),
61			),
62	dpavlin	751	'b',
63	dpavlin	807	join_with(' = ',
64			rec('203','d'),
65			),
66			'b',
67			join_with(' : ',
68			rec('203','e'),
69			),
70	dpavlin	751	'c',
71	dpavlin	807	join_with(' ; ',
72			rec('203','f'),
73			),
74	dpavlin	751	'+', prefix('. ', rec('203','c') ),
75			);
76
77			marc_original_order('260', '210');
78
79			marc('520','a',
80			regex('s/[\\r\\n]+/. /g',
81			rec('330')
82			)
83			);
84
85			marc_indicators('653', ' ', ' ');
86			marc('653','a',
87			rec('610')
88			);
89
90			# 675 podpolja c, d ... - ¹to s njima ???
91
92			marc('080','a',
93			rec('675','a')
94			);
95
96			marc_indicators('100', 1, ' ');
97			marc('100','a',
98			join_with(', ',
99			rec('700', 'a'),
100			rec('700', 'b')
101			)
102			);
103
104			marc_indicators('700', 1, ' ');
105
106			if ( rec('701') ) {
107			marc('700','4',
108			'aut'
109			);
110			}
111
112			marc('700','a',
113			rec('701', 'a'),
114			);
115
116			marc('700','a',
117			join_with(', ',
118			rec('701', 'c'),
119			rec('701', 'd')
120			)
121			);
122
123			marc('700','a',
124			join_with(', ',
125			rec('701', 'e'),
126			rec('701', 'f')
127			)
128			);
129
130			marc('700','a',
131			join_with(', ',
132			rec('701', 'g'),
133			rec('701', 'h')
134			)
135			);
136
137
138			marc('700','a',
139			rec('702','a'),
140			);
141
142
143			# ako je u originalu ponovljivo polje treba biti i konvertirano!!
144
145
146			marc('700','a',
147			join_with(', ',
148			rec('702','c'),
149			rec('702','d')
150			)
151			);
152
153			marc('700','a',
154			join_with(', ',
155			rec('702','e'),
156			rec('702','f')
157			)
158			);
159
160			marc('700','a',
161			join_with(', ',
162			rec('702','g'),
163			rec('702','h')
164			)
165			);
166
167			#_debug(0);
168
169
170			if ( rec('710','f') ) {
171
172			marc_indicators('111', 2, ' ');
173			marc('111','a',
174			rec('710','a')
175			);
176
177			marc('111','c',
178			rec('710','e')
179			);
180
181			marc('111','d',
182			rec('710','f')
183			);
184
185			marc('111','e',
186			rec('710','b')
187			);
188
189			marc('111','n',
190			rec('710','d')
191			);
192
193
194			} else {
195
196			marc_indicators('110', 2, ' ');
197			marc('110','a',
198			rec('710','a')
199			);
200
201			marc('110','c',
202			rec('710','c')
203			);
204
205			};
206
207	dpavlin	754	marc_indicators('773', 0, ' ');
208	dpavlin	751
209			marc('773','g',
210			rec('200','x'),
211			);
212
213			marc('773','t',
214			join_with(' : ',
215			rec('200','a'),
216			rec('200','e'),
217			),
218			);
219
220	dpavlin	754	marc('773','w',
221			lookup(
222	dpavlin	758	sub { 'ffkk-peri-' . rec('000') },
223	dpavlin	754	'ffkk','peri',
224			sub { rec('11') }
225			) \|\|
226			lookup(
227	dpavlin	758	sub { 'ffkk-peri-' . rec('000') },
228	dpavlin	754	'ffkk','peri',
229			sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) },
230			) \|\|
231
232			lookup(
233	dpavlin	758	sub { "ffkk-peri-" . rec('000') },
234	dpavlin	754	'ffkk','peri',
235			sub { rec(200,'a') },
236			# sub { rec(900,'x') },
237			)
238
239			);
240
241