1 |
# Leader |
# 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 |
|
|
|
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'); |
|
19 |
|
|
|
if ( rec('230') ) { |
|
|
marc_leader('19','r'); |
|
|
} |
|
20 |
|
|
21 |
# greška - 000 se ne zapisuje u marc: |
# greška! - 000 se ne zapisuje u marc: |
22 |
|
|
23 |
marc('001', |
marc('001', |
24 |
rec('000') |
rec('000') |
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', |