--- trunk/conf/normalize/ff-libri.pl 2007/02/04 12:37:42 795 +++ trunk/conf/normalize/ff-libri.pl 2008/08/04 19:35:05 1102 @@ -1,135 +1,326 @@ -################################################################################## -## Ova datoteka sadrži pravila za generiranje MARC21 ISO 2709 izlazne datoteke. ## -## Ulazni format je CDS/ISIS sa zapisima u UNIMARC-u. ## -################################################################################## +# Ova datoteka sadrži pravila za generiranje MARC21 ISO 2709 izlazne +# datoteke. Ulazni format je CDS/ISIS izvorni format, sa zapisima u +# UNIMARC formatu, sa višestrukim odstupanjima od standarda. -# konvertira se ako postoji polje 200^a + +## konvertira se ako postoji polje 200^a if ( rec('200','a') ) { ### LEADER -# raspraviti 17,18 -# u nekim knjižnicama koristi se 999a i 999b, a u nekima samo 999 -if ( rec('999') && first(rec('999')) =~ m/(pregledan|P)/i) { +## LDR 05 - c = pregledan ; n = new +## 999^aP - SFM + +if ( rec('999','a') && rec('999','a') =~ m/(pregledan|P)/i) { marc_leader('05','c'); } else { marc_leader('05','n'); } +## LDR 06 - a - language material + marc_leader('06','a'); + +## LDR 07 - m - Monograph/item + marc_leader('07','m'); + +## LDR 17 + marc_leader('17','7'); + +## LDR 18 marc_leader('18','i'); -if ( rec('230') ) { - marc_leader('19','r'); +## LDR 19 - razjasniti +# nema više r, ima #, a, b ili c + +if ( rec('230') | rec('231') | rec('232') | rec('233') ) { + marc_leader('19','a'); } -### 001 - Voyager +### 001 - Voyager ID -### 008 +### 003 - razjasniti -### 035$6 -# Privemeno koristimo 035$6 umjesto 035$9, zato što marclint prijavljuje 9 kao grešku. -# marc 035a - System Number - NSK zapisuje Voyagerov ID (001) - kako? -# kako mora izgledati polje 035$9? može li sadržavati slova i razmake? - - -marc('035','6', -join_with(' ', -# config('input normalize path'), -# config('name'), - config(), - 'L', -# config('input name'), -# id(), -# rec('994','a'), - rec('000') - ) +### 007 - razjasniti + +marc_fixed('007',00,'ta'); + +### 008 - All materials +## dodati sve moguce slucajeve za datum, popuniti ono sto nedostaje + +if ( rec('994','c') =~ m/\d{8}/ ) { + marc_fixed('008','00', + regex('s/^\d\d//', + rec('994','c') + ), + ); +} elsif ( rec('994','c') =~ m/\d{6}/ ) { + marc_fixed('008', 00, + '000000' + ); + marc_fixed('008', '04', + '01' + ); +} elsif ( rec('994','c') =~ m/\d{4}/ ) { + marc_fixed('008', 00, + regex('s/^\d\d//', + rec('994','c') + ), + ); + marc_fixed('008', '02', + '0101' + ); +} + +#warn( dump( +# regex('s/^\d\d//', +# rec('994','c') +# ), +#) +#); + +## 008 06 - Type of date/Publication status +## dodati i ostale mogućnosti +## 008 07-10 - Date 1 - iz 210d koji kroz modify postaje 210c + +my $year = rec('210','c'); + +if ( rec('210','c') ) { + marc_fixed('008','06','s'); # 06 - Type of date/Publication status, s = single know date + +# warn "## year = $year"; + + if ( $year =~ m/^(\d{4})/ ) { +# warn "## $1 ##\n"; + marc_fixed('008','07',$1); # 07-10 - Date 1 + +} else { + marc_fixed('008','06','n'); # 06 - n = unknown date + marc_fixed('008','07','uuuu'); +} +} + + +## 008 11-14 - Date 2 + +## 008 15-17 - Place of publication, production, or execution - što ako nema 102? +## raspraviti + +#marc_fixed('008','15', +# lc ( rec('102') ) +#); + +my $zemlja = + lookup( + sub { rec('B') }, + 'kodovi','zemlje', + sub { rec('A') }, + sub { + regex('s/[\s;:]/g', + rec('210','a') + ) + }, + ); + +warn ( + dump ($zemlja) ); +if ( $year =~ m/^(\d{4})/ ) { + if ( $1 >= 1990 ) { + marc_fixed('008','15', + lc ( $zemlja ) + + ); +# } elsif ( dump( $zemlja ) eq 'hr' ) { +# marc_fixed('008','15','yu'); + } +} + + +## 008 35-37 - Language + +marc_fixed('008','35', + # first( lc(rec('101')) ) + lc( frec('101')) +); + +## 008 38 - Modified record - razjasniti +marc_fixed('008','38','|'); + +## 008 39 - Cataloging source - d (other) + +marc_fixed('008','39','d'); + +### 008 - Books - raspraviti upotrebu ovih polja +## 008 18-21 - Illustrations +if ( rec('215','c') && rec('215','c') =~ m/ilustr/ ) { + marc_fixed('008','18','a') +} + +## 008 22 - Target audience +marc_fixed('008','22','|'); + +## 008 23 - Form of item + +## 008 24-27 - Nature of contents +marc_fixed('008','24','||||'); + +## 008 28 - Government publication +marc_fixed('008','28','|'); + +## 008 29 - Conference publication +marc_fixed('008','29','|'); + +## 008 30 - Festschrift +marc_fixed('008','30','|'); + +## 008 31 - Index +marc_fixed('008','31','|'); + +## 008 32 - Undefined +## 008 33 - Literary form +marc_fixed('008','33','|'); + +## 008 34 - Biography +marc_fixed('008','34','|'); ### 020 -# postoji modify -> drugi ISBN počinje prefixom "ISBN" koji se miče (sfb) +## modify za polje 10 -> drugi ISBN počinje prefixom "ISBN" koji se miče (pr. u sfb) + +if ( frec('10') ne ( frec('290') ) ) { + marc('020','a', + # isbn_13( + regex('s/\s\s/ /g', + # regex('s/\(\d\)\(/$1 \(//g', + rec('10','a') + ) + # ) + ); +} -marc('020','a', - regex('s/ ISBN //g', - rec('10') +#warn( +# dump( +# frec('10') +# ), +#); + +### 035$ +## Privemeno koristimo 035$6 umjesto 035$9, zato što marclint prijavljuje 9 kao grešku. +## marc 035a - System Number - Voyagerov ID (001) +## polje 035$9 može sadržavati slova i razmake + +marc('035','a', +join_with('', + # config('input normalize path'), + # config('name'), + config(), + ' L', + # config('input name'), + # id(), + # rec('994','a'), + rec('000') ) ); - ### 040 -# za sve je isti +## za sve je isti marc('040','a', - 'HR FFZG' + 'HR-ZaFF' ); marc('040','b', 'hrv' ); -marc('040','e', - 'HR PPIAK' +marc('040','c', + 'HR-ZaFF' ); - -### 041 indikatori -# pretpostavke o indikatorima: -# -# 1. Ako postoji polje 300 i prvo pojavljivanje tog polja sadrži /Prijevod/ , i1 = 1 -# (Da li je napomena uvijek pisana?) -# -# 2. Podatak o prevodiocu u 200g. Problem: različiti oblici riječi, različiti jezici. -# -# 3. Ako u UDK oznaci postoji "=", bez zagrada, onda je to prijevod -# (ako postoje zagrade pr. 94(=411.16) onda su to pomoćne oznake) -# pr. 821.111-2=163.42 je prijevod engleske drame na HR. -# to ima samo za književna djela, eseje.... +marc('040','e', + 'ppiak' +); -if ( rec('675') =~ m/\d=\d/ ) { -#if ( first(rec('300')) =~ m/Prijevod/ || first(rec('300')) =~ m/Izv. stv. nasl./ ) { +### 041 - indikatori +## pretpostavke o indikatorima +## 1. Ako postoji polje 300 i ono sadrži /Prijevod/ ili /Izv. stv. nasl./, i1 = 1 +## (Da li je napomena uvijek pisana?) +## 2. Podatak o prevodiocu u 200g. Problem: različiti oblici riječi, različiti jezici. +## 3. Ako u UDK oznaci postoji "=", bez zagrada, onda je to prijevod +## (ako postoje zagrade pr. 94(=411.16) onda su to pomoćne oznake) +## pr. 821.111-2=163.42 je prijevod engleske drame na HR. +## to ima samo za književna djela, eseje.... +## ???? + +#if ( rec('675') =~ m/\d=\d/ ) ? + +if ( + grep( m/[prijevod|prevedeno|izv.*stv.*nasl|izvornik|nas.*izv*]/i, rec('300') ) || + grep( m/[preve|prijevod]/i, rec('200','f')) || + grep( m/[preve|prijevod]/i, rec('200','g')) +) { marc_indicators('041', 1, ' '); } else { marc_indicators('041', 0, ' '); } - ### 041 -# ponovljivo polje konvertira se u ponovljivo potpolje +## ponovljivo polje (101) konvertira se u ponovljivo potpolje (041a) #_debug(2); + marc_repeatable_subfield('041','a', - rec('101') + map { lc($_) } rec('101') ); + #_debug(0); +### 044 +## kako dobiti zemlju izdavanja? ### 080 -# 675 podpolja c, d ... - što s njima ??? +## 675 podpolja b, c, d ... - što s njima? - provjeriti za svaku bazu marc('080','a', rec('675','a') ); +marc('080','a', + rec('675','b') +); -### 084 - other classification (R) -# NSK ga koristi za stručnu oznaku NSK iz polja 681 -# NSK definira i prelazak polja 686 u 084, u skladu s LOC konv. tablicom -# polje 686 koristi FFPS +marc('080','a', + rec('675','c') +); +marc('080','a', + rec('675','d') +); + + +### 084 - other classification (R) +## NSK ga koristi za stručnu oznaku NSK iz polja 681 +## NSK konvertira polje 686 u 084, u skladu s LOC konv. tablicom +## polje 686 koristi FFPS. još netko? marc('084','a', rec('686') ); -### 100 -# I1 = 0 ako je pseudonim (ima 700a, nema 700b) +### 100 +## I1 = 0 ako je pseudonim (ima 700a, nema 700b) + +if ( rec('700','a') && ! rec('700','b') ) { + marc_indicators('100', 0, ' '); +} else { + marc_indicators('100', 1, ' '); +} -marc_indicators('100', 1, ' '); marc('100','a', join_with(', ', rec('700', 'a'), @@ -137,144 +328,197 @@ ) ); +### formalna odrednica - iz 503 u 110, i1=0, i2=1 ### 111 i 110 -# provjeriti ispise naslova iz svake baze - moguće su greške. +## konverzija u 110 ili 111 ovisno o postojanju/nepostojanju nekih polja - provjeriti ispise naslova iz svake baze - moguće su greške. -if ( rec('710','f') ) { +# ovo vrijedi za FFSFB +if ( rec('710','d') || rec('710','e') || rec('710','f') ) { marc_indicators('111', 2, ' '); -marc('111','a', - rec('710','a') -); -marc('111','c', - rec('710','e') -); - -marc('111','d', - rec('710','f') -); - -marc('111','e', - rec('710','b') -); - -marc('111','n', - rec('710','d') +marc_compose('111', + 'a', suffix( + rec('710','b') ? '.' : + '', + rec('710','a'), + ), + 'e', rec('710','b'), + 'n', prefix( + rec('710','d') ? '(' : + '', + rec('710','d') + ), + 'd', prefix( + ( ! rec('710','d') ) ? '(' : + ( ! rec('710','e') ) ? '(' : + '; ', + rec('710','f'), + ), + 'c', prefix( + ( rec('710','e') && ( rec('710','d') || rec('710','f') ) ) ? '; ' : + ( ! rec('710','d') && ! rec('710','f') ) ? '(' : + '', + rec('710','e'), + ), + '+',')', ); } else { marc_indicators('110', 2, ' '); + marc('110','a', rec('710','a') ); -marc('110','c', - rec('710','c') +marc('110','b', + rec('710','b') ); -}; + if ( rec('710','c') ) { + marc('110','c', + surround('(', ')', rec('710','c')) + ); + } + +} ### 245 indikatori -# i1 = 1 za sve zapise -# i2 = pretpostavlja se na temelju člana na početku naslova i jezika -# treba nadopuniti i dati podatke na verifikaciju knjižničarima +## 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 provjeriti + +my $i1; + +if ( rec('700') || rec('710') ) { + $i1 = 1; + +} else { + $i1 = 0; +} + +marc_indicators('245', $i1, 0); + +if ( rec('200','a') =~ m/^Einen / ) { + marc_indicators('245', $i1, 6); +} + +if ( rec('200','a') =~ m/^Eine / ) { + marc_indicators('245', $i1, 5); +} -marc_indicators('245', 1, 0); +if ( rec('200','a') =~ m/^(Die|Das|Der|Ein|Les|The) / ) { + marc_indicators('245', $i1, 4); +} + +if ( rec('200','a') =~ m/^(Um|Un|An|La|Le|Il) / ) { + marc_indicators('245', $i1, 3); +} -if ( ( rec('200','a') =~ m/^Die /) || - ( rec('200','a') =~ m/^Das /) || - ( rec('200','a') =~ m/^The /) ) { - marc_indicators('245', 1, 4); +if ( rec('200','a') =~ m/^(A|L) / ) { + marc_indicators('245', $i1, 2); } -if ( ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) ) - { - marc_indicators('245', 1, 2); +if ( rec('200','a') =~ m/^L'/ ) { + marc_indicators('245', $i1, 2); } + ### 245 -# redoslijed polja +## potpolja i interpunkcije pripremljeni u modify +## da li treba makivati razmake u inicijalima? #_debug(3); + marc_compose('245', 'a', suffix( - rec('200','b') ? '. ' : - rec('200','k') ? ' ; ' : - rec('200','d') ? ' = ' : - rec('200','e') ? ' : ' : - rec('200','f') ? ' / ' : - '.', - rec('200','a') + ( ! ( rec('200','d') || rec('200','e') || rec('200','k') ) ) && ( rec('200','f') ) ? ' /' : + ( rec('200','d') ) ? ' =' : + ( rec('200','e') ) ? ' :' : + ( rec('200','k') ) ? ' ;' : + '.', + rec('200','a'), ), -# 'h', rec('200','b'), 'b', suffix( - ( rec('200','k') && rec('200','f') ) ? ' / ' : - ' ', - join_with(' ; ', - rec('200','k'), - ), + ( rec('200','d') && rec('200','f') ) ? ' /' : + ( rec('200','d') && rec('200','c') ) ? '.' : + '', + rec('200','d'), ), 'b', suffix( - ( rec('200','d') && rec('200','f') ) ? ' / ' : - ' ', - rec('200','d'), + ( rec('200','e') && rec('200','f') ) ? ' /' : + ( rec('200','e') && rec('200','c') ) ? '.' : + '', + rec('200','e'), ), 'b', suffix( - ( rec('200','e') && rec('200','f') ) ? ' / ' : - ' ', - join_with(' : ', - rec('200','e'), - ), + ( rec('200','k') && rec('200','f') ) ? ' /' : + ( rec('200','k') && rec('200','c') ) ? '.' : + '', + rec('200','k'), ), - - 'c', rec('200','f'), - -# append to last subfield - '+', prefix('. ', - rec('200','c') + 'c', suffix( + ( rec('200','f') && rec('200','c') ) ? '.' : + '', + join_with(' ; ', + regex('s/(\S\.)\s(\S\.\s)/$1$2/g', + rec('200','f'), + ), + regex('s/(\S\.)\s(\S\.\s)/$1$2/g', + rec('200','g') + ) + ) + ), + ## append to last subfield + '+', suffix('.', + rec('200','c'), ), ); - - #_debug(0); +### 246 +## i1=1 ukoliko pravilo nalaze napomenu, ali napomenu necemo pisati ponovo u 500 +## i1=3 ako pravlo na nalze napomenu +## vidi na wiki +## i2 - pogledati za svaku bazu sto su ti naslovi, pa onda oderditi indikatoda oderditi indikatoree + +marc_indicators('246', 3, ' '); +marc('246','a', + rec('532') +); ### 250 +## zapisima koji nemaju potpolje, dodaje se ^a u modify - provjeriti -marc('250','a', - suffix( - rec('205','f') ? ' / ' : - ' '. +marc_compose('250', + 'a',suffix( + rec('205','f') ? ' / ' : + '', rec('205','a') - ) -); - -marc('250','b', - rec('205','f') + ), + 'b', rec('205','f'), ); - ### 260 -# ponovljiva potpolja u originalnom redosljedu +## ponovljiva potpolja u originalnom redosljedu - priprema u modify -marc_original_order('260', '210'); + marc_original_order('260', '210'); ### 300 -# provjeriti interpunkcije !! +## urediti interpunkcije za sve kombinacije marc('300','a', suffix( rec('215','c') ? ' : ' : rec('215','d') ? ' ; ' : rec('215','e') ? ' + ' : - ' ', + '', rec('215','a') ) ); @@ -283,7 +527,7 @@ suffix( ( rec('215','c') && rec('215','d') ) ? ' ; ' : ( rec('215','c') && rec('215','e') ) ? ' + ' : - ' ', + '', rec('215','c') ) ); @@ -291,7 +535,7 @@ marc('300','c', suffix( rec('215','e') ? ' + ' : - ' ', + '.', rec('215','d') ) ); @@ -300,53 +544,262 @@ rec('215','e') ); +### 362 - brojčani podaci za nakladničku cjelinu - razjasniti upotrebu + +# if ( ! rec('225','z') ) { + +# ako je naslov nakladničke cjeline složen, podatak se zapisuje u 490, s pripadajućim 830 + +#if ( frec('225','a') =~ m/[\/=:]/ ) { +# +##_debug(3); +# +#### 490 +### 490: Subfield _p is not allowed. +# +#marc_indicators('490','0',' '); +# +#marc_template( +# from => 225, to => 490, +# subfields_rename => [ +# 'a' => 'a', +# 'x' => 'x', +# 'v' => 'v', +# 'h' => 'n', +# 'i' => 'p', +# 'w' => 'v', +# ], +# isis_template => [ +# 'a', +# 'a ;|v', +# 'a,|x ;|v', +# 'a,|x ;|w', +# 'a,|x.|h ;|w', +# 'a.|h,|i ;|v', +# 'a ;|v.|i', +# 'a.|i ;|w', +# 'a,|x', +# # greske: +# 'i ;|v', +# 'i' +# ], +#); -### 440 -# 2.ind. prema jeziku i članu +#marc_template( +# from => 225, to => 490, +# from => "{ z => 1 }", +# to => "{ a => 1 }", +# +# marc_template => [ +# 'a', +# ], +#); + +# marc_indicators('830',' ','0'); +# i2 ovisi članu - popraviti +# +# marc('830','a', +# regex('s/(^.*)\s\/\s(.*)/$1 ($2)/g', +# rec('225','a') +# ) +# ); + + +#} else { + + +### 440 - indikatori +## 2.ind. prema jeziku i članu, provjeriti marc_indicators('440', ' ', '0'); -marc('440','a', - join_with(' : ', - rec('225','a'), - join_with(' / ', - rec('225','e'), - rec('225','f') - ) - ) -) ; +if ( rec('200','a') =~ m/^Einen / ) { + marc_indicators('440', ' ', 6); +} -marc('440','n', - rec('225','h') -); +if ( rec('200','a') =~ m/^Eine / ) { + marc_indicators('440', ' ', 5); +} -marc('440','p', - rec('225','i') -); +if ( rec('200','a') =~ m/^(Die|Das|Der|Ein|Les|The) / ) { + marc_indicators('440', ' ', 4); +} -marc('440','v', - join_with(', ', - rec('225','v'), - rec('225','w') - ), -); +if ( rec('200','a') =~ m/^(Um|Un|An|La|Le|Il) / ) { + marc_indicators('440', ' ', 3); +} -marc('440','x', - rec('225','x') -); +if ( rec('200','a') =~ m/^(A|L') / ) { + marc_indicators('440', ' ', 2); +} + +## 440v nije ponovljivo -marc('440','a', - rec('225','b'), + +marc_template( + from => 225, to => 440, + subfields_rename => [ + 'a' => 'a', + 'x' => 'x', + 'v' => 'v', + 'h' => 'n', + 'i' => 'p', + 'w' => 'v', + ], + isis_template => [ + 'a', + 'a,|x', + 'a,|x ;|v', + 'a,|x.|i', + 'a,|x.|i ;|w', + 'a,|x.|h ;|w', + 'a,|x.|h,|i ;|w', + 'a,|x ;|v.|h ;|w', + 'a,|x ;|v.|h,|i ;|w', + 'a ;|v', + 'a ;|v.|i', + 'a ;|v.|h,|i', + 'a ;|w', + 'a ;|v.|i ;|w', + 'a ;|v.|h,|i ;|w', + 'a ;|v.|h ;|w', + 'a.|h,|i', + 'a.|h,|i ;|w', + 'a.|i', + 'a.|i ;|w', + # greške + 'a ;|v ;|w', + #mozda greska: + 'a ;|v,|x ;|w', + 'a ;|v,|x.|p', + 'a,|x ;|v', + 'a,|x.|p ;|w', + ], + from => "{ a => 1, i => 1, w => 1, \"x\" => 1 }", + to => "{ a => 1, p => 1, v => 1, \"x\" => 1 }", + + marc_template => [ + 'a', + 'a ;|v', + 'a,|x', + 'a.|n', # mozda greska + 'a.|n,|p', + 'a.|p', + 'a ;|v.|n', + 'a ;|v.|n,|p', # mozda greska + 'n,|p', + 'n ;|v', # mozda greska + 'p ;|v', + 'v', + 'x', + 'x ;|v' # greska + ], ); +#} -### 490 +#marc_template( +# from => 225, to => 490, +# subfields_rename => [ +# 'a' => 'a', +# 'x' => 'x', +# 'v' => 'v', +# 'h' => 'n', +# 'i' => 'p', +# 'w' => 'v', +# ], +# isis_template => [ +# 'a.|h,|i ;|w', +# 'a.|h.|w', +# 'a.|i ;|w', +# 'a ;|v.|i', +# 'a ;|v.|i ;|w', +# 'a ;|v.|h,|i ;|w', +# 'a ;|v.|h ;|w', +# 'a ;|v ;|w', +# #mozda greska: +# 'a ;|v,|x ;|w', +# 'a ;|v,|x.|p', +# 'a,|x ;|v', +# 'a,|x.|p ;|w', +# ], +# from => "{ a => 1, i => 1, w => 1, \"x\" => 1 }", +# to => "{ a => 1, p => 1, v => 1, \"x\" => 1 }", # -#marc('490','a', -# rec('225','a') +# marc_template => [ +# 'a', +# 'a ;|v', +# 'a,|x', +# 'a.|n', # mozda greska +# 'a.|n,|p', +# 'a.|p', +# 'a ;|v.|n', +# 'a ;|v.|n,|p', # mozda greska +# 'n,|p', +# 'n ;|v', # mozda greska +# 'p ;|v', +# 'v', +# 'x', +# 'x ;|v' # greska +# ], #); +## marc_compose za 440 radi samo kad polje ni potpolja nisu ponovljiva. ne zapisuje dobro drugo pojavljivanje ^v, tj. ^v iza ^p (iz 225^w) + +#marc_compose('440', +# 'a', suffix( +# ( rec('225','v') ) ? ' ;' : +# ( rec('225','w') ) ? ' ; ' : +# ( rec('225','x') ) ? ',' : +# ( rec('225','h') || rec('225','i') ) ? '.' : +# '.', +# frec('225','a') +# ), +# 'x',suffix( +# ( rec('225','x') && ( rec('225','h') || rec('225','i') ) ) ? '.' : +# '', +# frec('225','x') +# ), +# 'v',suffix( +# ( rec('225','v') && ( rec('225','h') || rec('225','i') ) ) ? '.' : +# ( rec('225','v') && rec('225','w') ) ? ' ; ' : +# '', +# frec('225','v') +# ), +# 'n',suffix( +# ( rec('225','h') && rec('225','i') ) ? ',' : +# ( rec('225','h') && rec('225','w') ) ? ' ; ' : +# '', +# frec('225','h') +# ), +# 'p',suffix( +# ( rec('225','i') && rec('225','w') ) ? ' ; ' : +# ( rec('225','i') && rec('225','x') ) ? ',' : +# '', +# frec('225','i') +# ), +## 225w treba ici u 440v, na kraj +# '+', join_with(' ; ', +# rec('225','w'), +# ) +#); + +#marc_original_order('440','225'); + + +#if ( +# count( lookup( +# sub { 1 }, +# 'ffps','libri', +# sub { rec('225','a') } +# ) ) > 1 +#) { + + +#_debug(0); + + ### 500 marc('500','a', @@ -366,7 +819,7 @@ ); ### 502 - bilješka o disertacijama -# odgovarajućeg polja nema u originalnim podacima. možda se može pretpostaviti? +## odgovarajućeg polja nema u originalnim podacima. možda se može pretpostaviti? ### 504 @@ -374,15 +827,13 @@ rec('320') ); -## napomene uz konverziju polja 327 (sadrzaj): -# NSK konvertira 327 (NP) u 501 (R) -# u LOC konv. tablici stoji 327 (NP) u 505 (NR) -# standard i validacije dopuštaju 501 (R) i 505 (R) - -## 505 +### 505 ## FFPS 327 - sadrzaj +## NSK konvertira 327 (NP) u 501 (R) +## u LOC konv. tablici stoji 327 (NP) u 505 (NR) +## standard i validacije dopuštaju 501 (R) i 505 (R) -if ( config() =~ m/ffps/ || config() =~ m/fftu/ ) { +if ( config() =~ m/ffps|fftu/ ) { marc_indicators('505', '0', ' '); marc('505','a', regex('s/\s*[\\r\\n]+\s*\**\s*/ ; /g', @@ -391,16 +842,22 @@ ); } +if ( config() =~ m/ffan/ ) { + marc_indicators('505', '0', ' '); + marc('505','a', + regex('s/[<>]//g', + rec('330') + ) +); +} -## napomene uz konverziju polja 330: -# NSK konvertira 330 (P) u 520 (P) = LOC konv. tablica ### 520 -# možda i polje 520y - jezik napomene ako je uvijek isti jezik +## NSK konvertira 330 (P) u 520 (P) = LOC konv. tablica +## FFPS 330 (NP) - sažetak -# FFPS 330 (NP) - sažetak if ( config() =~ m/ffps/ ) { marc('520','a', regex('s/[\\r\\n]+/. /g', @@ -409,26 +866,19 @@ ); } -# FFTU 330 - ??? -if ( config() =~ m/fftu/ ) { - marc('520','a', - rec('330') - ); -} - +### 526 - STUDY PROGRAM INFORMATION NOTE +## provjeriti za svaku bazu sta je u 996? -### 538 +marc_indicators('526', 8, ' '); -marc('538','a', - rec('337','a') +marc('526','a', + rec('996') ); +### 538 - zahtjevi sustava -### 246 - -marc_indicators('246', 1, 3); -marc('246','a', - rec('532') +marc('538','a', + rec('337','a') ); ### 655 @@ -439,8 +889,9 @@ ); ### 653 +## da li ponovljivo polje ili potpolje, pogledati u Koha tags -marc_indicators('653', 0, ' '); +marc_indicators('653', ' ', ' '); marc('653','a', rec('610') ); @@ -449,20 +900,12 @@ ### 700 +## ako je u originalu ponovljivo polje treba biti i konvertirano u ponovljivo !! marc_indicators('700', 1, ' '); -if ( rec('701') ) { -marc('700','4', - 'aut' -); -} - marc('700','a', - join_with(', ', - rec('701', 'a'), - rec('701', 'b') - ) + rec('701', 'a'), ); marc('700','a', @@ -488,13 +931,9 @@ marc('700','a', - rec('702','a'), + rec('702', 'a'), ); - -# ako je u originalu ponovljivo polje treba biti i konvertirano u ponovljivo !! - - marc('700','a', join_with(', ', rec('702','c'), @@ -516,40 +955,10 @@ ) ); -## 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') -# ); - #_debug(0); - - -### 740 +### 740 - nadopuniti marc_indicators('740', 0, ' '); @@ -558,9 +967,9 @@ # rec('200','c') # ); - marc('740','a', - rec('200','k') - ); +marc('740','a', + rec('200','k') +); # } else { @@ -570,26 +979,57 @@ # }; -### generiranje zapisa o nakladničkoj cjelini i povezivanje podređenog zapisa s nadređenim +### 760 w +## generiranje zapisa o nakladničkoj cjelini i povezivanje podređenog zapisa s nadređenim -my $series_key = join_with('', - rec('225','a'), - rec('210','a'), - rec('210','b'), -); - -if ($series_key) { - - marc_indicators('760', 0, ' '); - - marc('760','w', - get( $series_key ) - ); - -} +#if ( +# rec('225','a') # da li je nakladnička cjelina? +#) { + +#my $series_key = +#join_with('', +# rec('225','a'), +# rec('210','a'), +# rec('210','b'), +#); +# +#my $series = get( $series_key ); +# +#if ($series) { +# warn "nije novi"; +#} else { +# +#$series = join_with('', +# uc( config() ), +# ' LS', +# rec('000') +#); +# +#set( $series_key => $series ); +# +#} # $series +#} # nakladnička cjelina +# +#my $series_key = join_with('', +# rec('225','a'), +# rec('210','a'), +# rec('210','b'), +#); +# +#if ($series_key) { +# +# marc_indicators('760', 0, ' '); +# +# marc('760','t', +# rec('225','a') +# ); +# marc('760','w', +# get( $series_key ) +# ); +#} -### testing +# ## testing # # my $dup_key = join_with('', # rec('200','a'), @@ -610,43 +1050,348 @@ # +### 774 - Constituent Item Entry +### 787 - Nonspecific Relationship Entry -################################## -## ## -## pomoćni ispisi - privremeno! ## -## ## -################################## - -if ( ! rec('464') && rec('200','c') ) { - marc('002', - 'ima-200c-nema-464' - ); -} +marc_indicators('787','0',' '); -if ( ! rec('464') && rec('200','k') ) { - marc('003', - 'ima-200k-nema-464' - ); -} +marc_compose('787', + 'g', rec('230','v'), + 't', rec('230','a'), + 'b', rec('240','a'), + 'd', rec('250','a'), + 'd', rec('250','d'), + 'h', rec('260','a'), + 'k', rec('270','a'), + 'n', join_with('. - ', + rec('280'), + ), + 'x', rec('290'), +); -if ( ! ( rec('200','c') || rec('200','k') ) && rec('464') ) { - marc('004', - 'ima-464-nema-200c-ili-200k' - ); -} +marc_compose('787', + 'g', rec('231','v'), + 't', rec('231','a'), + 'b', rec('241','a'), + 'd', rec('251','a'), + 'd', rec('251','d'), + 'h', rec('261','a'), + 'k', rec('271','a'), + 'n', join_with('. - ', + rec('281'), + ), + 'x', rec('291'), +); +marc_compose('787', + 'g', rec('232','v'), + 't', rec('232','a'), + 'b', rec('242','a'), + 'd', rec('252','a'), + 'd', rec('252','d'), + 'h', rec('262','a'), + 'k', rec('272','a'), + 'n', join_with('. - ', + rec('282'), + ), + 'x', rec('292'), +); + +marc_compose('787', + 'g', rec('233','v'), + 't', rec('233','a'), + 'b', rec('243','a'), + 'd', rec('253','a'), + 'h', rec('263','a'), + 'k', rec('273','a'), + 'n', join_with('. - ', + rec('283'), + ), + 'x', rec('293'), +); -#_debug(2); -if ( rec('200') =~ m/prev/ ) { - marc('005', - 'prijevod' +### 852 - lokacija + + + +#marc('852','i', +# +#); + + + +### 876 - item information - basic bibliographic unit + +marc('876','a', + rec('991','t'), +); + +### 886 - former marc + +marc_indicators('886', 2, ' '); + +marc('886','2', + 'ffmarc' +); + +marc('886','a', + '994' +); + +marc('886','b', + join_with(''. + '##^a', + join_with('', + prefix('^a', + rec('994','a'), + ), + prefix('^b', + rec('994','b') + ) + ) + ) +); + +### KOHA + +marc('942','b', + 'LIB' +); + +marc('942','c', + 'KNJ' +); + +marc('942','d', + join_with(' | ', + rec('990') + ) +); + +if ( config() =~ m/ffiz/ ) { + my $novasig1 = + lookup( + sub { rec('C') }, + 'ffiz','mapirano', + sub { rec('B') }, + sub { rec('990') } + ); + my $novasig2 = + lookup( + sub { rec('C') . ' ' . rec('D') }, + 'ffiz','starasig', + sub { rec('A') }, + sub { rec('000') }, + ); + marc('942','h', + $novasig1 + ); + marc('942','i', + $novasig2 ); } -#_debug(0); + +#if ( config() =~ m/ffsf|ffpo/ ) { +# my $sig1 = +# lookup( +# sub { rec('C') }, +# 'ffiz','signature', +# sub { rec('B') }, +# sub { frec('990') }, +# ); +# if ( rec('700','a') ) { +# marc('942','h', +# $sig1, +# ); +# if ( rec('200','a') =~ m/^(The|Die|Das|Der|Ein|Les) / ) { +# marc('942','i', +# join_with(' ', +# regex('s/(^.{3}).*/$1/', +# uc ( rec('700','a') ) +# ), +# regex('s/^.{4}(.{1}).*/$1/', +# lc ( rec('200','a') ) +# ) +# ) +# ); +# } elsif ( rec('200','a') =~ m/^(Um|Un|An|La|Le|Il) / ) { +# marc('942','i', +# join_with(' ', +# regex('s/(^.{3}).*/$1/', +# uc ( rec('700','a') ) +# ), +# regex('s/^.{3}(.{1}).*/$1/', +# lc ( rec('200','a') ) +# ) +# ) +# ); +# } elsif ( rec('200','a') =~ m/^Eine / ) { +# marc('942','i', +# join_with(' ', +# regex('s/(^.{3}).*/$1/', +# uc ( rec('700','a') ) +# ), +# regex('s/^.{5}(.{1}).*/$1/', +# lc ( rec('200','a') ) +# ) +# ) +# ); +# } elsif ( rec('200','a') =~ m/^Einen / ) { +# marc('942','i', +# join_with(' ', +# regex('s/(^.{3}).*/$1/', +# uc ( rec('700','a') ) +# ), +# regex('s/^.{6}(.{1}).*/$1/', +# lc ( rec('200','a') ) +# ) +# ) +# ); +# } elsif ( rec('200','a') =~ m/^(A|L) / ) { +# marc('942','i', +# join_with(' ', +# regex('s/(^.{3}).*/$1/', +# uc ( rec('700','a') ) +# ), +# regex('s/^.{2}(.{1}).*/$1/', +# lc ( rec('200','a') ) +# ) +# ) +# ); +# } else { +# marc('942','i', +# join_with(' ', +# regex('s/(^.{3}).*/$1/', +# uc ( rec('700','a') ) +# ), +# regex('s/(^.{1}).*/$1/', +# lc ( rec('200','a') ) +# ) +# ) +# ); +# } +# } elsif ( rec('710','a') ) { +# marc('942','h', +# $sig1, +# ); +# if ( rec('200','a') =~ m/^(The|Die|Das|Der|Ein|Les) / ) { +# marc('942','i', +# join_with(' ', +# regex('s/(^.{3}).*/$1/', +# uc ( rec('710','a') ) +# ), +# regex('s/^.{4}(.{1}).*/$1/', +# lc ( rec('200','a') ) +# ) +# ) +# ); +# } elsif ( rec('200','a') =~ m/^(Um|Un|An|La|Le|Il) / ) { +# marc('942','i', +# join_with(' ', +# regex('s/(^.{3}).*/$1/', +# uc ( rec('710','a') ) +# ), +# regex('s/^.{3}(.{1}).*/$1/', +# lc ( rec('200','a') ) +# ) +# ) +# ); +# } elsif ( rec('200','a') =~ m/^Eine / ) { +# marc('942','i', +# join_with(' ', +# regex('s/(^.{3}).*/$1/', +# uc ( rec('710','a') ) +# ), +# regex('s/^.{5}(.{1}).*/$1/', +# lc ( rec('200','a') ) +# ) +# ) +# ); +# } elsif ( rec('200','a') =~ m/^Einen / ) { +# marc('942','i', +# join_with(' ', +# regex('s/(^.{3}).*/$1/', +# uc ( rec('710','a') ) +# ), +# regex('s/^.{6}(.{1}).*/$1/', +# lc ( rec('200','a') ) +# ) +# ) +# ); +# } elsif ( rec('200','a') =~ m/^(A|L) / ) { +# marc('942','i', +# join_with(' ', +# regex('s/(^.{3}).*/$1/', +# uc ( rec('710','a') ) +# ), +# regex('s/^.{2}(.{1}).*/$1/', +# lc ( rec('200','a') ) +# ) +# ) +# ); +# } else { +# marc('942','i', +# join_with(' ', +# regex('s/(^.{3}).*/$1/', +# uc ( rec('710','a') ) +# ), +# regex('s/(^.{1}).*/$1/', +# lc ( rec('200','a') ) +# ) +# ) +# ); +# } +# } elsif ( rec('200','a') =~ m/^(The|Die|Das|Der|Ein|Les) / ) { +# marc('942','h', +# $sig1, +# ); +# marc('942','i', +# regex('s/^.{4}(.{3}).*/$1/', +# uc ( rec('200','a') ) +# ), +# ); +# +# } else { +# marc('942','h', +# $sig1, +# ); +# marc('942','i', +# regex('s/(^\w{3}).*/$1/', +# uc ( rec('200','a') ) +# ) +# ) +# } +#} # if config() + +marc('952','8', + rec('991','8') +); + +marc('952','a', + rec('991','a') +); + +marc('952','b', + rec('991','b') +); + +marc('952','c', + rec('991','c'), +); + +marc('952','i', + rec('991','i') +); + +marc('952','y', + rec('991','y') +); + } # polje 200a +# } sig