--- /dev/null
+
+### LEADER
+
+## LDR 05 - n - new
+marc_leader('05','n');
+
+## LDR 06 - a - language material
+marc_leader('06','a');
+
+## LDR 07 - Bibliographic level
+marc_leader('07','s');
+
+## LDR 17 - Encoding level ; 7 - minimal level, u - unknown
+marc_leader('17','u');
+
+## LDR 18 - i - isbd
+marc_leader('18','i');
+
+### 008 - All materials
+marc_fixed('008','00', '090512'); # 00-05 - Date entered on file
+
+## za 008 06 treba i lookup u tablicu u kojoj postoji podatak o tome jel tekuci casopis ili nije?
+## c - Continuing resource currently published
+## d - Continuing resource ceased publication
+
+marc_fixed('008','06','|'); # 06 - Type of date/Publication status, s = single know date, | = no attempt to code
+marc_fixed('008','07','||||');
+marc_fixed('008','11','||||');
+marc_fixed('008','15','xx ');
+ # 18-34 - Material specific coded elements
+ # 35-37 - Language
+marc_fixed('008','38','|'); # 38 - Modified record
+marc_fixed('008','39','d'); # 39 - Cataloging source
+
+### 008 - Continuing resources
+
+marc_fixed('008','18', '|'); # 18 - Frequency - ovo treba popuniti iz polja 326
+marc_fixed('008','19', '|'); # 19 - Regularity
+ # 20 - Undefined, ontains a blank (#) or fill character (|)
+
+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
+marc_fixed('008','22', ' ');
+marc_fixed('008','23', ' ');
+marc_fixed('008','24', '|');
+marc_fixed('008','25', '|||');
+marc_fixed('008','28', ' ');
+marc_fixed('008','29', ' ');
+marc_fixed('008','33', '|');
+marc_fixed('008','34', '|');
+
+### 022
+
+marc('022','a',
+ rec('F')
+);
+
+### 035$a
+
+if ( rec('B') ) {
+ marc('035','a',
+ join_with(' ',
+ 'HR-ZaFF',
+ join_with('',
+ suffix('P',
+ lc( rec('A') )
+ ),
+ rec('B')
+ ),
+ )
+ );
+}
+
+### 040
+# za sve je isti
+# treba utvrditi toènu oznaku za ustanovu
+
+marc('040','a',
+ 'HR FFZG'
+);
+
+marc('040','b',
+ 'hrv'
+);
+
+marc('040','c',
+ 'HR-ZaFF'
+);
+
+marc('040','e',
+ 'ppiak'
+);
+
+
+#_debug(3);
+
+## 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('E') =~ m/^Die /) ||
+ ( rec('E') =~ m/^Das /) ||
+ ( rec('E') =~ m/^Der /) ||
+ ( rec('E') =~ m/^Les /) ||
+ ( rec('E') =~ m/^The /) ) {
+ marc_indicators('245', 0, 4);
+
+}
+
+if ( ( rec('E') =~ m/^Un /) ||
+ ( rec('E') =~ m/^An /) ||
+ ( rec('E') =~ m/^La /) ||
+ ( rec('E') =~ m/^Le /) ||
+ ( rec('E') =~ m/^Il /) ) {
+ marc_indicators('245', 0, 3);
+}
+
+if ( ( rec('E') =~ m/^A /) ||
+ ( rec('E') =~ m/^L'/) ) {
+ marc_indicators('245', 0, 2);
+}
+
+### 245
+
+if ( rec('E') =~ m/:/ ) {
+ marc('245','a',
+ suffix(' :',
+ regex('s/(^.*):.*/$1/',
+ rec('E')
+ )
+ )
+ );
+ marc('245','b',
+ regex('s/^.*: (.*)/$1/',
+ rec('E')
+ )
+ );
+} else {
+ marc('245','a',
+ rec('E')
+ );
+}
+
+# ### 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, 4);
+# } else {
+# marc_indicators('246', 0, 0);
+# }
+#
+# ### 246
+# # povuæi podatke iz prikladnog izvora (nsk, issn)
+#
+# marc('246','a',
+# rec('532')
+# );
+#
+# ## 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');
+# # }
+#
+#
+# ### 300
+#
+# marc('300','a',
+# suffix(
+# ( 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')
+# )
+# );
+#
+# marc('300','c',
+# suffix(
+# rec('215','e') ? ' + ' :
+# ' ',
+# rec('215','d')
+# )
+# );
+#
+# marc('300','e',
+# rec('215','e')
+# );
+#
+# ### 310 - current stated publication frequency
+# # potrebno ujednaèiti, koristi se i u polju 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
+#
+# # marc('321','a',
+# # ovo bi trebalo procitati iz NSK konvertiranih podataka
+# #);
+#
+# marc_indicators('362', 0, ' ');
+#
+# ### 362
+# #
+# if ( rec('207','a') ) {
+# marc('362','a',
+# rec('207','a'),
+# );
+# }
+#
+# ## 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')
+# )
+# );
+#
+# marc('490','v',
+# rec('225','v')
+# );
+#
+# marc('490','x',
+# rec('225','x')
+# );
+#
+# if ( rec('11') ) {
+# marc('999','a',
+# lookup(
+# sub { rec('110','a'), },
+# 'nsk','bbaza',
+# sub { rec('011','a') },
+# sub { rec('11') }
+# )
+# );
+# }
+#
+#
+# #marc('998','a',
+# # lookup(
+# # sub { rec('H') },
+# # 'ffsf','xls',
+# # sub { rec('A') },
+# # sub { $id },
+# # ),
+# #);
+
+
+### 500
+# lookup
+#
+#
+# marc('500','a',
+# rec(''),
+# );
+#
+#
+# ### 534 - napomena o pretisku
+#
+# marc('534','a',
+# rec('324')
+# );
+#
+# ## 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') },
+# # )
+# #);
+# #
+# #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') },
+# ## )
+# ## );
+# #}
+
+
+if ( rec('B') ) {
+ marc('996','a',
+ lc( rec('A') )
+ );
+
+ marc('996','b',
+ 'peri'
+ );
+
+ marc('996','c',
+ rec('B')
+ );
+}
+
+#
+# ### 653 indikatori
+# marc_indicators('653', 0, ' ');
+#
+# ### 653
+#
+# 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, ' ');
+#
+# ### 700
+#
+# marc('700','a',
+# rec('702','a'),
+# );
+#
+# marc('700','a',
+# join_with(', ',
+# rec('702','c'),
+# rec('702','d')
+# )
+# );
+#
+#
+# #_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'),
+# );
+#
+# ### 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')
+# )
+# },
+# )
+# );
+#
+# }
+#
+#
+# ### 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')
+# );
+
+marc('942','d',
+ rec('C')
+);
+
+
+
+#
+# ### 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(
+# 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') },
+# )
+# )
+# );
+
projects / webpac2 / blobdiff