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','m');
        marc_leader('18','i');

if ( rec('230') ) {
        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')
        )
);

## 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 druge osobe?


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

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


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