1 |
|
if ( rec('200','a') ) { |
2 |
|
|
3 |
# Leader |
# Leader |
4 |
|
# |
5 |
|
# raspraviti 17,18 |
6 |
|
|
7 |
if ( rec('200','a') ) { |
# u nekim knjižnicama koristi se 999a i 999b |
8 |
|
|
9 |
if ( rec('999') && first(rec('999')) =~ m/pregledan/i) { |
if ( rec('999') && first(rec('999')) =~ m/pregledan/i) { |
10 |
marc_leader('05','c'); |
marc_leader('05','c'); |
12 |
marc_leader('05','n'); |
marc_leader('05','n'); |
13 |
} |
} |
14 |
|
|
15 |
marc_leader('06','a'); |
marc_leader('06','a'); |
16 |
|
marc_leader('07','m'); |
17 |
marc_leader('07','m'); |
marc_leader('18','i'); |
|
|
|
|
marc_leader('18','i'); |
|
18 |
|
|
19 |
if ( rec('230') ) { |
if ( rec('230') ) { |
20 |
marc_leader('19','r'); |
marc_leader('19','r'); |
25 |
|
|
26 |
# polje 035 je u NSK ponovljivo. zašto ??? |
# polje 035 je u NSK ponovljivo. zašto ??? |
27 |
|
|
28 |
|
# privemeno koristimo 0356 umjesto 0359 |
29 |
|
|
30 |
|
|
31 |
marc('035','6', |
marc('035','6', |
32 |
prefix( |
join_with(' ', |
33 |
|
# config('input normalize path'), |
34 |
|
# config('name'), |
35 |
|
# config('input name'), |
36 |
|
# config(), |
37 |
|
# id(), |
38 |
rec('994','a'), |
rec('994','a'), |
39 |
rec('000') |
rec('000') |
40 |
) |
) |
41 |
); |
); |
42 |
|
|
43 |
|
|
44 |
# u marc 035a treba dodati System Number - |
# u marc 035a treba dodati System Number - |
45 |
# NSK zapisuje Voyagerov ID (001) - kako ??? |
# NSK zapisuje Voyagerov ID (001) - kako ??? |
46 |
|
|
47 |
|
# u FFSF bazama postoji nekoliko zaredanih ISBN, odvojenih s '. - ' |
48 |
|
|
49 |
marc('020','a', |
marc('020','a', |
50 |
rec('010') |
rec('010') |
51 |
); |
); |
52 |
|
|
53 |
# u polje 040a možda još dodati prefiks HR |
# u polje 040a možda još dodati prefiks HR |
54 |
# NSK ima HR NSB (možda u novijim zapisima ima NSK) |
# NSK ima HR NSB (možda u novijim zapisima ima NSK?) |
55 |
|
|
56 |
marc('040','a', |
marc('040','a', |
57 |
rec('801') |
'FFZG' |
58 |
); |
); |
59 |
|
|
60 |
marc('040','b', |
marc('040','b', |
73 |
|
|
74 |
marc_indicators('245', 0, 0); |
marc_indicators('245', 0, 0); |
75 |
|
|
76 |
|
#_debug(3); |
77 |
|
|
78 |
marc_compose('245', |
marc_compose('245', |
79 |
'a', rec('200','a'), |
'a', rec('200','a'), |
80 |
'h', rec('200','b'), |
'h', rec('200','b'), |
90 |
), |
), |
91 |
); |
); |
92 |
|
|
93 |
|
#_debug(0); |
94 |
|
|
95 |
# marc('245','a', |
# marc('245','a', |
96 |
# rec('200','a') |
# rec('200','a') |
97 |
# ); |
# ); |
181 |
|
|
182 |
marc_indicators('505', '0', ' '); |
marc_indicators('505', '0', ' '); |
183 |
marc('505','a', |
marc('505','a', |
184 |
regex('s/\\r\\n\\r\\n|\\r\\n/ ; /g', |
regex('s/\s*[\\r\\n]+\s*\**\s*/ ; /g', |
185 |
rec('327') |
rec('327') |
186 |
) |
) |
187 |
); |
); |
193 |
# FFPS koristi 330 (NP) - sažetak |
# FFPS koristi 330 (NP) - sažetak |
194 |
|
|
195 |
marc('520','a', |
marc('520','a', |
196 |
regex('s/\\r\\n\\r\\n|\\r\\n/. /g', |
regex('s/[\\r\\n]+/. /g', |
197 |
rec('330') |
rec('330') |
198 |
) |
) |
199 |
); |
); |
344 |
marc_duplicate(); |
marc_duplicate(); |
345 |
|
|
346 |
marc_remove('245'); |
marc_remove('245'); |
347 |
|
marc_remove('035','6'); |
348 |
|
|
349 |
marc('245','a', |
marc('245','a', |
350 |
rec('230','a') |
rec('230','a') |