conf/normalize/ff-peri.pl

if ( rec('200','a') ) {

# Leader
# raspraviti 17,18

# u nekim knji¾nicama koristi se 999a i 999b


# vrijedi za ffan...

if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {
        marc_leader('05','c');
} else {
        marc_leader('05','n');
}

        marc_leader('06','a');
        marc_leader('07','s');
        marc_leader('18','i');

        marc_leader('19','r');


# 001 polje - Voyager

# 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(),
                'L',
#               config('input name'),
#               id(),
#               rec('994','a'),
                rec('000')
        )
);

# u marc 035a treba dodati System Number - 
# NSK zapisuje Voyagerov ID (001) - kako ???

# u FFSF bazama postoji nekoliko zaredanih ISBN, odvojenih s '. - '

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

marc('022','a',
        rec('11')
);

# u polje 040a mo¾da jo¹ dodati prefiks HR
# NSK ima HR NSB (mo¾da u novijim zapisima ima NSK?)

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

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

marc('040','e',
        'HR PPIAK'
);

# if (rec('300') && first(rec('300')) =~ m/Prijevod/) {
#       marc_indicators('041', 1, ' ');
# } else {
#       marc_indicators('041', 0, ' ');
# }

## naci primjer u NSK

marc_repeatable_subfield('041','a',
        rec('101')
);


if (    ( rec('200','a') =~ m/^Die /) || 
        ( rec('200','a') =~ m/^Das /) || 
        ( rec('200','a') =~ m/^The /) ) {
                marc_indicators('245', 0, 4);
} else {
        marc_indicators('245', 0, 0);
}

#_debug(3);

marc_compose('245',
        'a', suffix(
                rec('200','b') ? '. '   :
                rec('200','k') ? ' ; '  :
                rec('200','d') ? ' = '  :
                rec('200','e') ? ' : '  :
                rec('200','f') ? ' / '  :
                                 '.',
                        rec('200','a')
        ),
        'h', rec('200','b'),
        'b', suffix(
                ( rec('200','k') && rec('200','f') ) ? ' / ' :
                                                       ' ',
                        join_with(' ; ',
                                rec('200','k'),
                        ),
        ),
        'b', suffix(
                ( rec('200','d') && rec('200','f') ) ? ' / ' :
                                                       ' ',
                                rec('200','d'), 
        ),
        'b', suffix(
                ( rec('200','e') && rec('200','f') ) ? ' / ' :
                                                       ' ',
                        join_with(' : ',
                                rec('200','e'),
                        ),
        ),

# ovo trenutno radi za sluèaj kad f nije ponovljivo i kad uvijek postoje c i f u paru !!!
        'c', join_with('. ',
                rec('200','f'),
                rec('200','c'),
        ),
# FIXME append to last subfield
#       '+', prefix('. ', rec('200','c') ),

);


#_debug(0);

marc('250','a',
        suffix(
                rec('205','f') ? ' / ' :
                                 ' '.
                        rec('205','a')
        )
);

marc('250','b',
        rec('205','f')
);

# ponovljiva potpolja u originalnom redosljedu
# 
marc_original_order('260', '210');


# provjeriti interpunkcije !!
# u NSK nesto ne stima

marc('300','a',
        suffix(
                rec('215','c')  ?  ' : ' :
                rec('215','d')  ?  ' ; ' :
                rec('215','e')  ?  ' + ' :
                                   ' ',
                        rec('215','a')
        )
);

marc('300','b',
        suffix(
                ( rec('215','c') && rec('215','d') )    ?  ' ; ' :
                ( rec('215','c') && rec('215','e') )    ?  ' + ' :
                                                           ' ',
                        rec('215','c')
        )
);

marc('300','c',
        suffix(
                rec('215','e') ? ' + ' :
                                 ' ',
                        rec('215','d')
        )
);

marc('300','e',
        rec('215','e')
);


# provjeriti

marc_indicators('490', 0, ' ');

marc('490','a',
        rec('225','a')
);

marc('490','v',
        join_with(', ',
                rec('225','v'),
                rec('225','w')
        ),
);

marc('490','x',
        rec('225','x')
);

#marc('490','a',
#       join_with(' : ',
#               rec('225','a'),
#               join_with(" =  ",
#                       rec('225','d'),
#                       join_with(" / ",
#                               rec('225','e'),
#                               rec('225','f')
#                       )
#               )
#       )
#);

#marc('490','v',
#       join2_with(225, 'v', ' , ', 225,'w');
#       join_with(', ',
#               rec('225','v'),
#               rec('225','w')
#       )
#);

#marc('500','a',
#       rec('300')
#);
#
#marc('500','a',
#       rec('314')
#);
#
#marc('504','a',
#       rec('320')
#);

## napomene uz konverziju polja 327 (sadrzaj):
# NSK konvertira 327 (NP) u 501 (R)
# u LOC konv. tablici stoji 327 (NP) u 505 (NR)
# standard i validacije dopu¹taju 501 (R) i 505 (R)

## FFPS 327 - sadrzaj
if ( config() =~ m/ffps/ || config() =~ m/fftu/ ) {
        marc_indicators('505', '1', ' ');
        marc('505','a',
                regex('s/\s*[\\r\\n]+\s*\**\s*/ ; /g',
                        rec('327')
                )       
);
}


## napomene uz konverziju polja 330:
# NSK konvertira 330 (P) u 520 (P) = LOC konv. tablica


# FFPS 330 (NP) - sa¾etak
if ( config() =~ m/ffps/ ) { 
        marc('520','a',
                regex('s/[\\r\\n]+/. /g',
                        rec('330')
                )       
        );
}

# FFTU 330 - ???
if ( config() =~ m/fftu/ ) { 
        marc('520','a',
                rec('330')
        );
}


# mo¾da i polje 520y - jezik napomene ako je uvijek isti jezik

marc_indicators('246', 1, 3);
marc('246','a',
        rec('532')
);

marc_indicators('655', ' ', 4);
marc('655','a',
        rec('608')
);

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

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

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

# 084 je other classification (R)
# NSK ga koristi za struènu oznaku NSK iz polja 681
# NSK definira i prelazak polja 686 u 084, u skladu s LOC konv. tablicom
#
# polje 686 koristi FFPS

marc('084','a',
        rec('686')
);

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

#_debug(2);

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

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

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

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 u ponovljivo !!


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

if ( ! rec('464') ) {
marc('740','a',
        rec('200','c')
);

marc('740','a',
        rec('200','k')
);

} else {
marc('740','a',
        rec('464','a')
);
};

marc('500','a',
        lookup(
                sub { rec('304','a') },
                'nsk','baza',
                sub { rec('200','a') },
        ) 
);

marc('500','a',
        lookup(
                sub { rec('306','a') },
                'nsk','baza',
                sub { rec('200','a') },
        ) 
);

marc('500','a',
        lookup(
                sub { rec('314','a') },
                'nsk','baza',
                sub { rec('200','a') },
        ) 
);

marc('500','a',
        lookup(
                sub { rec('316','a') },
                'nsk','baza',
                sub { rec('200','a') },
        ) 
);

marc('504','a',
        lookup(
                sub { rec('320','a') },
                'nsk','baza',
                sub { rec('200','a') },
        ) 
);

marc('900','a',
        sort(
                lookup(
                        sub { rec('000') },
                        'ffps','peri',
                        sub { rec('200','a') },
                )
        )
);

}
1	if ( rec('200','a') ) {
2
3	# Leader
4	# raspraviti 17,18
5
6	# u nekim knji¾nicama koristi se 999a i 999b
7
8
9	# vrijedi za ffan...
10
11	if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {
12	marc_leader('05','c');
13	} else {
14	marc_leader('05','n');
15	}
16
17	marc_leader('06','a');
18	marc_leader('07','s');
19	marc_leader('18','i');
20
21	marc_leader('19','r');
22
23
24	# 001 polje - Voyager
25
26	# privemeno koristimo 0356 umjesto 0359, zato ¹to marclint 9 prijavljuje kao gre¹ku
27
28	marc('035','6',
29	join_with('',
30	# config('input normalize path'),
31	# config('name'),
32	config(),
33	'L',
34	# config('input name'),
35	# id(),
36	# rec('994','a'),
37	rec('000')
38	)
39	);
40
41	# u marc 035a treba dodati System Number -
42	# NSK zapisuje Voyagerov ID (001) - kako ???
43
44	# u FFSF bazama postoji nekoliko zaredanih ISBN, odvojenih s '. - '
45
46	marc('020','a',
47	rec('10')
48	);
49
50	marc('022','a',
51	rec('11')
52	);
53
54	# u polje 040a mo¾da jo¹ dodati prefiks HR
55	# NSK ima HR NSB (mo¾da u novijim zapisima ima NSK?)
56
57	marc('040','a',
58	'HR FFZG'
59	);
60
61	marc('040','b',
62	'hrv'
63	);
64
65	marc('040','e',
66	'HR PPIAK'
67	);
68
69	# if (rec('300') && first(rec('300')) =~ m/Prijevod/) {
70	# marc_indicators('041', 1, ' ');
71	# } else {
72	# marc_indicators('041', 0, ' ');
73	# }
74
75	## naci primjer u NSK
76
77	marc_repeatable_subfield('041','a',
78	rec('101')
79	);
80
81
82	if ( ( rec('200','a') =~ m/^Die /) \|\|
83	( rec('200','a') =~ m/^Das /) \|\|
84	( rec('200','a') =~ m/^The /) ) {
85	marc_indicators('245', 0, 4);
86	} else {
87	marc_indicators('245', 0, 0);
88	}
89
90	#_debug(3);
91
92	marc_compose('245',
93	'a', suffix(
94	rec('200','b') ? '. ' :
95	rec('200','k') ? ' ; ' :
96	rec('200','d') ? ' = ' :
97	rec('200','e') ? ' : ' :
98	rec('200','f') ? ' / ' :
99	'.',
100	rec('200','a')
101	),
102	'h', rec('200','b'),
103	'b', suffix(
104	( rec('200','k') && rec('200','f') ) ? ' / ' :
105	' ',
106	join_with(' ; ',
107	rec('200','k'),
108	),
109	),
110	'b', suffix(
111	( rec('200','d') && rec('200','f') ) ? ' / ' :
112	' ',
113	rec('200','d'),
114	),
115	'b', suffix(
116	( rec('200','e') && rec('200','f') ) ? ' / ' :
117	' ',
118	join_with(' : ',
119	rec('200','e'),
120	),
121	),
122
123	# ovo trenutno radi za sluèaj kad f nije ponovljivo i kad uvijek postoje c i f u paru !!!
124	'c', join_with('. ',
125	rec('200','f'),
126	rec('200','c'),
127	),
128	# FIXME append to last subfield
129	# '+', prefix('. ', rec('200','c') ),
130
131	);
132
133
134	#_debug(0);
135
136	marc('250','a',
137	suffix(
138	rec('205','f') ? ' / ' :
139	' '.
140	rec('205','a')
141	)
142	);
143
144	marc('250','b',
145	rec('205','f')
146	);
147
148	# ponovljiva potpolja u originalnom redosljedu
149	#
150	marc_original_order('260', '210');
151
152
153	# provjeriti interpunkcije !!
154	# u NSK nesto ne stima
155
156	marc('300','a',
157	suffix(
158	rec('215','c') ? ' : ' :
159	rec('215','d') ? ' ; ' :
160	rec('215','e') ? ' + ' :
161	' ',
162	rec('215','a')
163	)
164	);
165
166	marc('300','b',
167	suffix(
168	( rec('215','c') && rec('215','d') ) ? ' ; ' :
169	( rec('215','c') && rec('215','e') ) ? ' + ' :
170	' ',
171	rec('215','c')
172	)
173	);
174
175	marc('300','c',
176	suffix(
177	rec('215','e') ? ' + ' :
178	' ',
179	rec('215','d')
180	)
181	);
182
183	marc('300','e',
184	rec('215','e')
185	);
186
187
188	# provjeriti
189
190	marc_indicators('490', 0, ' ');
191
192	marc('490','a',
193	rec('225','a')
194	);
195
196	marc('490','v',
197	join_with(', ',
198	rec('225','v'),
199	rec('225','w')
200	),
201	);
202
203	marc('490','x',
204	rec('225','x')
205	);
206
207	#marc('490','a',
208	# join_with(' : ',
209	# rec('225','a'),
210	# join_with(" = ",
211	# rec('225','d'),
212	# join_with(" / ",
213	# rec('225','e'),
214	# rec('225','f')
215	# )
216	# )
217	# )
218	#);
219
220	#marc('490','v',
221	# join2_with(225, 'v', ' , ', 225,'w');
222	# join_with(', ',
223	# rec('225','v'),
224	# rec('225','w')
225	# )
226	#);
227
228	#marc('500','a',
229	# rec('300')
230	#);
231	#
232	#marc('500','a',
233	# rec('314')
234	#);
235	#
236	#marc('504','a',
237	# rec('320')
238	#);
239
240	## napomene uz konverziju polja 327 (sadrzaj):
241	# NSK konvertira 327 (NP) u 501 (R)
242	# u LOC konv. tablici stoji 327 (NP) u 505 (NR)
243	# standard i validacije dopu¹taju 501 (R) i 505 (R)
244
245	## FFPS 327 - sadrzaj
246	if ( config() =~ m/ffps/ \|\| config() =~ m/fftu/ ) {
247	marc_indicators('505', '1', ' ');
248	marc('505','a',
249	regex('s/\s[\\r\\n]+\s\*\s/ ; /g',
250	rec('327')
251	)
252	);
253	}
254
255
256	## napomene uz konverziju polja 330:
257	# NSK konvertira 330 (P) u 520 (P) = LOC konv. tablica
258
259
260	# FFPS 330 (NP) - sa¾etak
261	if ( config() =~ m/ffps/ ) {
262	marc('520','a',
263	regex('s/[\\r\\n]+/. /g',
264	rec('330')
265	)
266	);
267	}
268
269	# FFTU 330 - ???
270	if ( config() =~ m/fftu/ ) {
271	marc('520','a',
272	rec('330')
273	);
274	}
275
276
277	# mo¾da i polje 520y - jezik napomene ako je uvijek isti jezik
278
279	marc_indicators('246', 1, 3);
280	marc('246','a',
281	rec('532')
282	);
283
284	marc_indicators('655', ' ', 4);
285	marc('655','a',
286	rec('608')
287	);
288
289	marc_indicators('653', 0, ' ');
290	marc('653','a',
291	rec('610')
292	);
293
294	# 675 podpolja c, d ... - ¹to s njima ???
295
296	marc('080','a',
297	rec('675','a')
298	);
299
300	# 084 je other classification (R)
301	# NSK ga koristi za struènu oznaku NSK iz polja 681
302	# NSK definira i prelazak polja 686 u 084, u skladu s LOC konv. tablicom
303	#
304	# polje 686 koristi FFPS
305
306	marc('084','a',
307	rec('686')
308	);
309
310	marc_indicators('100', 1, ' ');
311	marc('100','a',
312	join_with(', ',
313	rec('700', 'a'),
314	rec('700', 'b')
315	)
316	);
317
318	#_debug(2);
319
320	marc_indicators('700', 1, ' ');
321
322	if ( rec('701') ) {
323	marc('700','4',
324	'aut'
325	);
326	}
327
328	marc('700','a',
329	join_with(', ',
330	rec('701', 'a'),
331	rec('701', 'b')
332	)
333	);
334
335	marc('700','a',
336	join_with(', ',
337	rec('701', 'c'),
338	rec('701', 'd')
339	)
340	);
341
342	marc('700','a',
343	join_with(', ',
344	rec('701', 'e'),
345	rec('701', 'f')
346	)
347	);
348
349	marc('700','a',
350	join_with(', ',
351	rec('701', 'g'),
352	rec('701', 'h')
353	)
354	);
355
356
357	marc('700','a',
358	rec('702','a'),
359	);
360
361
362	# ako je u originalu ponovljivo polje treba biti i konvertirano u ponovljivo !!
363
364
365	marc('700','a',
366	join_with(', ',
367	rec('702','c'),
368	rec('702','d')
369	)
370	);
371
372	marc('700','a',
373	join_with(', ',
374	rec('702','e'),
375	rec('702','f')
376	)
377	);
378
379	marc('700','a',
380	join_with(', ',
381	rec('702','g'),
382	rec('702','h')
383	)
384	);
385
386
387	#_debug(0);
388
389
390	if ( rec('710','f') ) {
391
392	marc_indicators('111', 2, ' ');
393	marc('111','a',
394	rec('710','a')
395	);
396
397	marc('111','c',
398	rec('710','e')
399	);
400
401	marc('111','d',
402	rec('710','f')
403	);
404
405	marc('111','e',
406	rec('710','b')
407	);
408
409	marc('111','n',
410	rec('710','d')
411	);
412
413
414	} else {
415
416	marc_indicators('110', 2, ' ');
417	marc('110','a',
418	rec('710','a')
419	);
420
421	marc('110','c',
422	rec('710','c')
423	);
424
425	};
426
427
428	marc_indicators('740', 0, ' ');
429
430	if ( ! rec('464') ) {
431	marc('740','a',
432	rec('200','c')
433	);
434
435	marc('740','a',
436	rec('200','k')
437	);
438
439	} else {
440	marc('740','a',
441	rec('464','a')
442	);
443	};
444
445	marc('500','a',
446	lookup(
447	sub { rec('304','a') },
448	'nsk','baza',
449	sub { rec('200','a') },
450	)
451	);
452
453	marc('500','a',
454	lookup(
455	sub { rec('306','a') },
456	'nsk','baza',
457	sub { rec('200','a') },
458	)
459	);
460
461	marc('500','a',
462	lookup(
463	sub { rec('314','a') },
464	'nsk','baza',
465	sub { rec('200','a') },
466	)
467	);
468
469	marc('500','a',
470	lookup(
471	sub { rec('316','a') },
472	'nsk','baza',
473	sub { rec('200','a') },
474	)
475	);
476
477	marc('504','a',
478	lookup(
479	sub { rec('320','a') },
480	'nsk','baza',
481	sub { rec('200','a') },
482	)
483	);
484
485	marc('900','a',
486	sort(
487	lookup(
488	sub { rec('000') },
489	'ffps','peri',
490	sub { rec('200','a') },
491	)
492	)
493	);
494
495	}