conf/normalize/ff-peri.pl

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


# LEADER
# raspraviti 17,18

marc_leader('05','n');
marc_leader('06','a');

if ( rec('225','a') ) {
        marc_leader('07','b');
} else {
        marc_leader('07','s');
}

marc_leader('18','i');

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

# 001 polje - Voyager

# 007
marc_fixed('007',00,'ta');


## 008
marc_fixed('008','00', '070707');
marc_fixed('008','06', '|');    # Type of date/Publication status
marc_fixed('008','07', '|');    # Date 1
marc_fixed('008','08', '|');
marc_fixed('008','09', '|');
marc_fixed('008','10', '|');
marc_fixed('008','11', '|');    # Date 2
marc_fixed('008','12', '|');
marc_fixed('008','13', '|');
marc_fixed('008','14', '|');
marc_fixed('008','15',          # Place of publication, production, or execution
        lookup(
                sub { rec('102','a') },
                'nsk','bbaza',
                sub { rec('011','a') },
                sub { rec('11') },
        ),
);
marc_fixed('008','18', '');
marc_fixed('008','35',          # Language
        rec('101') 
);
marc_fixed('008','39','|');     # Cataloging source

## 022

if ( ! rec('225','a') ) {
        marc('022','a',
                rec('11')
        );
}

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

marc('035','6',
        join_with('',
                uc( config() ),
                ' P',
                rec('000')
        )
);

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

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


# 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('044','a',
        lookup(
                sub { rec('102','a') },
                'nsk','bbaza',
                sub { rec('011','a') },
                sub { rec('11') },
        ),
);

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

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

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

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

marc('222','a',
        lookup(
                sub { rec('530','a') },
                'nsk','bbaza',
                sub { rec('011','a') },
                sub { rec('11') },
        ) 
);
 
### 245 indikatori

marc_compose('245',
        'a', suffix(
                ( ! ( rec('200','d') || rec('200','e') || rec('200','k') ) ) && ( rec('200','f') ) ? ' / ' :  
                ( rec('200','d') ) ? ' = ' :
                ( rec('200','e') ) ? ' : ' :
                ( rec('200','k') ) ? ' ; ' :
                        '', 
                        rec('200','a'),
        ),
        'b', suffix(
                ( rec('200','d') && rec('200','f') ) ? ' / ' : 
                ( rec('200','d') && rec('200','c') ) ? '. '  : 
                        '',
                        rec('200','d'),
        ),
        'b', suffix(
                ( rec('200','e') && rec('200','f') ) ? ' / ' : 
                ( rec('200','e') && rec('200','c') ) ? '. '  : 
                        '',
                        rec('200','e'),
        ),
        'b', suffix(
                ( rec('200','k') && rec('200','f') ) ? ' / ' : 
                ( rec('200','k') && rec('200','c') ) ? '. '  : 
                        '',
                        rec('200','k'),
        ),
        'c', suffix(
                ( rec('200','f') && rec('200','c') ) ? '. ' :
                        '',
                        rec('200','f'),
        ),
        '+', rec('200','c'),
);

## 246

marc_indicators('246', 1, 3);

marc('246','a',
        rec('532')
);

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

marc('310','a',
        lookup(
                sub { rec('326','a') },
                'nsk','bbaza',
                sub { rec('011','a') },
                sub { rec('11') },
        ) 
);
 
marc('321','a',
        rec('326')
);

marc_indicators('362', 0, ' ');

marc('362','a',
        lookup(
                sub { rec('207','a') },
                'nsk','bbaza',
                sub { rec('011','a') },
                sub { rec('11') },
        ),
);


marc('500','a',
        lookup(
                sub { rec('300','a') },
                'nsk','bbaza',
                sub { rec('011','a') },
                sub { rec('11') },
        ) 
);
 
marc('500','a',
        lookup(
                sub { rec('302','a') },
                'nsk','bbaza',
                sub { rec('011','a') },
                sub { rec('11') },
        ) 
);
 
marc('504','a',
        lookup(
                sub { rec('320','a') },
                'nsk','bbaza',
                sub { rec('011','a') },
                sub { rec('11') },
        ) 
);

marc('562','a',
        lookup(
                sub { rec('316','a') },
                'nsk','bbaza',
                sub { rec('011','a') },
                sub { rec('11') },
        ) 
);
 

#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


### 534

marc('534','a',
        rec('324')
);


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 ???

# 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
#


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


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_indicators('770', 0, ' ');
marc('770','t',
        rec('430','a'),
);

marc('770','x',
        rec('430','b'),
);

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

marc_indicators('773', 0, ' ');
marc('773','g',
        rec('207','a')
);

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

marc('773','w',
        lookup(
                sub { 
                        join_with('', 
                                uc( config() ),
                                ' P',
                                rec('000')
                        ),
                },
                'ffsf','peri',
                sub { rec('200','a') },
                sub { rec('225','a') },
        )
);

}

marc('852','j',
        join_with(' ',
                rec('990')
        )
);

marc('876','a',
        rec('991','a')
);

marc('992','a',
        join_with(' ; ', 
                rec('992')
        )
);


marc('997','a',
        sort(
                lookup(
                        sub { rec('001') },
                        'nsk','bbaza',
                        sub { rec('011','a') },
                        sub { rec('11') },
                )
        )
);

marc('998','a',
        sort(
                lookup(
                        sub { rec('001') },
                        'nsk','bbaza',
                        sub { first(rec('200','a')) . first(rec('200','e')) },
                        sub { rec('200','a') . rec('200','e') },
                )
        )
);

marc('998','a',
        sort(
                lookup(
                        sub { rec('001') },
                        'nsk','bbaza',
                        sub { first(rec('200','a')) },
                        sub { rec('200','a') },
                )
        )
);

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