if ( rec('200','a') ) {
-# Leader
-# raspraviti 17,18
+### LEADER
-# u nekim knji¾nicama koristi se 999a i 999b
+## LDR 05 - n - new
+marc_leader('05','n');
+## LDR 06 - a - language material
+marc_leader('06','a');
-# vrijedi za ffan...
+## LDR 07 - Bibliographic level
+# izvuci podatke iz tablice (za po i sf)
-if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {
- marc_leader('05','c');
+if ( rec('225','a') ) {
+ marc_leader('07','d');
} else {
- marc_leader('05','n');
+ marc_leader('07','s');
}
- marc_leader('06','a');
- marc_leader('07','m');
- marc_leader('18','i');
+## LDR 17 - Encoding level ; 7 - minimal level, u - unknown
+marc_leader('17','u');
-if ( rec('230') ) {
- marc_leader('19','r');
+## LDR 18 - i - isbd
+marc_leader('18','i');
+
+
+## LDR 19 - Multipart resource record level ; # - Not specified or not applicable, a - Set, b - Part with independent title, c - Part with dependent title
+# tematski brojevi imaju vezu u
+
+if ( rec('225','a') ) {
+ marc_leader('19','a');
}
+### 008 - All materials
-# 001 polje - Voyager
+marc_fixed('008','00', '010101'); # 00-05 - Date entered on file
-# privemeno koristimo 0356 umjesto 0359, zato ¹to marclint 9 prijavljuje kao gre¹ku
+## 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
-marc('035','6',
-join_with('',
-# config('input normalize path'),
-# config('name'),
- config(),
- 'L',
-# config('input name'),
-# id(),
-# rec('994','a'),
- rec('000')
- )
+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
+# }
+#
+# if ( $year =~ m/^\d{4}-(\d{4})/ ) {
+## warn "## $1 ##";
+# marc_fixed('008','11',$1); # 11-14 - Date 2
+# marc_fixed('008','06','d');
+# }
+#
+#} else {
+# marc_fixed('008','06','n'); # 06 - n = unknown date
+#}
+
+if ( rec('210','c') ) {
+ my $d1 = '';
+ my $d2 = '';
+ if ( rec('210','c') =~ m/(\d{4})-/ ) {
+ marc_fixed('008','06','m');
+ if ( rec('210','c') =~ m/(\d{4})-/ ) {
+ $d1 = $1;
+ $d2 = '9999';
+ }
+ if ( rec('210','c') =~ m/-(\d{4})/ ) {
+ $d2 = $1;
+ }
+ } else {
+ marc_fixed('008','06','s');
+ if ( rec('210','c') =~ m/(\d{4})/ ) {
+ $d1 = $1;
+ }
+ if ( rec('210','c') =~ m/(\d{2})(--|__)/ ) {
+ $d1 = $1.'uu';
+ }
+ if ( rec('210','c') =~ m/(\d{3})(-|_)/ ) {
+ $d1 = $1.'u';
+ }
+ }
+ marc_fixed('008','07',$d1); # 07-10 - Date 1
+ marc_fixed('008','11',$d2); # 07-10 - Date 1
+} else {
+ marc_fixed('008','06','n'); # 06 - n = unknown date
+ marc_fixed('008','07','uuuu');
+}
+
+marc_fixed('008','15', # 15-17 - Place of publication, production, or execution
+ lc ( rec('102') )
);
-# u marc 035a treba dodati System Number -
-# NSK zapisuje Voyagerov ID (001) - kako ???
-# u FFSF bazama postoji nekoliko zaredanih ISBN, odvojenih s '. - '
-marc('020','a',
- rec('10')
+marc_fixed('008','35',
+ first( lc(rec('101')) ) # 35-37 - Language
);
+ # 38 - Modified record
+ # 39 - Cataloging source
+
+### 008 - Continuing resources
+
+if ( ! rec('225','a') ) {
+
+marc_fixed('008','18', 'u'); # 18 - Frequency - ovo treba popuniti iz polja 326
+marc_fixed('008','19', 'u'); # 19 - Regularity
+ # 20 - Undefined, ontains a blank (#) or fill character (|)
-marc('022','a',
- rec('11')
+# 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') ) {
+# 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
+
+my $id;
+
+$id = (
+ join_with('',
+ uc( config() ),
+ ' P',
+ rec('000')
+ )
);
-# u polje 040a mo¾da jo¹ dodati prefiks HR
-# NSK ima HR NSB (mo¾da u novijim zapisima ima NSK?)
+marc('035','6', $id);
+
+### 040
+# za sve je isti
+# treba utvrditi toènu oznaku za ustanovu
marc('040','a',
'HR FFZG'
'HR PPIAK'
);
-# if (rec('300') && first(rec('300')) =~ m/Prijevod/) {
-# marc_indicators('041', 1, ' ');
-# } else {
-# marc_indicators('041', 0, ' ');
-# }
+### 041 - indikatori
-## naci primjer u NSK
+marc_indicators('041', 0, ' ');
+
+### 041
marc_repeatable_subfield('041','a',
rec('101')
);
+#_debug(3);
+
+### 044 - zemlja izdavanja
+
+marc('044','a',
+ rec('102')
+);
+
+### 080
+
+marc('080','a',
+ rec('675','a')
+);
+
+### 210 indikatori
+# marc_indicators('210', '1',' ');
+
+### 210 - ABBREVIATED TITLE
+# pronaæi prikladan 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('222','a',
+ 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, trebalo bi mo¾da i prema jeziku (jezika nema uvijek).
+# potrebna naknadna kontrola
+
+marc_indicators('245', 0, 0);
+
if ( ( rec('200','a') =~ m/^Die /) ||
( rec('200','a') =~ m/^Das /) ||
+ ( rec('200','a') =~ m/^Der /) ||
+ ( rec('200','a') =~ m/^Les /) ||
( rec('200','a') =~ m/^The /) ) {
marc_indicators('245', 0, 4);
-} else {
- marc_indicators('245', 0, 0);
-}
-#_debug(3);
+}
+
+if ( ( rec('200','a') =~ m/^Un /) ||
+ ( rec('200','a') =~ m/^An /) ||
+ ( rec('200','a') =~ m/^La /) ||
+ ( rec('200','a') =~ m/^Le /) ||
+ ( rec('200','a') =~ m/^Il /) ) {
+ marc_indicators('245', 0, 3);
+}
+
+if ( ( rec('200','a') =~ m/^A /) ||
+ ( rec('200','a') =~ m/^L'/) ) {
+ marc_indicators('245', 0, 2);
+}
+
+### 245
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'),
),
-
-# ovo trenutno radi za sluèaj kad f nije ponovljivo i kad uvijek postoje c i f u paru !!!
- 'c', join_with('. ',
- rec('200','f'),
- rec('200','c'),
+ 'c', suffix(
+ ( rec('200','f') && rec('200','c') ) ? '.' :
+ '',
+ rec('200','f'),
),
-# FIXME append to last subfield
-# '+', prefix('. ', rec('200','c') ),
+ '+', suffix('.',
+ rec('200','c'),
+ )
);
+### 246 inikatori
+# prema jeziku - provjera
-#_debug(0);
+if ( ( rec('200','a') =~ m/^Die /) ||
+ ( rec('200','a') =~ m/^Das /) ||
+ ( rec('200','a') =~ m/^The /) ) {
+ marc_indicators('246', 0, 4);
+} else {
+ marc_indicators('246', 0, 0);
+}
-marc('250','a',
- suffix(
- rec('205','f') ? ' / ' :
- ' '.
- rec('205','a')
- )
-);
+### 246
+# povuæi podatke iz prikladnog izvora (nsk, issn)
-marc('250','b',
- rec('205','f')
+marc('246','a',
+ rec('532')
);
-# ponovljiva potpolja u originalnom redosljedu
-#
-marc_original_order('260', '210');
+## iz nsk:
+# marc('246','a',
+# lookup(
+# sub { rec('532','a') },
+# 'nsk','bbaza',
+# sub { rec('011','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(
+# sub { rec('210','a') },
+# 'nsk','bbaza',
+# sub { rec('011','a') },
+# sub { rec('11') },
+# )
+# );
+# marc_repeatable_subfield('260','b',
+# lookup(
+# sub { rec('210','c') },
+# 'nsk','bbaza',
+# sub { rec('011','a') },
+# sub { rec('11') },
+# )
+# );
+# marc('260','c',
+# lookup(
+# sub { rec('210','d') },
+# 'nsk','bbaza',
+# sub { rec('011','a') },
+# sub { rec('11') },
+# )
+# );
+# } else {
+# marc_original_order('260', '210');
+# }
-# provjeriti interpunkcije !!
-# u NSK nesto ne stima
+### 300
marc('300','a',
suffix(
- rec('215','c') ? ' : ' :
- rec('215','d') ? ' ; ' :
- rec('215','e') ? ' + ' :
- ' ',
+ ( rec('215','a') && rec('215','c') ) ? ' : ' :
+ ( rec('215','a') && rec('215','d') ) ? ' ; ' :
+ ( rec('215','a') && 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')
)
);
rec('215','e')
);
+### 310 - current stated publication frequency
+# potrebno ujednaèiti, koristi se i u polju 008
-# provjeriti
-
-marc_indicators('490', 0, ' ');
-
-marc('490','a',
- rec('225','a')
+marc('310','a',
+ rec('326')
);
-marc('490','v',
- join_with(', ',
- rec('225','v'),
- rec('225','w')
- ),
-);
+### 321 - former frequency of either an item or an update to an item when a current frequency is contained in field 310
-marc('490','x',
- rec('225','x')
-);
-
-#marc('490','a',
-# join_with(' : ',
-# rec('225','a'),
-# join_with(" = ",
-# rec('225','d'),
-# join_with(" / ",
-# rec('225','e'),
-# rec('225','f')
-# )
-# )
-# )
+# marc('321','a',
+# ovo bi trebalo procitati iz NSK konvertiranih podataka
#);
-#marc('490','v',
-# join2_with(225, 'v', ' , ', 225,'w');
-# join_with(', ',
-# rec('225','v'),
-# rec('225','w')
-# )
-#);
+marc_indicators('362', 0, ' ');
-#marc('500','a',
-# rec('300')
-#);
-#
-#marc('500','a',
-# rec('314')
-#);
+### 362
#
-#marc('504','a',
-# rec('320')
-#);
+if ( rec('207','a') ) {
+ marc('362','a',
+ rec('207','a'),
+ );
+}
-## 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)
+## 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') },
+# )
+# );
+# }
+#}
-## FFPS 327 - sadrzaj
-if ( config() =~ m/ffps/ || config() =~ m/fftu/ ) {
- marc_indicators('505', '1', ' ');
- marc('505','a',
- regex('s/\s*[\\r\\n]+\s*\**\s*/ ; /g',
- rec('327')
- )
-);
-}
+### 490 ind.
+
+marc_indicators('490', '0', ' ');
+### 490
-## napomene uz konverziju polja 330:
-# NSK konvertira 330 (P) u 520 (P) = LOC konv. tablica
+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')
+ )
+);
+marc('490','v',
+ rec('225','v')
+);
-# FFPS 330 (NP) - sa¾etak
-if ( config() =~ m/ffps/ ) {
- marc('520','a',
- regex('s/[\\r\\n]+/. /g',
- rec('330')
- )
- );
-}
+marc('490','x',
+ rec('225','x')
+);
-# FFTU 330 - ???
-if ( config() =~ m/fftu/ ) {
- marc('520','a',
- rec('330')
+if ( rec('11') ) {
+ marc('999','a',
+ lookup(
+ sub { rec('110','a'), },
+ 'nsk','bbaza',
+ sub { rec('011','a') },
+ sub { rec('11') }
+ )
);
}
-# mo¾da i polje 520y - jezik napomene ako je uvijek isti jezik
+#marc('998','a',
+# lookup(
+# sub { rec('H') },
+# 'ffsf','xls',
+# sub { rec('A') },
+# sub { $id },
+# ),
+#);
-marc_indicators('246', 1, 3);
-marc('246','a',
- rec('532')
-);
-marc_indicators('655', ' ', 4);
-marc('655','a',
- rec('608')
-);
+### 5xx
+# koje podatke povuæi iz drugih baza?
-marc_indicators('653', 0, ' ');
-marc('653','a',
- rec('610')
+marc('500','a',
+ rec('300','a'),
);
+
-# 675 podpolja c, d ... - ¹to s njima ???
+### 534 - napomena o pretisku
-marc('080','a',
- rec('675','a')
+marc('534','a',
+ rec('324')
);
-# 084 je 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
+## potencijalno za izvuæi iz NSK
+#if ( rec('11') ) {
+#marc('546','a',
+# lookup(
+# sub { rec('302','a') },
+# 'nsk','bbaza',
+# sub { rec('011','a') },
+# sub { rec('11') },
+# )
+#);
#
-# polje 686 koristi FFPS
+#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, ' ');
-marc('084','a',
- rec('686')
-);
+### 653
-marc_indicators('100', 1, ' ');
-marc('100','a',
- join_with(', ',
- rec('700', 'a'),
- rec('700', 'b')
- )
+marc('653','a',
+ rec('610')
);
+# marc_indicators('655', ' ', 4);
+# marc('655','a',
+# lookup(
+# sub { rec('608','a') },
+# 'nsk','bbaza',
+# sub { rec('011','a') },
+# sub { rec('11') },
+# )
+# );
+
+
#_debug(2);
+### 700 indikatori
+
marc_indicators('700', 1, ' ');
-if ( rec('701') ) {
-marc('700','4',
- 'aut'
-);
-}
+### 700
marc('700','a',
- join_with(', ',
- rec('701', 'a'),
- rec('701', 'b')
- )
+ rec('702','a'),
);
marc('700','a',
join_with(', ',
- rec('701', 'c'),
- rec('701', 'd')
+ rec('702','c'),
+ rec('702','d')
)
);
-marc('700','a',
- join_with(', ',
- rec('701', 'e'),
- rec('701', 'f')
- )
-);
+
+#_debug(0);
-marc('700','a',
- join_with(', ',
- rec('701', 'g'),
- rec('701', 'h')
- )
-);
+### 710 indikatori
+marc_indicators('710', '2', ' ');
-marc('700','a',
- rec('702','a'),
+### 710
+marc('710','a',
+ rec('710','a')
);
+### 770 indikatori
-# ako je u originalu ponovljivo polje treba biti i konvertirano u ponovljivo !!
-
+marc_indicators('770', 0, ' ');
-marc('700','a',
- join_with(', ',
- rec('702','c'),
- rec('702','d')
- )
+### 770
+marc('770','t',
+ rec('421','a'),
);
-marc('700','a',
- join_with(', ',
- rec('702','e'),
- rec('702','f')
- )
+### 772 indikatori
+marc_indicators('772', 0, ' ');
+
+### 772
+marc('772','t',
+ rec('422','a'),
);
-marc('700','a',
- join_with(', ',
- rec('702','g'),
- rec('702','h')
+### 773 indikatori
+
+if ( rec('225','a') ) {
+
+marc_indicators('773', 0, ' ');
+
+### 773
+## da li je bitan redoslijed potpolja?
+
+marc('773','w',
+ lookup(
+ sub { rec('000') },
+ 'ffsf','peri',
+ sub { rec('200','a') },
+ sub {
+ regex('s/ ; //g',
+ rec('225','a')
+ )
+ },
)
);
-## 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);
+### 777 indikatori
+marc_indicators('777', 0, ' ');
-if ( rec('710','f') ) {
+### 777
-marc_indicators('111', 2, ' ');
-marc('111','a',
- rec('710','a')
+marc('777','t',
+ rec('423','a'),
);
-marc('111','c',
- rec('710','e')
-);
+### 780 indikatori
-marc('111','d',
- rec('710','f')
-);
+marc_indicators('780', 0, 0);
-marc('111','e',
- rec('710','b')
+### 780
+marc('780','t',
+ rec('430','a'),
);
-marc('111','n',
- rec('710','d')
-);
+### 785 indikatori
+marc_indicators('785', 0, 0);
-} else {
-
-marc_indicators('110', 2, ' ');
-marc('110','a',
- rec('710','a')
+### 785
+marc('785','t',
+ rec('440','a'),
);
-marc('110','c',
- rec('710','c')
+### 852
+
+marc('852','j',
+ join_with(' ',
+ rec('990')
+ )
);
-};
+### 876
+marc('876','a',
+ rec('991','a')
+);
-marc_indicators('740', 0, ' ');
+### 992
-if ( ! rec('464') ) {
-marc('740','a',
- rec('200','c')
+marc('992','a',
+ join_with(' ; ',
+ rec('992')
+ )
);
-marc('740','a',
- rec('200','k')
-);
-} else {
-marc('740','a',
- rec('464','a')
-);
-};
+### polja za probu
-marc('500','a',
- lookup(
- sub { rec('304','a') },
- 'ffps','baza',
- sub { rec('200','a') },
- )
-);
+#marc('998','a',
+# lookup(
+# sub { rec('200','a') },
+# 'ffiz','peri',
+# sub { rec('200','a'), },
+# sub { rec('225','a'), }
+# )
+#);
+
+# marc('997','a',
+# sort(
+# lookup(
+# sub { rec('001') },
+# 'nsk','bbaza',
+# sub { rec('011','a') },
+# sub { rec('11') },
+# )
+# )
+# );
+#
+# marc('998','a',
+# sort(
+# lookup(
+# sub { rec('001') },
+# 'nsk','bbaza',
+# sub { first(rec('200','a')) . first(rec('200','e')) },
+# sub { rec('200','a') . rec('200','e') },
+# )
+# )
+# );
+#
+# marc('998','a',
+# sort(
+# lookup(
+# sub { rec('001') },
+# 'nsk','bbaza',
+# sub { first(rec('200','a')) },
+# sub { rec('200','a') },
+# )
+# )
+# );
-}
+}# 200a
projects / webpac2 / blobdiff