1 |
|
# Leader |
2 |
|
|
3 |
|
if ( rec('999') && first(rec('999')) =~ m/pregledan/i) { |
4 |
|
marc_leader('05','c'); |
5 |
|
} else { |
6 |
|
marc_leader('05','n'); |
7 |
|
} |
8 |
|
|
9 |
|
marc_leader('06','a'); |
10 |
|
|
11 |
|
marc_leader('07','m'); |
12 |
|
|
13 |
|
marc_leader('18','i'); |
14 |
|
|
15 |
|
if ( rec('230') ) { |
16 |
|
marc_leader('19','r'); |
17 |
|
} |
18 |
|
|
19 |
|
|
20 |
|
|
21 |
|
# greška! - 000 se ne zapisuje u marc: |
22 |
|
|
23 |
marc('001', |
marc('001', |
24 |
rec('000') |
rec('000') |
25 |
); |
); |
61 |
rec('205','a') |
rec('205','a') |
62 |
); |
); |
63 |
|
|
|
_debug( 2 ); |
|
|
warn "210a: ",dump( first(rec('210','a' )) ); |
|
|
|
|
64 |
marc_compose('260', |
marc_compose('260', |
65 |
'a', split_rec_on('210','a', qr/\s*;\s*/, 1), |
'a', split_rec_on('210','a', qr/\s*;\s*/, 1), |
66 |
'b', first(rec('210','c')), |
'b', first(rec('210','c')), |
68 |
'c', first(rec('210','d')), |
'c', first(rec('210','d')), |
69 |
); |
); |
70 |
|
|
|
|
|
|
_debug( 0 ); |
|
|
|
|
71 |
marc('300','a', |
marc('300','a', |
72 |
rec('215','a') |
rec('215','a') |
73 |
); |
); |
100 |
); |
); |
101 |
|
|
102 |
marc('490','v', |
marc('490','v', |
103 |
rec('225','v') |
join_with(', ', |
104 |
|
rec('225','v'), |
105 |
|
rec('225','w') |
106 |
|
) |
107 |
); |
); |
108 |
|
|
109 |
marc('500','a', |
marc('500','a', |
193 |
rec('710','a') |
rec('710','a') |
194 |
); |
); |
195 |
|
|
196 |
|
marc('111','c', |
197 |
|
rec('710','e') |
198 |
|
); |
199 |
|
|
200 |
|
marc('111','d', |
201 |
|
rec('710','f') |
202 |
|
); |
203 |
|
|
204 |
marc('111','e', |
marc('111','e', |
205 |
rec('710','b') |
rec('710','b') |
206 |
); |
); |
209 |
rec('710','d') |
rec('710','d') |
210 |
); |
); |
211 |
|
|
|
marc('111','c', |
|
|
rec('710','e') |
|
|
); |
|
|
|
|
|
marc('111','d', |
|
|
rec('710','f') |
|
|
); |
|
212 |
|
|
213 |
} else { |
} else { |
214 |
|
|
227 |
|
|
228 |
if ( rec('230') ) { |
if ( rec('230') ) { |
229 |
|
|
230 |
|
marc_duplicate(); |
231 |
|
|
232 |
|
marc_remove('245'); |
233 |
|
|
234 |
marc('245','a', |
marc('245','a', |
235 |
rec('230','a') |
rec('230','a') |
236 |
); |
); |
248 |
); |
); |
249 |
|
|
250 |
} |
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|