credit: 10000
- to: ffsk
credit: 10000
- - to: ffsfb
- credit: 10000
- - to: ffsfm
+ - to: ffsf
credit: 10000
- to: ffso
credit: 10000
ffar:
name: 'Arheologija, Filozofski fakultet u Zagrebu'
input:
- name: libri
- type: isis
- path: '/backup/isis_backup/A018-2/isisdata/latest/LIBRI/LIBRI'
- encoding: 'cp852'
- #limit: 10
- modify_file: 'conf/modify/common.pl'
- normalize:
- path: 'conf/normalize/ff-libri.pl'
+ - name: libri
+ type: isis
+ path: '/backup/isis_backup/A018-2/isisdata/latest/LIBRI/LIBRI'
+ encoding: 'cp852'
+ #limit: 10
+ modify_file: 'conf/modify/common.pl'
+ normalize:
+ path: 'conf/normalize/minimal.pl'
+ - name: peri
+ type: isis
+ path: '/backup/isis_backup/A018-2/isisdata/latest/PERI/PERI'
+ encoding: 'cp852'
+ #limit: 10
+ #modify_file: 'conf/modify/common.pl'
+ normalize:
+ path: 'conf/normalize/minimal.pl'
ffet:
name: 'Etnologija, Filozofski fakultet u Zagrebu'
#limit: 10
modify_file: 'conf/modify/common.pl'
normalize:
- path: 'conf/normalize/ff-libri.pl'
+ path: 'conf/normalize/minimal.pl'
- name: arti
type: isis
path: '/backup/isis_backup/novi-40162/ISISDATA/latest/ARTI/ARTI'
#limit: 10
modify_file: 'conf/modify/common.pl'
normalize:
- path: 'conf/normalize/ff-libri.pl'
+ path: 'conf/normalize/minimal.pl'
- name: peri
type: isis
path: '/backup/isis_backup/A207-3/isisdata/latest/PERI/PERI'
#limit: 10
modify_file: 'conf/modify/common.pl'
normalize:
- path: 'conf/normalize/ff-libri.pl'
+ path: 'conf/normalize/minimal.pl'
fftu:
name: 'Turkologija, Filozofski fakultet u Zagrebu'
# modify_file: 'conf/modify/common.pl'
normalize:
path: 'conf/normalize/ff-peri.pl'
- - name: baza
- type: marc
- path: '/backup/data/NSK/BBaza.ISO'
- encoding: 'ISO-8859-2'
- normalize:
- path: 'conf/normalize/marc-nsk.pl'
ffro:
name: 'Romanistika, Filozofski fakultet u Zagrebu'
normalize:
path: 'conf/normalize/minimal.pl'
- ffsfb:
- name: 'Slavenska filologija (B), Filozofski fakulteti u Zagrebu'
- input:
- name: libri
- type: isis
-# path: '/data/isis_data/sfb/LIBRI/LIBRI'
- path: '/backup/isis_backup/A125-3/ISISDATA/latest/LIBRI/LIBRI'
- encoding: 'cp852'
- #limit: 10
- modify_file: 'conf/modify/common.pl'
- normalize:
- path: 'conf/normalize/minimal.pl'
-
- ffsfm:
- name: 'Slavenska filologija (M), Filozofski fakulteti u Zagrebu'
+ ffsf:
+ name: 'Slavenska filologija, Filozofski fakulteti u Zagrebu'
input:
- name: libri
- type: isis
- path: '/data/isis_data/sfm/LIBRI/LIBRI'
-# path: '/backup/isis_backup/A121-2/ISISDATA/latest/LIBRI/LIBRI'
- encoding: 'cp852'
- #limit: 10
- modify_file: 'conf/modify/common.pl'
- normalize:
- path: 'conf/normalize/minimal.pl'
+ - name: blibri
+ type: isis
+# path: '/data/isis_data/sfb/LIBRI/LIBRI'
+ path: '/backup/isis_backup/A125-3/ISISDATA/latest/LIBRI/LIBRI'
+ encoding: 'cp852'
+ #limit: 10
+ modify_file: 'conf/modify/common.pl'
+ normalize:
+ path: 'conf/normalize/ff-libri.pl'
+ - name: mlibri
+ type: isis
+ path: '/data/isis_data/sfm/LIBRI/LIBRI'
+# path: '/backup/isis_backup/A121-2/ISISDATA/latest/LIBRI/LIBRI'
+ encoding: 'cp852'
+ #limit: 10
+ modify_file: 'conf/modify/common.pl'
+ normalize:
+ path: 'conf/normalize/minimal.pl'
+ - 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/minimal.pl'
ffso:
name: 'Sociologija, Filozofski fakultet u Zagrebu'
path: 'conf/normalize/marc-cufts.pl'
- name: licenced
type: excel
- path: '/data/FF/wiley/w2.xls'
- worksheet: 'Sheet1'
- from: 0
+ path: '/data/FF/wiley/wiley_casopisi2006.xls'
+ worksheet: 'licenced'
+ from: 1
encoding: 'windows-1250'
normalize:
path: 'conf/normalize/excel-wiley.pl'
+ - name: nourl
+ type: marc
+ path: '/data/webpac2/out/marc/wiley-licenced.marc'
+ encoding: 'UTF-8'
+ normalize:
+ path: 'conf/normalize/marc-wiley-nourl.pl'
# - name: licenced
# type: marc
# path: '/data/FF/wiley/wiley-licenced.marc'
# normalize:
# path: 'conf/normalize/common.pl'
-# nsk:
-# name: 'Nacionalna i sveucilisna knjiznica'
-# input:
-# name: baza
-# type: marc
-# path: '/backup/data/NSK/BBaza.ISO'
-# encoding: 'ISO-8859-2'
-# normalize:
-# path: 'conf/normalize/marc-nsk.pl'
+ nsk:
+ name: 'Nacionalna i sveucilisna knjiznica'
+ input:
+ name: baza
+ type: marc
+ path: '/backup/data/NSK/BBaza.ISO'
+ encoding: 'ISO-8859-2'
+ normalize:
+ path: 'conf/normalize/marc-nsk.pl'
'^a'
' ; ' => '^a'
' ; ' => '^a'
-# ovo provjeriti - ima na lingvistici:
+# ovo provjeriti, pa mo¾da ispraviti - ima na lingvistici:
' : ' => '^a'
'^c'
' : ' => '^c'
-marc_indicators('245', 0, 0);
+marc_leader('05','n');
+marc_leader('06','a');
+marc_leader('07','s');
+marc_leader('18','i');
+
+marc('022','a',
+ lookup(
+ sub { rec('022','a') },
+ 'wiley','full',
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc(
+ rec('245','a') . ' ' . rec('245','b')
+ )
+ );
+ },
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('A') )
+ );
+ }
+ ) ||
+ lookup(
+ sub { rec('022','a') },
+ 'wiley','full',
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('245','a') )
+ );
+ },
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('A') )
+ );
+ }
+ )
+);
+
+marc('022','y',
+ lookup(
+ sub { rec('022','y') },
+ 'wiley','full',
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc(
+ rec('245','a') . ' ' . rec('245','b')
+ )
+ );
+ },
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('A') )
+ );
+ }
+ ) ||
+ lookup(
+ sub { rec('022','y') },
+ 'wiley','full',
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('245','a') )
+ );
+ },
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('A') )
+ );
+ }
+ )
+);
+
+marc_indicators('245', 1, 0);
marc('245','a',
rec('A')
'[ Elektronièka graða ]'
);
+marc_indicators('246', 1, 0);
+
+marc('246','a',
+ lookup(
+ sub { rec('246','a') },
+ 'wiley','full',
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc(
+ rec('245','a') . ' ' . rec('245','b')
+ )
+ );
+ },
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('A') )
+ );
+ }
+ ) ||
+ lookup(
+ sub { rec('246','a') },
+ 'wiley','full',
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('245','a') )
+ );
+ },
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('A') )
+ );
+ }
+ )
+);
+
+marc('500','a',
+ lookup(
+ sub { rec('500','a') },
+ 'wiley','full',
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc(
+ rec('245','a') . ' ' . rec('245','b')
+ )
+ );
+ },
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('A') )
+ );
+ }
+ ) ||
+ lookup(
+ sub { rec('500','a') },
+ 'wiley','full',
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('245','a') )
+ );
+ },
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('A') )
+ );
+ }
+ )
+);
+
+marc_indicators('650', ' ', 7);
+
+marc('650','a',
+ lookup(
+ sub { rec('650','a') },
+ 'wiley','full',
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc(
+ rec('245','a') . ' ' . rec('245','b')
+ )
+ );
+ },
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('A') )
+ );
+ }
+ ) ||
+ lookup(
+ sub { rec('650','a') },
+ 'wiley','full',
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('245','a') )
+ );
+ },
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('A') )
+ );
+ }
+ )
+);
+
+marc('650','v',
+ lookup(
+ sub { rec('650','v') },
+ 'wiley','full',
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc(
+ rec('245','a') . ' ' . rec('245','b')
+ )
+ );
+ },
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('A') )
+ );
+ }
+ ) ||
+ lookup(
+ sub { rec('650','v') },
+ 'wiley','full',
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('245','a') )
+ );
+ },
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('A') )
+ );
+ }
+ )
+);
+
+
+marc('650','z',
+ lookup(
+ sub { rec('650','z') },
+ 'wiley','full',
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc(
+ rec('245','a') . ' ' . rec('245','b')
+ )
+ );
+ },
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('A') )
+ );
+ }
+ ) ||
+ lookup(
+ sub { rec('650','z') },
+ 'wiley','full',
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('245','a') )
+ );
+ },
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('A') )
+ );
+ }
+ )
+);
+
+
+
marc('856','u',
+ lookup(
+ sub { rec('856','u') },
+ 'wiley','full',
+ sub {
+ lc(
+ rec('245','a') . rec('245','b')
+ )
+ },
+
+ sub {
+ lc( rec('A') )
+ }
+ )
+ ||
lookup(
sub { rec('856','u') },
'wiley','full',
lc( rec('245','a') )
);
},
-
sub {
- lc( rec('A') )
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('A') )
+ );
}
)
);
+# ne konvertira se ako nema polje 200^a
+
if ( rec('200','a') ) {
# Leader
# raspraviti 17,18
-
+#
# u nekim knji¾nicama koristi se 999a i 999b
-
-
+#
# vrijedi za ffan...
if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {
marc_leader('19','r');
}
-
# 001 polje - Voyager
-
+#
# privemeno koristimo 0356 umjesto 0359, zato ¹to marclint 9 prijavljuje kao gre¹ku
+# u marc 035a - System Number - ??
+# NSK zapisuje Voyagerov ID (001) - kako ???
+
marc('035','6',
join_with('',
)
);
-# u marc 035a treba dodati System Number -
-# NSK zapisuje Voyagerov ID (001) - kako ???
# u FFSF bazama postoji nekoliko zaredanih ISBN, odvojenih s '. - '
rec('10')
);
-# u polje 040a mo¾da jo¹ dodati prefiks HR
+
+# u polje 040a - prefiks HR ?
# NSK ima HR NSB (mo¾da u novijim zapisima ima NSK?)
marc('040','a',
'HR PPIAK'
);
-if (rec('300') && first(rec('300')) =~ m/Prijevod/) {
+if ( rec('300') && first(rec('300')) =~ m/Prijevod/) {
marc_indicators('041', 1, ' ');
} else {
marc_indicators('041', 0, ' ');
}
-## naci primjer u NSK
+## naæi primjer u NSK
marc_repeatable_subfield('041','a',
rec('101')
);
+# indikatori za èlanove. treba uvjetovati prema jezicima !!
if ( ( rec('200','a') =~ m/^Die /) ||
( rec('200','a') =~ m/^Das /) ||
);
# ponovljiva potpolja u originalnom redosljedu
-#
+
marc_original_order('260', '210');
rec('300')
);
+marc('500','a',
+ rec('305')
+);
+
+marc('500','a',
+ rec('307')
+);
+
marc('500','a',
rec('314')
);
## FFPS 327 - sadrzaj
if ( config() =~ m/ffps/ || config() =~ m/fftu/ ) {
- marc_indicators('505', '1', ' ');
+ marc_indicators('505', '0', ' ');
marc('505','a',
regex('s/\s*[\\r\\n]+\s*\**\s*/ ; /g',
rec('327')
);
}
+marc('538','a',
+ rec('337','a')
+);
+
# mo¾da i polje 520y - jezik napomene ako je uvijek isti jezik
};
+marc_indicators('776', 0, ' ');
+
+marc('776','a',
+ rec('452','1')
+);
+
+marc('900','a',
+ lookup(
+ sub { rec('000') },
+ 'ffps','libri',
+ sub { rec('200','a') },
+ )
+);
+
+marc('901','a',
+ lookup(
+ sub { 'NSK' },
+ 'nsk','baza',
+ sub { rec('200','a') },
+ )
+);
+
}
}
marc_leader('06','a');
- marc_leader('07','m');
+ marc_leader('07','s');
marc_leader('18','i');
-if ( rec('230') ) {
marc_leader('19','r');
-}
# 001 polje - Voyager
'h', rec('200','b'),
'b', suffix(
( rec('200','k') && rec('200','f') ) ? ' / ' :
- ' ',
+ ' ',
join_with(' ; ',
rec('200','k'),
),
),
# FIXME append to last subfield
# '+', prefix('. ', rec('200','c') ),
+
);
marc('300','a',
suffix(
- rec('215','c') ? ' : ' :
- rec('215','d') ? ' ; ' :
- rec('215','e') ? ' + ' :
- ' ',
+ rec('215','c') ? ' : ' :
+ rec('215','d') ? ' ; ' :
+ rec('215','e') ? ' + ' :
+ ' ',
rec('215','a')
)
);
marc('300','b',
suffix(
- ( rec('215','c') && rec('215','d') ) ? ' ; ' :
- ( rec('215','c') && rec('215','e') ) ? ' + ' :
- ' ',
+ ( rec('215','c') && rec('215','d') ) ? ' ; ' :
+ ( rec('215','c') && rec('215','e') ) ? ' + ' :
+ ' ',
rec('215','c')
)
);
)
);
-## 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);
marc('500','a',
lookup(
sub { rec('304','a') },
- 'ffps','baza',
+ 'nsk','baza',
sub { rec('200','a') },
)
);
+marc('500','a',
+ lookup(
+ sub { rec('306','a') },
+ 'nsk','baza',
+ sub { rec('200','a') },
+ )
+);
+marc('500','a',
+ lookup(
+ sub { rec('314','a') },
+ 'nsk','baza',
+ sub { rec('200','a') },
+ )
+);
+
+marc('500','a',
+ lookup(
+ sub { rec('316','a') },
+ 'nsk','baza',
+ sub { rec('200','a') },
+ )
+);
+
+marc('504','a',
+ lookup(
+ sub { rec('320','a') },
+ 'nsk','baza',
+ sub { rec('200','a') },
+ )
+);
+
+marc('900','a',
+ sort(
+ lookup(
+ sub { rec('000') },
+ 'ffps','peri',
+ sub { rec('200','a') },
+ )
+ )
+);
}
+marc('022','a',
+ rec('022','a')
+);
+
+marc('022','y',
+ rec('022','y')
+);
+
marc_indicators('245', 0, 0);
rec('245','a')
);
+marc('245','b',
+ rec('245','b')
+);
+
marc('245','h',
'[ Elektronièka graða ]'
);
+marc_indicators('246', 0, 0);
+
+marc('246','a',
+ rec('246','a')
+);
+
+marc('500','a',
+ rec('500','a')
+);
+
+marc('500','a',
+ lookup(
+ sub { 'Licenciran' },
+ 'wiley','licenced',
+ sub {
+ lc( rec('A') )
+ },
+ sub {
+ regex('s/\s*(\.|:)\s*$//g',
+ lc( rec('245','a') )
+ );
+ },
+ )
+);
+
+marc_indicators('650', ' ', 2);
+
+marc('650','a',
+ rec('650','a')
+);
+
+marc('650','v',
+ rec('650','v')
+);
+
+marc('650','z',
+ rec('650','z')
+);
+
marc('856','u',
rec('856','u')
);
+
marc_indicators('245', 0, 0);
+
marc('245','a',
- rec('200','a')
+ first(
+ rec('200','a')
+ )
);
marc('500','a',
+
+if ( rec('200') ) {
+
marc('035','6',
join_with('',
config(),
);
-
+}
0
10
101
-200 a c d e f g k
+200 a c d e* f g k
205 a
210 a b c d
215 a c d e
0
10
101
-200 a c d e f g j k v x
+200 a c d e* f g j k v x
205 a
210 a* b c* d e g
215 a c d e
701 a! b c d
702 a! b c d
710 a! b c d e f
-801!
+801
9
990
991
101
200! a! c d e* f g* k
205 a!
-210! a! c! d!
-215! a! c d e
+210 a c d!
+215 a c d e
225 a e h i v w
230 a e* f v
231 a e* f v
702 a! b
710 a! b d e f
711 a! e f
-801!
+801
990
991
994! a! b! c!
261- a c d
262- a c d
263- a c d
-270 a d e h i v w
-271 a d e h i v w
-272 a e h i v w
-273 a e h i v
+270- a d e h i v w
+271- a d e h i v w
+272- a e h i v w
+273- a e h i v
280
281
282
320
327
330
-4
+4-
423 a b c z
464 a c f g x y
532
710 a! b c d e f
711 a! b
801-
-935
+935-
990
991
994 a b c
-995
+995-
996
998 a
999
701 a! b c d e f
702 a! b c d e f
710 a! b c d e f
-801!
+801
990
991
994 a! b c
0
10
101
-200 a c d e f g k
+200 a c d e f g* k
205 a
210 a c d
215 a c d e
701 a b c d
702 a b c d
710 a b c d e f
-711 a
+711 a b e
801
990
991
10
101
2
-200 a! c d e f g k
+200 a! c d e f g k v
205 a!
210 a c d!
-215 a! c d e
-225 a! e h i v w
+215 a c d e
+225 a e h i v w
230 a e f v
231 a e f v
232 a e f v