25 |
|
|
26 |
# 001 polje - Voyager |
# 001 polje - Voyager |
27 |
|
|
|
# polje 035 je u NSK ponovljivo. zašto ??? |
|
|
|
|
28 |
# privemeno koristimo 0356 umjesto 0359, zato što marclint 9 prijavljuje kao grešku |
# privemeno koristimo 0356 umjesto 0359, zato što marclint 9 prijavljuje kao grešku |
29 |
|
|
30 |
marc('035','6', |
marc('035','6', |
31 |
join_with('', |
join_with('', |
32 |
# config('input normalize path'), |
# config('input normalize path'), |
33 |
# config('name'), |
# config('name'), |
|
# config('input name'), |
|
34 |
config(), |
config(), |
35 |
|
'L', |
36 |
|
# config('input name'), |
37 |
# id(), |
# id(), |
38 |
# rec('994','a'), |
# rec('994','a'), |
39 |
rec('000') |
rec('000') |
60 |
'hrv' |
'hrv' |
61 |
); |
); |
62 |
|
|
63 |
if (rec('300') && first(rec('300')) =~ m/prijevod/i) { |
marc('040','e', |
64 |
|
'HR PPIAK' |
65 |
|
); |
66 |
|
|
67 |
|
if (rec('300') && first(rec('300')) =~ m/Prijevod/) { |
68 |
marc_indicators('041', 1, ' '); |
marc_indicators('041', 1, ' '); |
69 |
} else { |
} else { |
70 |
marc_indicators('041', 0, ' '); |
marc_indicators('041', 0, ' '); |
71 |
} |
} |
72 |
|
|
73 |
|
## naci primjer u NSK |
74 |
|
|
75 |
marc_repeatable_subfield('041','a', |
marc_repeatable_subfield('041','a', |
76 |
rec('101') |
rec('101') |
77 |
); |
); |
78 |
|
|
79 |
|
|
80 |
## pitati dobricu |
if ( ( rec('200','a') =~ m/^Die /) || |
81 |
|
( rec('200','a') =~ m/^Das /) || |
82 |
if ( rec('200') && first(rec('200')) =~ m/Die /i) { |
( rec('200','a') =~ m/^The /) ) { |
83 |
marc_indicators('245', 0, 4); |
marc_indicators('245', 0, 4); |
84 |
} else { |
} else { |
85 |
marc_indicators('245', 0, 0); |
marc_indicators('245', 0, 0); |
86 |
} |
} |
148 |
|
|
149 |
|
|
150 |
# provjeriti interpunkcije !! |
# provjeriti interpunkcije !! |
151 |
|
# u NSK nesto ne stima |
152 |
|
|
153 |
marc('300','a', |
marc('300','a', |
154 |
suffix( |
suffix( |
155 |
rec('215','c') ? ' : ' : |
rec('215','c') ? ' : ' : |
162 |
|
|
163 |
marc('300','b', |
marc('300','b', |
164 |
suffix( |
suffix( |
165 |
( rec('215','c') && rec('215','d') ) ? ' : ' : |
( rec('215','c') && rec('215','d') ) ? ' ; ' : |
166 |
( rec('215','c') && rec('215','e') ) ? ' + ' : |
( rec('215','c') && rec('215','e') ) ? ' + ' : |
167 |
' ', |
' ', |
168 |
rec('215','c') |
rec('215','c') |
182 |
); |
); |
183 |
|
|
184 |
|
|
185 |
|
# provjeriti |
186 |
|
|
187 |
marc_indicators('490', 0, ' '); |
marc_indicators('490', 0, ' '); |
188 |
|
|
189 |
marc('490','a', |
marc('490','a', |
190 |
rec('225','a') |
rec('225','a') |
191 |
); |
); |
192 |
|
|
193 |
|
marc('490','v', |
194 |
|
join_with(', ', |
195 |
|
rec('225','v'), |
196 |
|
rec('225','w') |
197 |
|
), |
198 |
|
); |
199 |
|
|
200 |
|
marc('490','x', |
201 |
|
rec('225','x') |
202 |
|
); |
203 |
|
|
204 |
#marc('490','a', |
#marc('490','a', |
205 |
# join_with(' : ', |
# join_with(' : ', |
206 |
# rec('225','a'), |
# rec('225','a'), |
234 |
rec('320') |
rec('320') |
235 |
); |
); |
236 |
|
|
237 |
# napomene uz konverziju polja sa sadržajem: |
## napomene uz konverziju polja 327 (sadrzaj): |
238 |
# NSK konvertira 327 (NP) u 501 (R) |
# NSK konvertira 327 (NP) u 501 (R) |
239 |
# u LOC konv. tablici stoji 327 (NP) u 505 (NR) |
# u LOC konv. tablici stoji 327 (NP) u 505 (NR) |
240 |
# standard i validacije dopuštaju 501 (R) i 505 (R) |
# standard i validacije dopuštaju 501 (R) i 505 (R) |
|
# FFPS koristi 327 (P) |
|
|
# FFIZ koristi 327 |
|
|
|
|
241 |
|
|
242 |
marc_indicators('505', '0', ' '); |
## FFPS 327 - sadrzaj |
243 |
|
if ( config() =~ m/ffps/ || config() =~ m/fftu/ ) { |
244 |
marc('505','a', |
marc_indicators('505', '1', ' '); |
245 |
regex('s/\s*[\\r\\n]+\s*\**\s*/ ; /g', |
marc('505','a', |
246 |
rec('327') |
regex('s/\s*[\\r\\n]+\s*\**\s*/ ; /g', |
247 |
) |
rec('327') |
248 |
|
) |
249 |
); |
); |
250 |
|
} |
251 |
|
|
252 |
# napomene uz konverziju polja 330: |
|
253 |
|
## napomene uz konverziju polja 330: |
254 |
# NSK konvertira 330 (P) u 520 (P) = LOC konv. tablica |
# NSK konvertira 330 (P) u 520 (P) = LOC konv. tablica |
255 |
|
|
|
# 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 |
|
256 |
|
|
257 |
if ( config() =~ m/ffan/i || config() =~ m/fflo/i ) { |
# FFPS 330 (NP) - sažetak |
258 |
|
if ( config() =~ m/ffps/ ) { |
259 |
|
marc('520','a', |
260 |
|
regex('s/[\\r\\n]+/. /g', |
261 |
|
rec('330') |
262 |
|
) |
263 |
|
); |
264 |
|
} |
265 |
|
|
266 |
marc('520','a', |
# FFTU 330 - ??? |
267 |
regex('s/[\\r\\n]+/. /g', |
if ( config() =~ m/fftu/ ) { |
268 |
|
marc('520','a', |
269 |
rec('330') |
rec('330') |
270 |
) |
); |
|
); |
|
|
|
|
271 |
} |
} |
272 |
|
|
273 |
|
|
274 |
# možda i polje 520y - jezik napomene ako je uvijek isti jezik |
# možda i polje 520y - jezik napomene ako je uvijek isti jezik |
275 |
|
|
276 |
|
marc_indicators('246', 1, 3); |
277 |
|
marc('246','a', |
278 |
|
rec('532') |
279 |
|
); |
280 |
|
|
281 |
marc_indicators('655', ' ', 4); |
marc_indicators('655', ' ', 4); |
282 |
marc('655','a', |
marc('655','a', |
283 |
rec('608') |
rec('608') |
284 |
); |
); |
285 |
|
|
286 |
marc_indicators('653', ' ', ' '); |
marc_indicators('653', 0, ' '); |
287 |
marc('653','a', |
marc('653','a', |
288 |
rec('610') |
rec('610') |
289 |
); |
); |
323 |
} |
} |
324 |
|
|
325 |
marc('700','a', |
marc('700','a', |
326 |
rec('701', 'a'), |
join_with(', ', |
327 |
|
rec('701', 'a'), |
328 |
|
rec('701', 'b') |
329 |
|
) |
330 |
); |
); |
331 |
|
|
332 |
marc('700','a', |
marc('700','a', |
356 |
); |
); |
357 |
|
|
358 |
|
|
359 |
# ako je u originalu ponovljivo polje treba biti i konvertirano!! |
# ako je u originalu ponovljivo polje treba biti i konvertirano u ponovljivo !! |
360 |
|
|
361 |
|
|
362 |
marc('700','a', |
marc('700','a', |
380 |
) |
) |
381 |
); |
); |
382 |
|
|
383 |
## 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? |
## 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? |
384 |
# |
|
385 |
|
|
386 |
# marc('700','a', |
# marc('700','a', |
387 |
# rec('330','a') |
# rec('330','a') |
388 |
# ); |
# ); |
473 |
|
|
474 |
if ( rec('230') ) { |
if ( rec('230') ) { |
475 |
|
|
|
marc('900','a', |
|
|
id() |
|
|
); |
|
|
|
|
476 |
marc_duplicate(); |
marc_duplicate(); |
477 |
|
|
478 |
marc_remove('035'); |
marc_remove('035'); |
480 |
join_with('', |
join_with('', |
481 |
config(), |
config(), |
482 |
rec('000'), |
rec('000'), |
483 |
|
'-', |
484 |
id(), |
id(), |
485 |
) |
) |
486 |
); |
); |
545 |
} |
} |
546 |
|
|
547 |
marc_remove('260'); |
marc_remove('260'); |
548 |
|
|
549 |
|
# marc_original_order('260', '250'); |
550 |
|
|
551 |
marc('260','c', |
marc('260','c', |
552 |
rec('250') |
rec1('251') |
553 |
); |
); |
554 |
|
|
555 |
|
|
556 |
|
# marc('260','a', |
557 |
|
# rec('251','a') |
558 |
|
# ); |
559 |
|
# marc('260','b', |
560 |
|
# rec('251','c') |
561 |
|
# ); |
562 |
|
# marc('260','c', |
563 |
|
# rec('251','d'), |
564 |
|
# rec1('251') |
565 |
|
# ); |
566 |
|
|
567 |
marc_remove('300'); |
marc_remove('300'); |
568 |
marc('300','a', |
marc('300','a', |
569 |
rec('260') |
rec('260') |