# normalize:
# path: 'conf/normalize/ff-peri.pl'
#
- ffhu:
- name: 'Hungarologija, Filozofski fakultet u Zagrebu'
- input:
- - name: peri
- type: isis
- path: '/backup/isis_backup/B001-2/winisis/latest/PERI/PERI'
- encoding: 'cp852'
- #limit: 10
- modify_file: 'conf/modify/common.pl'
- normalize:
- path: 'conf/normalize/ff-peri.pl'
+# ffhu:
+# name: 'Hungarologija, Filozofski fakultet u Zagrebu'
+# input:
+# - name: peri
+# type: isis
+# path: '/backup/isis_backup/B001-2/winisis/latest/PERI/PERI'
+# encoding: 'cp852'
+# #limit: 10
+# modify_file: 'conf/modify/common.pl'
+# normalize:
+# path: 'conf/normalize/ff-peri.pl'
- isi:
- name: 'ISI'
- input:
- - name: isi
- type: isi
- path: '/data/isis_data/savedrecs.txt'
- encoding: 'ISO-8859-1'
- # modify_file: 'conf/modify/common.pl'
- normalize:
- path: 'conf/normalize/isi.pl'
-
+# isi:
+# name: 'ISI'
+# input:
+# - name: isi
+# type: isi
+# path: '/data/citiranje/citirali-sverka.txt'
+# encoding: 'ISO-8859-1'
+# # modify_file: 'conf/modify/common.pl'
+# normalize:
+# path: 'conf/normalize/isi.pl'
+#
+# bibirb:
+# name: 'Bib IRB'
+# input:
+# - name: bibirb
+# type: excel
+# path: '/data/citiranje/sverko-bibirb.xls'
+# encoding: 'ISO-8859-2'
+# # modify_file: 'conf/modify/common.pl'
+# normalize:
+# path: 'conf/normalize/excel-bib-irb.pl'
+#
+# drzb:
+# name: 'DRZB 2007'
+# input:
+# - name: drzb
+# type: excel
+# path: '/data/knjiznice/drzb2007/drzb20072.xls'
+# encoding: 'ISO-8859-2'
+# # modify_file: 'conf/modify/common.pl'
+# normalize:
+# path: 'conf/normalize/excel-drzb.pl'
+#
ffiz:
name: 'Informacijske znanosti, Filozofski fakultet u Zagrebu'
input:
path: 'conf/normalize/ff-libri.pl'
-# ffkk:
-# name: 'Komparativna knji¾evnost, Filozofski fakultet u Zagrebu'
-# input:
-# - name: peri
-# type: isis
-# path: '/backup/isis_backup/A206-4/isisdata/latest/PERI/PERI'
-# encoding: 'cp852'
-# #limit: 10
-# modify_file: 'conf/modify/common.pl'
-# normalize:
-# path: 'conf/normalize/ff-peri.pl'
-#
+# ffkk:
+# name: 'Komparativna knji¾evnost, Filozofski fakultet u Zagrebu'
+# input:
+# - name: peri
+# type: isis
+# path: '/backup/isis_backup/A206-4/isisdata/latest/PERI/PERI'
+# encoding: 'cp852'
+# #limit: 10
+# modify_file: 'conf/modify/common.pl'
+# normalize:
+# path: 'conf/normalize/ff-peri.pl'
+
# fflo:
# name: 'Lingvistika, Filozofski fakultet u Zagrebu'
# input:
# normalize:
# path: 'conf/normalize/ff-peri.pl'
#
-# ffps:
-# name: 'Psihologija, Filozofski fakultet u Zagrebu'
-# code: 'ps'
-# url: 'http://www.knjiznice.ffzg.hr/psihologija'
-# input:
-# - name: peri
-# type: isis
-# path: '/backup/isis_backup/sunce2/isisdata/latest/PERI/'
-# encoding: 'cp852'
-# modify_file: 'conf/modify/common.pl'
-# normalize:
-# path: 'conf/normalize/ff-peri.pl'
-#
-#
+# ffps:
+# name: 'Psihologija, Filozofski fakultet u Zagrebu'
+# code: 'ps'
+# url: 'http://www.knjiznice.ffzg.hr/psihologija'
+# input:
+# - name: peri
+# type: isis
+# path: '/backup/isis_backup/sunce2/isisdata/latest/PERI/'
+# encoding: 'cp852'
+# modify_file: 'conf/modify/common.pl'
+# normalize:
+# path: 'conf/normalize/ff-peri.pl'
+
+
# ffro:
# name: 'Romanistika, Filozofski fakultet u Zagrebu'
# input:
# normalize:
# path: 'conf/normalize/ff-peri.pl'
#
-# ffsf:
-# name: 'Slavenska filologija, Filozofski fakulteti u Zagrebu'
-# input:
-# - name: peri
-# type: isis
-# path: '/backup/isis_backup/A125-2/ISISDATA/latest/PERI/PERI'
-# encoding: 'cp852'
-# #limit: 10
-# modify_file: 'conf/modify/common.pl'
-# normalize:
-# path: 'conf/normalize/ff-peri.pl'
-#
+# ffsf:
+# name: 'Slavenska filologija, Filozofski fakulteti u Zagrebu'
+# input:
+# - name: peri
+# type: isis
+# path: '/backup/isis_backup/A125-2/ISISDATA/latest/PERI/PERI'
+# encoding: 'cp852'
+# #limit: 10
+# modify_file: 'conf/modify/common.pl'
+# normalize:
+# # path: 'conf/normalize/ff-peri.pl'
+# path: 'conf/normalize/ff-peri.pl'
+
# ffso:
# name: 'Sociologija, Filozofski fakultet u Zagrebu'
# input:
# modify_file: 'conf/modify/common.pl'
# normalize:
# path: 'conf/normalize/ff-peri.pl'
-#
-# fftu:
-# name: 'Turkologija, Filozofski fakultet u Zagrebu'
-# input:
-# - name: peri
-# type: isis
-# path: '/backup/isis_backup/B025-2/ISISDATA/20070711/PERI/PERI'
-# encoding: 'cp852'
-# #limit: 10
-# modify_file: 'conf/modify/common.pl'
-# normalize:
-# path: 'conf/normalize/ff-peri.pl'
-#
+
+# fftu:
+# name: 'Turkologija, Filozofski fakultet u Zagrebu'
+# input:
+# - name: peri
+# type: isis
+# # path: '/backup/isis_backup/B025-2/ISISDATA/20070711/PERI/PERI'
+# path: '/data/isis_data/tu/DATA/PERI/PERI'
+# encoding: 'cp852'
+# #limit: 10
+# modify_file: 'conf/modify/common.pl'
+# normalize:
+# path: 'conf/normalize/ff-peri.pl'
+
# ffmic:
# name: 'Meðunarodni istra¾ivaèki centar za kasnu antiku i srednji vijek'
# input:
# normalize:
# path: 'conf/normalize/ff-peri.pl'
#
-# nsk:
-# name: 'Nacionalna i sveucilisna knjiznica'
-# input:
-# name: bbaza
-# type: marc
-# path: '/home/mglavica/NSK/data/BBaza.ISO'
-# encoding: 'ISO-8859-2'
-# normalize:
-# path: 'conf/normalize/minimal.pl'
-#
+ nsk:
+ name: 'Nacionalna i sveucilisna knjiznica'
+ input:
+ name: bbaza
+ type: marc
+ path: '/home/mglavica/NSK/data/BBaza.ISO'
+ encoding: 'ISO-8859-2'
+ normalize:
+ path: 'conf/normalize/minimal.pl'
+
# exhibit:
# name: 'SMILE Exhibit based ouptput for WebPAC'
# input:
marc_fixed('007',00,'ta');
-### 008
+### 008 - All materials
+
# ¹to zapisati u polje kad datum nije poznat?
if ( rec('994','c') ) {
#)
#);
+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
);
-### 041
-
-# indikatori
+### 041 - indikatori
#
# pretpostavke o indikatorima:
#
#_debug(0);
### 044
-
+## kako dobiti zemlju izdavanja?
### 080
# 675 podpolja b, c, d ... - ¹to s njima ???
rec('686')
);
-### 100
+### 100 indikatori
# I1 = 0 ako je pseudonim (ima 700a, nema 700b)
marc_indicators('100', 1, ' ');
}
+### 100
+
marc('100','a',
join_with(', ',
rec('700', 'a'),
### 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, ' ');
}
-### 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;
marc_indicators('245', $i1, 2);
}
+### 245
# podpolja i interpunkcije pripremljeni u modify
#_debug(3);
#);
-
-
-
### 250
# zapisima koji nemaju potpolje, dodaje se ^a u modify - provjeriti
'b', rec('205','f'),
);
-
-
### 260
# ponovljiva potpolja u originalnom redosljedu
# 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');
#_debug(3);
-marc_original_order('440','225');
+### 440
+marc_original_order('440','225');
#marc_compose('440',
# 'a', suffix(
if ( rec('200','a') ) {
-
-# LEADER
+### LEADER
# raspraviti 17,18
-marc_leader('05','n');
-marc_leader('06','a');
+marc_leader('05','n'); # Record status
+marc_leader('06','a'); # Type of record
if ( rec('225','a') ) {
- marc_leader('07','b');
+ marc_leader('07','d');
} else {
- marc_leader('07','s');
+ marc_leader('07','s'); # Bibliographic level
}
-marc_leader('18','i');
+marc_leader('18','i'); # Descriptive cataloging form
if ( rec('225','a') ) {
- marc_leader('19','r');
+ marc_leader('19','r'); # Linked record requirement
}
-# 001 polje - Voyager
+### 001 - Voyager
-# 007
+### 007
marc_fixed('007',00,'ta');
-## 008 - All materials
-marc_fixed('008','00', '070707'); # Date entered on file
-marc_fixed('008','06', 't'); # Type of date/Publication status
-if ( rec('11') ) {
- if ( my $lookup = lookup(
- sub { rec('210','d') },
- 'nsk','bbaza',
- sub { first( rec('011','a') ) },
- sub { rec('11') },
- )
- ) {
- marc_fixed('008','07', $lookup);
- } else {
- marc_fixed('008','07',
- rec('210','d')
- );
+### 008 - All materials
+# ¹to zapisati u polje kad datum nije poznat?
+
+marc_fixed('008','00', '070707'); # 00-05 - Date entered on file
+
+## za 008 06 treba i lookup u tablicu gdje postoji podatak o tome jel tekuci casopis ili nije?
+## c - Continuing resource currently published
+## d - Continuing resource ceased publication
+
+if ( rec('210','c') ) {
+ marc_fixed('008','06','s'); # 06 - Type of date/Publication status, s = single know date
+
+ my $year = rec('210','c');
+ warn "## year = $year";
+ if ( $year =~ m/^(\d{4})/ ) {
+# warn "## $1 ##";
+ marc_fixed('008','07',$1); # 07-10 - Date 1
}
-} # Date 1
+
+} else {
+ marc_fixed('008','06','n'); # 06 - n = unknown date
+}
+
+
-# marc_fixed('008','11', ' '); # Date 2
+# marc_fixed('008','11', ' '); # 11-14 - Date 2
marc_fixed('008','15',
lc ( rec('102') )
-); # Place of publication, production, or execution
-#marc_fixed('008','35',
-# rec('101')
-#); # Language
-marc_fixed('008','38', '|'); # Modified record
-marc_fixed('008','39','d'); # Cataloging source
+); # 15-17 - Place of publication, production, or execution
+marc_fixed('008','35',
+ first( lc(rec('101')) ) # 35-37 - Language
+);
+marc_fixed('008','38', '|'); # 38 - Modified record
+marc_fixed('008','39','d'); # 39 - Cataloging source
+
+
+### 008 - Continuing resources
+if ( ! rec('225','a') ) {
-## 008 - Continuing resources
-marc_fixed('008','18', '|'); # Frequency - ovo treba popuniti iz polja 326
-marc_fixed('008','19', '|'); # Regularity
-marc_fixed('008','21', 'p'); # Type of continuing resource
-marc_fixed('008','29', '|'); # Conference publication
-marc_fixed('008','33', '|'); # Original alphabet or script of title
-marc_fixed('008','34', '|'); # Entry convention
+marc_fixed('008','18', '|'); # 18 - Frequency - ovo treba popuniti iz polja 326
+ # 19 - Regularity
+ # 20 - Undefined, ontains a blank (#) or fill character (|)
+# za polje 008 21 treba lookup u tablicu:
+marc_fixed('008','21', 'p'); # 21 - Type of continuing resource
+
+ # 22 - Form of original item - blank
+ # 23 - Form of item
+ # 24 - Nature of entire work
+ # 25-27 - Nature of contents
+ # 28 - Government publication
+ # 29 - Conference publication
+ # 30-32 - Undefined
+ # 33 - Original alphabet or script of title
+ # 34 - Entry convention
+}
## 022
# if ( ! rec('225','a') ) {
# }
#
-## 022
-marc('022','a',
- rec('11')
-);
+### 022
+if ( ! rec('225','a') ) {
+ marc('022','a',
+ rec('11')
+ );
+}
+### 035$6
# privemeno koristimo 0356 umjesto 0359, zato ¹to marclint 9 prijavljuje kao gre¹ku
marc('035','6',
);
+### 040
+# za sve je isti
+# treba utvrditi toènu oznaku za ustanovu
+
marc('040','a',
'HR FFZG'
);
'HR PPIAK'
);
+### 041 - indikatori
+
marc_indicators('041', 0, ' ');
+### 041
+
marc_repeatable_subfield('041','a',
rec('101')
);
#_debug(3);
-## 044 - zemlja izdavanja
-
-if ( rec('11') ) {
- if ( my $lookup = lookup(
- sub { rec('102','a') },
- 'nsk','bbaza',
- sub { first( rec('011','a') ) },
- sub { rec('11') },
- )
- ) {
- marc('044','a', $lookup );
- } else {
- marc('044','a',
- rec('102')
- );
- }
-}
+### 044 - zemlja izdavanja
+
+marc('044','a',
+ rec('102')
+);
+
+### 080
marc('080','a',
rec('675','a')
);
-marc_indicators('210', '1',' ');
+### 210 indikatori
-if ( rec('11') ) {
-marc('210','a',
- lookup(
- sub { rec('531','a') },
- 'nsk','bbaza',
- sub { rec('011','a') },
- sub { rec('11') },
- )
-);
-}
+# marc_indicators('210', '1',' ');
+
+### 210
+# pronaæi priladan izvor podataka (nsk baza, issn baza)
+
+
+## iz nsk
+#if ( rec('11') ) {
+#marc('210','a',
+# lookup(
+# sub { rec('531','a') },
+# 'nsk','bbaza',
+# sub { rec('011','a') },
+# sub { rec('11') },
+# )
+#);
+#}
+
+### 222 indikatori
+# drugi indikator prema èlanu
+
+marc_indicators('222',' ','0');
+
+### 222 - Key title
+# pronaæi prikadan izvor podataka - nsk baza, issn baze
-marc_indicators('222',' ','0'); # drugi indikator prema èlanu
-if ( rec('11') ) {
marc('222','a',
- lookup(
- sub { rec('530','a') },
- 'nsk','bbaza',
- sub { rec('011','a') },
- sub { rec('11') },
- )
+ rec('530')
);
-}
-
+
+# iz nsk:
+#if ( rec('11') ) {
+#marc('222','a',
+# lookup(
+# sub { rec('530','a') },
+# 'nsk','bbaza',
+# sub { rec('011','a') },
+# sub { rec('11') },
+# )
+#);
+#}
+
### 245 indikatori
+# generiraju se prema èlanu i jeziku. potrebna naknadna kontrola.
if ( ( rec('200','a') =~ m/^Die /) ||
( rec('200','a') =~ m/^Das /) ||
}
-## 245
+### 245
+
marc_compose('245',
'a', suffix(
( ! ( rec('200','d') || rec('200','e') || rec('200','k') ) ) && ( rec('200','f') ) ? ' / ' :
'+', rec('200','c'),
);
-## 246
+### 246 inikatori
+# prema jeziku - provjera
+
if ( ( rec('200','a') =~ m/^Die /) ||
( rec('200','a') =~ m/^Das /) ||
( rec('200','a') =~ m/^The /) ) {
marc_indicators('246', 0, 0);
}
+### 246
+# povuæi podatke iz prikladnog izvora (nsk, issn)
-if ( rec('532') ) {
- marc('246','a',
- rec('532')
- );
-}
+marc('246','a',
+ rec('532')
+);
-#else {
+## iz nsk:
# marc('246','a',
# lookup(
# sub { rec('532','a') },
# sub { rec('11') },
# )
# );
-#}
#_debug(0);
## 260 - izdavanje
+# provjeriti interpunkcije !!, u NSK nesto ne stima
+marc_original_order('260','210');
+
+## lookup u NSK:
# if ( rec('11') ) {
# marc_repeatable_subfield('260','a',
# lookup(
# marc_original_order('260', '210');
# }
-marc_original_order('260','210');
-# provjeriti interpunkcije !!
-# u NSK nesto ne stima
+### 300
marc('300','a',
suffix(
rec('215','e')
);
-## 310 - current stated publication frequency
+### 310 - current stated publication frequency
+# potrebno ujednaèiti, polje 008?
+
marc('310','a',
rec('326')
);
-## 321 - former frequency of either an item or an update to an item when a current frequency is contained in field 310
+### 321 - former frequency of either an item or an update to an item when a current frequency is contained in field 310
+
# marc('321','a',
# ovo bi trebalo procitati iz NSK konvertiranih podataka
#);
marc_indicators('362', 0, ' ');
-
-## 362
+### 362
+#
if ( rec('207','a') ) {
marc('362','a',
rec('207','a'),
);
-} else {
- if ( rec('11') ) {
- marc('362','a',
- lookup(
- sub { rec('207','a') },
- 'nsk','bbaza',
- sub { first( rec('011','a') ) },
- sub { rec('11') },
- )
- );
- }
-}
+}
-## 5xx
-marc('500','a',
- rec('300','a'),
-);
-
-
-marc('534','a',
- rec('324')
+## lookup iz nsk
+#else {
+# if ( rec('11') ) {
+# marc('362','a',
+# lookup(
+# sub { rec('207','a') },
+# 'nsk','bbaza',
+# sub { first( rec('011','a') ) },
+# sub { rec('11') },
+# )
+# );
+# }
+#}
+
+### 490 ind.
+
+marc_indicators('490', '0', ' ');
+
+### 490
+
+marc('490','a',
+ join_with('. ',
+ join_with(' / ',
+ join_with(' : ',
+ join_with(' = ',
+ rec('225','a'),
+ rec('225','d')
+ ),
+ rec('225','e')
+ ),
+ join_with(' ; ',
+ rec('225','f'),
+ rec('225','g')
+ ),
+ ),
+ rec('225','h')
+ )
);
-if ( rec('11') ) {
-marc('546','a',
- lookup(
- sub { rec('302','a') },
- 'nsk','bbaza',
- sub { rec('011','a') },
- sub { rec('11') },
- )
+marc('490','v',
+ rec('225','v')
);
-marc('550','a',
- lookup(
- sub { rec('314','a') },
- 'nsk','bbaza',
- sub { rec('011','a') },
- sub { rec('11') },
- )
+marc('490','x',
+ rec('225','x')
);
-marc('555','a',
- lookup(
- sub { rec('320','a') },
- 'nsk','bbaza',
- sub { rec('011','a') },
- sub { rec('11') },
- )
+#if ( rec('225','a') && rec('11') ) {
+# marc('999','a',
+# lookup(
+# sub { rec('110','a'), },
+# 'nsk','bbaza',
+# sub { rec('011','a') },
+# sub { rec('11') }
+# )
+# );
+#}
+
+
+
+### 5xx
+# koje podatke povuæi iz drugih baza?
+
+marc('500','a',
+ rec('300','a'),
);
+
+### 534 - napomena o pretisku
-# marc('562','a',
+marc('534','a',
+ rec('324')
+);
+
+## potencijalno za izvuæi iz NSK
+#if ( rec('11') ) {
+#marc('546','a',
# lookup(
-# sub { rec('316','a') },
-# 'nsk','bbaza',
+# sub { rec('302','a') },
+# 'nsk','bbaza',
# sub { rec('011','a') },
# sub { rec('11') },
# )
-# );
-}
-
+#);
+#
+#marc('550','a',
+# lookup(
+# sub { rec('314','a') },
+# 'nsk','bbaza',
+# sub { rec('011','a') },
+# sub { rec('11') },
+# )
+#);
+#
+#marc('555','a',
+# lookup(
+# sub { rec('320','a') },
+# 'nsk','bbaza',
+# sub { rec('011','a') },
+# sub { rec('11') },
+# )
+#);
+#
+#
+## marc('562','a',
+## lookup(
+## sub { rec('316','a') },
+## 'nsk','bbaza',
+## sub { rec('011','a') },
+## sub { rec('11') },
+## )
+## );
+#}
+
+### 653 indikatori
marc_indicators('653', 0, ' ');
+
+### 653
+
marc('653','a',
rec('610')
);
#_debug(2);
+### 700 indikatori
+
marc_indicators('700', 1, ' ');
+### 700
+
marc('700','a',
rec('702','a'),
);
#_debug(0);
+### 710 indikatori
+
marc_indicators('710', '2', ' ');
+
+### 710
marc('710','a',
rec('710','a')
);
+### 770 indikatori
marc_indicators('770', 0, ' ');
+
+### 770
marc('770','t',
rec('421','a'),
);
+### 772 indikatori
marc_indicators('772', 0, ' ');
+
+### 772
marc('772','t',
rec('422','a'),
);
+### 777 indikatori
+
marc_indicators('777', 0, ' ');
+
+### 777
marc('777','t',
rec('423','a'),
);
+### 780 indikatori
+
marc_indicators('780', 0, 0);
+
+### 780
marc('780','t',
rec('430','a'),
);
+### 785 indikatori
+
marc_indicators('785', 0, 0);
+
+### 785
marc('785','t',
rec('440','a'),
);
+### 852
+
marc('852','j',
join_with(' ',
rec('990')
)
);
+### 876
+
marc('876','a',
rec('991','a')
);
+### 992
+
marc('992','a',
join_with(' ; ',
rec('992')
)
);
+
+### polja za probu
+
+
+#marc('998','a',
+# lookup(
+# sub { rec('200','a') },
+# 'ffiz','peri',
+# sub { rec('200','a'), },
+# sub { rec('225','a'), }
+# )
+#);
+
# marc('997','a',
# sort(
# )
# );
-}
+} # 200a