32 |
|
|
33 |
### 001 - Voyager |
### 001 - Voyager |
34 |
|
|
35 |
### Pojasniti upotrebu polja 006 |
### 003 |
36 |
|
# Pojasniti upotrebu polja |
37 |
|
|
38 |
### 007 |
### 007 |
39 |
### pojasniti upotrebu polja |
# pojasniti upotrebu polja |
40 |
|
|
41 |
marc_fixed('007',00,'ta'); |
marc_fixed('007',00,'ta'); |
42 |
|
|
43 |
### 008 |
### 008 |
44 |
|
# što zapisati u polje kad datum nije poznat? |
45 |
|
|
46 |
if ( rec('994','c') ) { |
if ( rec('994','c') ) { |
47 |
marc_fixed('008','00', |
marc_fixed('008','00', |
62 |
#) |
#) |
63 |
#); |
#); |
64 |
|
|
|
|
|
65 |
marc_fixed('008','35', |
marc_fixed('008','35', |
66 |
first( lc(rec('101')) ) |
first( lc(rec('101')) ) |
67 |
); |
); |
79 |
|
|
80 |
### 035$6 |
### 035$6 |
81 |
# Privemeno koristimo 035$6 umjesto 035$9, zato što marclint prijavljuje 9 kao grešku. |
# Privemeno koristimo 035$6 umjesto 035$9, zato što marclint prijavljuje 9 kao grešku. |
82 |
# marc 035a - System Number - NSK zapisuje Voyagerov ID (001) |
# marc 035a - System Number - Voyagerov ID (001) |
83 |
# kako mora izgledati polje 035$9? može li sadržavati slova i razmake? |
# polje 035$9 može sadržavati slova i razmake |
84 |
|
|
85 |
marc('035','6', |
marc('035','6', |
86 |
join_with('', |
join_with('', |
95 |
) |
) |
96 |
); |
); |
97 |
|
|
|
|
|
|
|
|
98 |
### 040 |
### 040 |
99 |
# za sve je isti |
# za sve je isti |
100 |
# treba utvrditi točnu oznaku za ustanovu |
# treba utvrditi točnu oznaku za ustanovu |
112 |
); |
); |
113 |
|
|
114 |
|
|
115 |
### 041 indikatori |
### 041 |
116 |
|
|
117 |
|
# indikatori |
118 |
|
# |
119 |
# pretpostavke o indikatorima: |
# pretpostavke o indikatorima: |
120 |
# |
# |
121 |
# 1. Ako postoji polje 300 i ono sadrži /Prijevod/ ili /Izv. stv. nasl./, i1 = 1 |
# 1. Ako postoji polje 300 i ono sadrži /Prijevod/ ili /Izv. stv. nasl./, i1 = 1 |
142 |
# ponovljivo polje konvertira se u ponovljivo potpolje |
# ponovljivo polje konvertira se u ponovljivo potpolje |
143 |
|
|
144 |
#_debug(2); |
#_debug(2); |
145 |
|
|
146 |
marc_repeatable_subfield('041','a', |
marc_repeatable_subfield('041','a', |
147 |
rec('101') |
rec('101') |
148 |
); |
); |
149 |
|
|
150 |
#_debug(0); |
#_debug(0); |
151 |
|
|
152 |
### 044 |
### 044 |
174 |
|
|
175 |
### 084 - other classification (R) |
### 084 - other classification (R) |
176 |
# NSK ga koristi za stručnu oznaku NSK iz polja 681 |
# NSK ga koristi za stručnu oznaku NSK iz polja 681 |
177 |
# NSK definira i prelazak polja 686 u 084, u skladu s LOC konv. tablicom |
# NSK konvertira polje 686 u 084, u skladu s LOC konv. tablicom |
178 |
# polje 686 koristi FFPS |
# polje 686 koristi FFPS. još netko? |
|
|
|
179 |
|
|
180 |
marc('084','a', |
marc('084','a', |
181 |
rec('686') |
rec('686') |
182 |
); |
); |
183 |
|
|
184 |
### 100 |
### 100 |
185 |
|
|
186 |
# I1 = 0 ako je pseudonim (ima 700a, nema 700b) |
# I1 = 0 ako je pseudonim (ima 700a, nema 700b) |
187 |
|
|
188 |
if ( rec('700','a') && ! rec('700','b') ) { |
if ( rec('700','a') && ! rec('700','b') ) { |
246 |
marc('110','b', |
marc('110','b', |
247 |
rec('710','b') |
rec('710','b') |
248 |
); |
); |
249 |
if ( rec('710','c') ) { |
|
250 |
marc('110','c', |
if ( rec('710','c') ) { |
251 |
surround('(', ')', rec('710','c')) |
marc('110','c', |
252 |
); |
surround('(', ')', rec('710','c')) |
253 |
} |
); |
254 |
|
} |
255 |
|
|
256 |
} |
} |
257 |
|
|
258 |
|
|
259 |
### 245 indikatori |
### 245 |
260 |
|
|
261 |
|
# indikatori |
262 |
|
# |
263 |
# i1 = 0 za anonimne publikacije, i1 = 1 ako postoji 700 ili 710 |
# i1 = 0 za anonimne publikacije, i1 = 1 ako postoji 700 ili 710 |
264 |
# i2 = pretpostavlja se na temelju člana na početku naslova i jezika |
# i2 = pretpostavlja se na temelju člana na početku naslova i jezika |
265 |
# treba nadopuniti i dati podatke na verifikaciju knjižničarima |
# treba nadopuniti i dati podatke na verifikaciju knjižničarima |
290 |
marc_indicators('245', $i1, 2); |
marc_indicators('245', $i1, 2); |
291 |
} |
} |
292 |
|
|
|
### 245 |
|
293 |
# podpolja i interpunkcije pripremljeni u modify |
# podpolja i interpunkcije pripremljeni u modify |
294 |
|
|
295 |
#_debug(3); |
#_debug(3); |
383 |
# ), |
# ), |
384 |
# ), |
# ), |
385 |
# 'c', rec('200','f'), |
# 'c', rec('200','f'), |
386 |
### append to last subfield |
## append to last subfield |
387 |
# '+', prefix('. ', |
# '+', prefix('. ', |
388 |
# rec('200','c') |
# rec('200','c') |
389 |
# ), |
# ), |
394 |
|
|
395 |
|
|
396 |
### 250 |
### 250 |
397 |
## zapisima koji nemaju potpolje, dodaje se ^a u modify - provjeriti |
# zapisima koji nemaju potpolje, dodaje se ^a u modify - provjeriti |
398 |
|
|
399 |
marc_compose('250', |
marc_compose('250', |
400 |
'a',suffix( |
'a',suffix( |
449 |
|
|
450 |
### 362 |
### 362 |
451 |
# brojčani podaci za nakladničku cjelinu |
# brojčani podaci za nakladničku cjelinu |
452 |
|
# ??? |
453 |
|
|
454 |
### 440 |
### 440 |
455 |
# 2.ind. prema jeziku i članu |
# 2.ind. prema jeziku i članu |
635 |
# standard i validacije dopuštaju 501 (R) i 505 (R) |
# standard i validacije dopuštaju 501 (R) i 505 (R) |
636 |
|
|
637 |
## 505 |
## 505 |
638 |
## FFPS 327 - sadrzaj |
# FFPS 327 - sadrzaj |
639 |
|
|
640 |
if ( config() =~ m/ffps/ || config() =~ m/fftu/ ) { |
if ( config() =~ m/ffps/ || config() =~ m/fftu/ ) { |
641 |
marc_indicators('505', '0', ' '); |
marc_indicators('505', '0', ' '); |
656 |
} |
} |
657 |
|
|
658 |
|
|
|
|
|
|
## napomene uz konverziju polja 330: |
|
659 |
# NSK konvertira 330 (P) u 520 (P) = LOC konv. tablica |
# NSK konvertira 330 (P) u 520 (P) = LOC konv. tablica |
660 |
|
|
661 |
|
|
662 |
### 520 |
### 520 |
663 |
# možda i polje 520y - jezik napomene ako je uvijek isti jezik |
# možda i polje 520y - jezik napomene ako je uvijek isti jezik? |
664 |
|
|
665 |
# FFPS 330 (NP) - sažetak |
# FFPS 330 (NP) - sažetak |
666 |
if ( config() =~ m/ffps/ ) { |
if ( config() =~ m/ffps/ ) { |
672 |
} |
} |
673 |
|
|
674 |
### 526 - STUDY PROGRAM INFORMATION NOTE |
### 526 - STUDY PROGRAM INFORMATION NOTE |
675 |
|
# provjeriti za svaku bazu sta je tocno u 996? |
676 |
|
|
677 |
marc_indicators('526', 8, ' '); |
marc_indicators('526', 8, ' '); |
678 |
|
|
782 |
) |
) |
783 |
); |
); |
784 |
|
|
|
## 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') |
|
|
# ); |
|
|
|
|
785 |
#_debug(0); |
#_debug(0); |
786 |
|
|
787 |
|
|
|
|
|
|
|
|
788 |
### 740 |
### 740 |
789 |
|
|
790 |
marc_indicators('740', 0, ' '); |
marc_indicators('740', 0, ' '); |
806 |
|
|
807 |
# }; |
# }; |
808 |
|
|
809 |
### generiranje zapisa o nakladničkoj cjelini i povezivanje podređenog zapisa s nadređenim |
# generiranje zapisa o nakladničkoj cjelini i povezivanje podređenog zapisa s nadređenim |
810 |
|
|
811 |
if ( |
if ( |
812 |
rec('225','a') # da li je nakladnička cjelina? |
rec('225','a') # da li je nakladnička cjelina? |
871 |
# |
# |
872 |
|
|
873 |
|
|
874 |
## 852 - lokacija |
### 852 - lokacija |
875 |
|
|
876 |
marc_indicators('852', 4, ' '); |
marc_indicators('852', 4, ' '); |
877 |
|
|
881 |
) |
) |
882 |
); |
); |
883 |
|
|
884 |
## 876 - item information - basic bibliographic unit |
### 876 - item information - basic bibliographic unit |
885 |
|
|
886 |
marc('876','a', |
marc('876','a', |
887 |
rec('991'), |
rec('991'), |
888 |
); |
); |
889 |
|
|
890 |
## 886 - former marc |
### 886 - former marc |
891 |
|
|
892 |
marc_indicators('886', 2, ' '); |
marc_indicators('886', 2, ' '); |
893 |
|
|