--- trunk/conf/normalize/ff-libri.pl 2007/10/12 12:07:35 904 +++ trunk/conf/normalize/ff-libri.pl 2007/10/29 21:59:43 905 @@ -40,7 +40,8 @@ marc_fixed('007',00,'ta'); -### 008 +### 008 - All materials + # što zapisati u polje kad datum nije poznat? if ( rec('994','c') ) { @@ -62,9 +63,34 @@ #) #); +marc_fixed('008','06', 't'); # 06 - Type of date/Publication status +marc_fixed('008','07', + rec('210','d') +); # 07-10 - Date 1 +# marc_fixed('008','11', ' '); # 11-14 - Date 2 +marc_fixed('008','15', + lc ( rec('102') ) +); # 15-17 - Place of publication, production, or execution marc_fixed('008','35', - first( lc(rec('101')) ) + first( lc(rec('101')) ) # 35-37 - Language ); +marc_fixed('008','38', '|'); # 38 - Modified record +marc_fixed('008','39','d'); # 39 - Cataloging source + + +### 008 - Books + + # 18-21 - Illustrations + # 22 - Target audience + # 23 - Form of item + # 24-27 - Nature of contents + # 28 - Government publication + # 29 - Conference publication + # 30 - Festschrift + # 31 - Index + # 32 - Undefined + # 33 - Literary form + # 34 - Biography ### 020 @@ -112,9 +138,7 @@ ); -### 041 - -# indikatori +### 041 - indikatori # # pretpostavke o indikatorima: # @@ -150,7 +174,7 @@ #_debug(0); ### 044 - +## kako dobiti zemlju izdavanja? ### 080 # 675 podpolja b, c, d ... - što s njima ??? @@ -181,7 +205,7 @@ rec('686') ); -### 100 +### 100 indikatori # I1 = 0 ako je pseudonim (ima 700a, nema 700b) @@ -191,6 +215,8 @@ marc_indicators('100', 1, ' '); } +### 100 + marc('100','a', join_with(', ', rec('700', 'a'), @@ -201,8 +227,8 @@ ### 111 i 110 # provjeriti ispise naslova iz svake baze - moguće su greške. -# ovo vrijedi za FFSFB +# ovo vrijedi za FFSFB if ( rec('710','d') || rec('710','e') || rec('710','f') ) { marc_indicators('111', 2, ' '); @@ -256,13 +282,11 @@ } -### 245 +### 245 indikatori +# treba nadopuniti i dati podatke na verifikaciju knjižničarima -# indikatori -# # i1 = 0 za anonimne publikacije, i1 = 1 ako postoji 700 ili 710 # i2 = pretpostavlja se na temelju člana na početku naslova i jezika -# treba nadopuniti i dati podatke na verifikaciju knjižničarima my $i1; @@ -290,6 +314,7 @@ marc_indicators('245', $i1, 2); } +### 245 # podpolja i interpunkcije pripremljeni u modify #_debug(3); @@ -390,9 +415,6 @@ #); - - - ### 250 # zapisima koji nemaju potpolje, dodaje se ^a u modify - provjeriti @@ -405,8 +427,6 @@ 'b', rec('205','f'), ); - - ### 260 # ponovljiva potpolja u originalnom redosljedu @@ -451,8 +471,8 @@ # brojčani podaci za nakladničku cjelinu # ??? -### 440 -# 2.ind. prema jeziku i članu +### 440 - indikatori +# 2.ind. prema jeziku i članu, provjeriri marc_indicators('440', ' ', '0'); @@ -472,8 +492,9 @@ #_debug(3); -marc_original_order('440','225'); +### 440 +marc_original_order('440','225'); #marc_compose('440', # 'a', suffix(