conf/normalize/ff-libri.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','m');
        marc_leader('18','i');

if ( rec('230') ) {
        marc_leader('19','r');
}


# 001 polje - Voyager

# polje 035 je u NSK ponovljivo. za¹to ???

# 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')
        )
);

# 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')
);

# 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'
);

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

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


## pitati dobricu

if ( rec('200') && first(rec('200')) =~ m/Die /i) {
        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 !!
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')
);


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

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

#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 sa sadr¾ajem:
# 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 koristi 327 (P)
# FFIZ koristi 327


marc_indicators('505', '0', ' ');

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

# FFAN - (NP) - sadr¾aj, pitati Milu da li je to cijeli sadraj ili nije
#
# FFIZ koristi 330 (P) - kljuène rijeèi, dijelovi sadr¾aja, sa¾eci
# FFFO koristi 330 (P) - kljuène rijeèi, dijelovi sadr¾aja 
# FFPS koristi 330 (NP) - sa¾etak

if ( config() =~ m/ffan/i || config() =~ m/fflo/i ) { 

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

}

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

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

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

## treba provjeriti da li polje 330 sadrzi jos neke podatke koji mogu biti u <> ili su tu iskljucivo autori? da li samo autori ili neke drugeosobe?
# 
# marc('700','a',
#       rec('330','a')
# );
# 
# 
# marc('700','a',
#       rec('330','b')
# );
# 
# marc('700','a',
#       rec('330','c')
# );
# 
# 
# marc('700','a',
#       rec('330','d')
# );
# 
# marc('700','a',
#       rec('330','e')
# );
# 
# marc('700','a',
#       rec('330','f')
# );
 
#_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')
);
};


## vi¹erazinci 

if ( rec('230') ) {

        marc('900','a',
                id()
        );

        marc_duplicate();

        marc_remove('035');
        marc('035','6',
                join_with('',
                        config(),
                        rec('000'),
                        id(),
                )
        );


        marc_remove('245');
        
        if ( rec('230','a') ) {
                marc_compose('245',
                'a', suffix(
                        rec('230','b') ? '. '   :
                        rec('230','k') ? ' ; '  :
                        rec('230','d') ? ' = '  :
                        rec('230','e') ? ' : '  :
                        rec('230','f') ? ' / '  :
                                         '.',
                                rec('230','a')
                ),
                'b', 
                        join_with(' ; ',
                                rec('230','k'),
                        ),
                'b', rec('230','d'), 
                'b', 
                        join_with(' : ',
                                rec('230','e'),
                        ),
                'c', 
                        join_with(' ; ',
                                rec('230','f'),
                        ),
        );
        
        } else {
        
                marc_compose('245',
                'a', suffix(
                        rec('230','b') ? '. '   :
                        rec('230','k') ? ' ; '  :
                        rec('230','d') ? ' = '  :
                        rec('230','e') ? ' : '  :
                        rec('230','f') ? ' / '  :
                                         '.',
                                rec('200','a')
                ),
                'b', 
                        join_with(' ; ',
                                rec('230','k'),
                        ),
                'b', rec('230','d'), 
                'b', 
                        join_with(' : ',
                                rec('230','e'),
                        ),
                'c', 
                        join_with(' ; ',
                                rec('230','f'),
                        ),
                'n', rec('230','v'),
        );
        
        }

        marc_remove('260');
        marc('260','c',
                rec('250')
        );

        marc_remove('300');
        marc('300','a',
                rec('260')
        );

        marc_remove('490');
        marc('490','a',
                rec('270')
        );

        marc_remove('500');
        marc('500','a',
                rec('280')
        );

        marc_remove('020');
        marc('020','a',
                rec('290')
        );

        marc_indicators('774', 0, ' ');
        marc('774','g',
                rec('230','v')
        );
 
        marc('774','t',
                rec('200','a')
        );
        
        marc('774','w',
                join_with('',
                        config(),
                        rec('000')
                )
        );

 
};

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