15 |
} |
} |
16 |
|
|
17 |
marc_leader('06','a'); |
marc_leader('06','a'); |
18 |
marc_leader('07','m'); |
marc_leader('07','s'); |
19 |
marc_leader('18','i'); |
marc_leader('18','i'); |
20 |
|
|
|
if ( rec('230') ) { |
|
21 |
marc_leader('19','r'); |
marc_leader('19','r'); |
|
} |
|
22 |
|
|
23 |
|
|
24 |
# 001 polje - Voyager |
# 001 polje - Voyager |
102 |
'h', rec('200','b'), |
'h', rec('200','b'), |
103 |
'b', suffix( |
'b', suffix( |
104 |
( rec('200','k') && rec('200','f') ) ? ' / ' : |
( rec('200','k') && rec('200','f') ) ? ' / ' : |
105 |
' ', |
' ', |
106 |
join_with(' ; ', |
join_with(' ; ', |
107 |
rec('200','k'), |
rec('200','k'), |
108 |
), |
), |
127 |
), |
), |
128 |
# FIXME append to last subfield |
# FIXME append to last subfield |
129 |
# '+', prefix('. ', rec('200','c') ), |
# '+', prefix('. ', rec('200','c') ), |
130 |
|
|
131 |
); |
); |
132 |
|
|
133 |
|
|
155 |
|
|
156 |
marc('300','a', |
marc('300','a', |
157 |
suffix( |
suffix( |
158 |
rec('215','c') ? ' : ' : |
rec('215','c') ? ' : ' : |
159 |
rec('215','d') ? ' ; ' : |
rec('215','d') ? ' ; ' : |
160 |
rec('215','e') ? ' + ' : |
rec('215','e') ? ' + ' : |
161 |
' ', |
' ', |
162 |
rec('215','a') |
rec('215','a') |
163 |
) |
) |
164 |
); |
); |
165 |
|
|
166 |
marc('300','b', |
marc('300','b', |
167 |
suffix( |
suffix( |
168 |
( rec('215','c') && rec('215','d') ) ? ' ; ' : |
( rec('215','c') && rec('215','d') ) ? ' ; ' : |
169 |
( rec('215','c') && rec('215','e') ) ? ' + ' : |
( rec('215','c') && rec('215','e') ) ? ' + ' : |
170 |
' ', |
' ', |
171 |
rec('215','c') |
rec('215','c') |
172 |
) |
) |
173 |
); |
); |
383 |
) |
) |
384 |
); |
); |
385 |
|
|
|
## 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? |
|
|
|
|
|
|
|
|
# marc('700','a', |
|
|
# rec('330','a') |
|
|
# ); |
|
|
# |
|
|
# |
|
|
# marc('700','a', |
|
|
# rec('330','b') |
|
|
# ); |
|
|
# |
|
|
# marc('700','a', |
|
|
# rec('330','c') |
|
|
# ); |
|
|
# |
|
|
# |
|
|
# marc('700','a', |
|
|
# rec('330','d') |
|
|
# ); |
|
|
# |
|
|
# marc('700','a', |
|
|
# rec('330','e') |
|
|
# ); |
|
|
# |
|
|
# marc('700','a', |
|
|
# rec('330','f') |
|
|
# ); |
|
386 |
|
|
387 |
#_debug(0); |
#_debug(0); |
388 |
|
|
445 |
marc('500','a', |
marc('500','a', |
446 |
lookup( |
lookup( |
447 |
sub { rec('304','a') }, |
sub { rec('304','a') }, |
448 |
'ffps','baza', |
'nsk','baza', |
449 |
sub { rec('200','a') }, |
sub { rec('200','a') }, |
450 |
) |
) |
451 |
); |
); |
452 |
|
|
453 |
|
marc('500','a', |
454 |
|
lookup( |
455 |
|
sub { rec('306','a') }, |
456 |
|
'nsk','baza', |
457 |
|
sub { rec('200','a') }, |
458 |
|
) |
459 |
|
); |
460 |
|
|
461 |
|
marc('500','a', |
462 |
|
lookup( |
463 |
|
sub { rec('314','a') }, |
464 |
|
'nsk','baza', |
465 |
|
sub { rec('200','a') }, |
466 |
|
) |
467 |
|
); |
468 |
|
|
469 |
|
marc('500','a', |
470 |
|
lookup( |
471 |
|
sub { rec('316','a') }, |
472 |
|
'nsk','baza', |
473 |
|
sub { rec('200','a') }, |
474 |
|
) |
475 |
|
); |
476 |
|
|
477 |
|
marc('504','a', |
478 |
|
lookup( |
479 |
|
sub { rec('320','a') }, |
480 |
|
'nsk','baza', |
481 |
|
sub { rec('200','a') }, |
482 |
|
) |
483 |
|
); |
484 |
|
|
485 |
|
marc('900','a', |
486 |
|
sort( |
487 |
|
lookup( |
488 |
|
sub { rec('000') }, |
489 |
|
'ffps','peri', |
490 |
|
sub { rec('200','a') }, |
491 |
|
) |
492 |
|
) |
493 |
|
); |
494 |
|
|
495 |
} |
} |