| 1 |
# Leader |
# Leader |
| 2 |
|
|
| 3 |
if ( rec('999') && first(rec('999')) =~ m/pregledan/i) { |
if ( rec('999') && first(rec('999')) =~ m/pregledan/i) { |
| 4 |
marc_leader('05','c'); |
marc_leader('05','c'); |
| 5 |
} else { |
} else { |
| 16 |
marc_leader('19','r'); |
marc_leader('19','r'); |
| 17 |
} |
} |
| 18 |
|
|
| 19 |
# greška - 000 se ne zapisuje u marc: |
|
| 20 |
|
|
| 21 |
|
# 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', |
| 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 |
|
|
| 224 |
} |
} |
| 225 |
|
|
| 226 |
# zapisi za duplanje |
# zapisi za duplanje |
| 227 |
# |
|
| 228 |
# if ( rec('230') ) { |
if ( rec('230') ) { |
| 229 |
# |
|
| 230 |
# marc('245','a', |
marc_duplicate(); |
| 231 |
# rec('230','a') |
|
| 232 |
# ); |
marc('245','a', |
| 233 |
# |
rec('230','a') |
| 234 |
# marc('245','b', |
); |
| 235 |
# rec('230','e') |
|
| 236 |
# ); |
marc('245','b', |
| 237 |
# |
rec('230','e') |
| 238 |
# marc('245','c', |
); |
| 239 |
# rec('230','f') |
|
| 240 |
# ); |
marc('245','c', |
| 241 |
# |
rec('230','f') |
| 242 |
# marc('245','n', |
); |
| 243 |
# rec('230','v') |
|
| 244 |
# ); |
marc('245','n', |
| 245 |
# |
rec('230','v') |
| 246 |
# } |
); |
| 247 |
|
|
| 248 |
|
} |
Parent Directory
| 
Revision Log
| 
Patch