conf/ffcasopisi/sigxls2marc.pl


### 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')
        );
}

if ( rec('E') =~ m# / #  && rec('E') =~ m/[:=]/ ) {
        marc('299','a',
                regex('s/(^.*?[:=]) (.*\/) (.*)/$1/',
                        rec('E')
                )
        );
        marc('299','b',
                regex('s/(^.*?[:=]) (.*\/) (.*)/$2/',
                        rec('E')
                )
        );
        marc('299','c',
                regex('s/(^.*?[:=]) (.*\/) (.*)/$3/',
                        rec('E')
                )
        );
                
} elsif ( rec('E') =~ m/ \/ /  && rec('E') !~ m/[:=]/ ) {
        marc('299','a',
                regex('s/(^.*?\/) (.*)/$1/',
                        rec('E')
                )
        );
        marc('299','c',
                regex('s/(^.*?\/) (.*)/$2/',
                        rec('E')
                )
        );
} elsif ( rec('E') !~ m/ \/ / && rec('E') =~ m/[:=]/ ) {
        marc('299','a',
                regex('s/(^.*?[:=]) (.*)/$1/',
                        rec('E')
                )
        );
        marc('299','b',
                regex('s/(^.*?[:=]) (.*)/$2/',
                        rec('E')
                )
        );

} else {        
        marc('299','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') },
#               )
#       )
# );

1	mglavica	1182
2			### LEADER
3
4			## LDR 05 - n - new
5			marc_leader('05','n');
6
7			## LDR 06 - a - language material
8			marc_leader('06','a');
9
10			## LDR 07 - Bibliographic level
11			marc_leader('07','s');
12
13			## LDR 17 - Encoding level ; 7 - minimal level, u - unknown
14			marc_leader('17','u');
15
16			## LDR 18 - i - isbd
17			marc_leader('18','i');
18
19			### 008 - All materials
20			marc_fixed('008','00', '090512'); # 00-05 - Date entered on file
21
22			## za 008 06 treba i lookup u tablicu u kojoj postoji podatak o tome jel tekuci casopis ili nije?
23			## c - Continuing resource currently published
24			## d - Continuing resource ceased publication
25
26			marc_fixed('008','06','\|'); # 06 - Type of date/Publication status, s = single know date, \| = no attempt to code
27			marc_fixed('008','07','\|\|\|\|');
28			marc_fixed('008','11','\|\|\|\|');
29			marc_fixed('008','15','xx ');
30			# 18-34 - Material specific coded elements
31			# 35-37 - Language
32			marc_fixed('008','38','\|'); # 38 - Modified record
33			marc_fixed('008','39','d'); # 39 - Cataloging source
34
35			### 008 - Continuing resources
36
37			marc_fixed('008','18', '\|'); # 18 - Frequency - ovo treba popuniti iz polja 326
38			marc_fixed('008','19', '\|'); # 19 - Regularity
39			# 20 - Undefined, ontains a blank (#) or fill character (\|)
40
41			marc_fixed('008','21', 'p'); # 21 - Type of continuing resource
42
43			# 22 - Form of original item - blank
44			# 23 - Form of item
45			# 24 - Nature of entire work
46			# 25-27 - Nature of contents
47			# 28 - Government publication
48			# 29 - Conference publication
49			# 30-32 - Undefined
50			# 33 - Original alphabet or script of title
51			# 34 - Entry convention
52			marc_fixed('008','22', ' ');
53			marc_fixed('008','23', ' ');
54			marc_fixed('008','24', '\|');
55			marc_fixed('008','25', '\|\|\|');
56			marc_fixed('008','28', ' ');
57			marc_fixed('008','29', ' ');
58			marc_fixed('008','33', '\|');
59			marc_fixed('008','34', '\|');
60
61			### 022
62
63			marc('022','a',
64			rec('F')
65			);
66
67			### 035$a
68
69			if ( rec('B') ) {
70			marc('035','a',
71			join_with(' ',
72			'HR-ZaFF',
73			join_with('',
74			suffix('P',
75			lc( rec('A') )
76			),
77			rec('B')
78			),
79			)
80			);
81			}
82
83			### 040
84			# za sve je isti
85			# treba utvrditi toènu oznaku za ustanovu
86
87			marc('040','a',
88			'HR FFZG'
89			);
90
91			marc('040','b',
92			'hrv'
93			);
94
95			marc('040','c',
96			'HR-ZaFF'
97			);
98
99			marc('040','e',
100			'ppiak'
101			);
102
103
104			#_debug(3);
105
106			## iz nsk
107			#if ( rec('11') ) {
108			#marc('210','a',
109			# lookup(
110			# sub { rec('531','a') },
111			# 'nsk','bbaza',
112			# sub { rec('011','a') },
113			# sub { rec('11') },
114			# )
115			#);
116			#}
117
118			# ### 222 indikatori
119			# # drugi indikator prema èlanu
120			#
121			# marc_indicators('222',' ','0');
122			#
123			# ### 222 - Key title
124			# # pronaæi prikadan izvor podataka - nsk baza, issn baze
125			#
126			# marc('222','a',
127			# rec('530')
128			# );
129			#
130			# # iz nsk:
131			# #if ( rec('11') ) {
132			# #marc('222','a',
133			# # lookup(
134			# # sub { rec('530','a') },
135			# # 'nsk','bbaza',
136			# # sub { rec('011','a') },
137			# # sub { rec('11') },
138			# # )
139			# #);
140			# #}
141
142			### 245 indikatori
143			# generiraju se prema èlanu, trebalo bi mo¾da i prema jeziku (jezika nema uvijek).
144			# potrebna naknadna kontrola
145
146			marc_indicators('245', 0, 0);
147
148			if ( ( rec('E') =~ m/^Die /) \|\|
149			( rec('E') =~ m/^Das /) \|\|
150			( rec('E') =~ m/^Der /) \|\|
151			( rec('E') =~ m/^Les /) \|\|
152			( rec('E') =~ m/^The /) ) {
153			marc_indicators('245', 0, 4);
154
155			}
156
157			if ( ( rec('E') =~ m/^Un /) \|\|
158			( rec('E') =~ m/^An /) \|\|
159			( rec('E') =~ m/^La /) \|\|
160			( rec('E') =~ m/^Le /) \|\|
161			( rec('E') =~ m/^Il /) ) {
162			marc_indicators('245', 0, 3);
163			}
164
165			if ( ( rec('E') =~ m/^A /) \|\|
166			( rec('E') =~ m/^L'/) ) {
167			marc_indicators('245', 0, 2);
168			}
169
170			### 245
171
172			if ( rec('E') =~ m/:/ ) {
173			marc('245','a',
174			suffix(' :',
175			regex('s/(^.):./$1/',
176			rec('E')
177			)
178			)
179			);
180			marc('245','b',
181			regex('s/^.: (.)/$1/',
182			rec('E')
183			)
184			);
185			} else {
186			marc('245','a',
187			rec('E')
188			);
189			}
190
191	mglavica	1273	if ( rec('E') =~ m# / # && rec('E') =~ m/[:=]/ ) {
192			marc('299','a',
193			regex('s/(^.?[:=]) (.\/) (.*)/$1/',
194			rec('E')
195			)
196			);
197			marc('299','b',
198			regex('s/(^.?[:=]) (.\/) (.*)/$2/',
199			rec('E')
200			)
201			);
202			marc('299','c',
203			regex('s/(^.?[:=]) (.\/) (.*)/$3/',
204			rec('E')
205			)
206			);
207
208			} elsif ( rec('E') =~ m/ \/ / && rec('E') !~ m/[:=]/ ) {
209			marc('299','a',
210			regex('s/(^.?\/) (.)/$1/',
211			rec('E')
212			)
213			);
214			marc('299','c',
215			regex('s/(^.?\/) (.)/$2/',
216			rec('E')
217			)
218			);
219			} elsif ( rec('E') !~ m/ \/ / && rec('E') =~ m/[:=]/ ) {
220			marc('299','a',
221			regex('s/(^.?[:=]) (.)/$1/',
222			rec('E')
223			)
224			);
225			marc('299','b',
226			regex('s/(^.?[:=]) (.)/$2/',
227			rec('E')
228			)
229			);
230
231			} else {
232			marc('299','a',
233			rec('E')
234			);
235			}
236
237	mglavica	1182	# ### 246 inikatori
238			# # prema jeziku - provjera
239			#
240			# if ( ( rec('200','a') =~ m/^Die /) \|\|
241			# ( rec('200','a') =~ m/^Das /) \|\|
242			# ( rec('200','a') =~ m/^The /) ) {
243			# marc_indicators('246', 0, 4);
244			# } else {
245			# marc_indicators('246', 0, 0);
246			# }
247			#
248			# ### 246
249			# # povuæi podatke iz prikladnog izvora (nsk, issn)
250			#
251			# marc('246','a',
252			# rec('532')
253			# );
254			#
255			# ## iz nsk:
256			# # marc('246','a',
257			# # lookup(
258			# # sub { rec('532','a') },
259			# # 'nsk','bbaza',
260			# # sub { rec('011','a') },
261			# # sub { rec('11') },
262			# # )
263			# # );
264			#
265			# #_debug(0);
266			#
267			#
268			# ## 260 - izdavanje
269			# # provjeriti interpunkcije !!, u NSK nesto ne stima
270			#
271			# marc_original_order('260','210');
272			#
273			# ## lookup u NSK:
274			# # if ( rec('11') ) {
275			# # marc_repeatable_subfield('260','a',
276			# # lookup(
277			# # sub { rec('210','a') },
278			# # 'nsk','bbaza',
279			# # sub { rec('011','a') },
280			# # sub { rec('11') },
281			# # )
282			# # );
283			# # marc_repeatable_subfield('260','b',
284			# # lookup(
285			# # sub { rec('210','c') },
286			# # 'nsk','bbaza',
287			# # sub { rec('011','a') },
288			# # sub { rec('11') },
289			# # )
290			# # );
291			# # marc('260','c',
292			# # lookup(
293			# # sub { rec('210','d') },
294			# # 'nsk','bbaza',
295			# # sub { rec('011','a') },
296			# # sub { rec('11') },
297			# # )
298			# # );
299			# # } else {
300			# # marc_original_order('260', '210');
301			# # }
302			#
303			#
304			# ### 300
305			#
306			# marc('300','a',
307			# suffix(
308			# ( rec('215','a') && rec('215','c') ) ? ' : ' :
309			# ( rec('215','a') && rec('215','d') ) ? ' ; ' :
310			# ( rec('215','a') && rec('215','e') ) ? ' + ' :
311			# ' ',
312			# rec('215','a')
313			# )
314			# );
315			#
316			# marc('300','b',
317			# suffix(
318			# ( rec('215','c') && rec('215','d') ) ? ' ; ' :
319			# ( rec('215','c') && rec('215','e') ) ? ' + ' :
320			# ' ',
321			# rec('215','c')
322			# )
323			# );
324			#
325			# marc('300','c',
326			# suffix(
327			# rec('215','e') ? ' + ' :
328			# ' ',
329			# rec('215','d')
330			# )
331			# );
332			#
333			# marc('300','e',
334			# rec('215','e')
335			# );
336			#
337			# ### 310 - current stated publication frequency
338			# # potrebno ujednaèiti, koristi se i u polju 008
339			#
340			# marc('310','a',
341			# rec('326')
342			# );
343			#
344			# ### 321 - former frequency of either an item or an update to an item when a current frequency is contained in field 310
345			#
346			# # marc('321','a',
347			# # ovo bi trebalo procitati iz NSK konvertiranih podataka
348			# #);
349			#
350			# marc_indicators('362', 0, ' ');
351			#
352			# ### 362
353			# #
354			# if ( rec('207','a') ) {
355			# marc('362','a',
356			# rec('207','a'),
357			# );
358			# }
359			#
360			# ## lookup iz nsk
361			# #else {
362			# # if ( rec('11') ) {
363			# # marc('362','a',
364			# # lookup(
365			# # sub { rec('207','a') },
366			# # 'nsk','bbaza',
367			# # sub { first( rec('011','a') ) },
368			# # sub { rec('11') },
369			# # )
370			# # );
371			# # }
372			# #}
373			#
374			# ### 490 ind.
375			#
376			# marc_indicators('490', '0', ' ');
377			#
378			# ### 490
379			#
380			# marc('490','a',
381			# join_with('. ',
382			# join_with(' / ',
383			# join_with(' : ',
384			# join_with(' = ',
385			# rec('225','a'),
386			# rec('225','d')
387			# ),
388			# rec('225','e')
389			# ),
390			# join_with(' ; ',
391			# rec('225','f'),
392			# rec('225','g')
393			# ),
394			# ),
395			# rec('225','h')
396			# )
397			# );
398			#
399			# marc('490','v',
400			# rec('225','v')
401			# );
402			#
403			# marc('490','x',
404			# rec('225','x')
405			# );
406			#
407			# if ( rec('11') ) {
408			# marc('999','a',
409			# lookup(
410			# sub { rec('110','a'), },
411			# 'nsk','bbaza',
412			# sub { rec('011','a') },
413			# sub { rec('11') }
414			# )
415			# );
416			# }
417			#
418			#
419			# #marc('998','a',
420			# # lookup(
421			# # sub { rec('H') },
422			# # 'ffsf','xls',
423			# # sub { rec('A') },
424			# # sub { $id },
425			# # ),
426			# #);
427
428
429			### 500
430			# lookup
431			#
432			#
433			# marc('500','a',
434			# rec(''),
435			# );
436			#
437			#
438			# ### 534 - napomena o pretisku
439			#
440			# marc('534','a',
441			# rec('324')
442			# );
443			#
444			# ## potencijalno za izvuæi iz NSK
445			# #if ( rec('11') ) {
446			# #marc('546','a',
447			# # lookup(
448			# # sub { rec('302','a') },
449			# # 'nsk','bbaza',
450			# # sub { rec('011','a') },
451			# # sub { rec('11') },
452			# # )
453			# #);
454			# #
455			# #marc('550','a',
456			# # lookup(
457			# # sub { rec('314','a') },
458			# # 'nsk','bbaza',
459			# # sub { rec('011','a') },
460			# # sub { rec('11') },
461			# # )
462			# #);
463			# #
464			# #marc('555','a',
465			# # lookup(
466			# # sub { rec('320','a') },
467			# # 'nsk','bbaza',
468			# # sub { rec('011','a') },
469			# # sub { rec('11') },
470			# # )
471			# #);
472			# #
473			# #
474			# ## marc('562','a',
475			# ## lookup(
476			# ## sub { rec('316','a') },
477			# ## 'nsk','bbaza',
478			# ## sub { rec('011','a') },
479			# ## sub { rec('11') },
480			# ## )
481			# ## );
482			# #}
483
484
485			if ( rec('B') ) {
486			marc('996','a',
487			lc( rec('A') )
488			);
489
490			marc('996','b',
491			'peri'
492			);
493
494			marc('996','c',
495			rec('B')
496			);
497			}
498
499			#
500			# ### 653 indikatori
501			# marc_indicators('653', 0, ' ');
502			#
503			# ### 653
504			#
505			# marc('653','a',
506			# rec('610')
507			# );
508			#
509			# # marc_indicators('655', ' ', 4);
510			# # marc('655','a',
511			# # lookup(
512			# # sub { rec('608','a') },
513			# # 'nsk','bbaza',
514			# # sub { rec('011','a') },
515			# # sub { rec('11') },
516			# # )
517			# # );
518			#
519			#
520			# #_debug(2);
521			#
522			# ### 700 indikatori
523			#
524			# marc_indicators('700', 1, ' ');
525			#
526			# ### 700
527			#
528			# marc('700','a',
529			# rec('702','a'),
530			# );
531			#
532			# marc('700','a',
533			# join_with(', ',
534			# rec('702','c'),
535			# rec('702','d')
536			# )
537			# );
538			#
539			#
540			# #_debug(0);
541			#
542			# ### 710 indikatori
543			#
544			# marc_indicators('710', '2', ' ');
545			#
546			# ### 710
547			# marc('710','a',
548			# rec('710','a')
549			# );
550			#
551			# ### 770 indikatori
552			#
553			# marc_indicators('770', 0, ' ');
554			#
555			# ### 770
556			# marc('770','t',
557			# rec('421','a'),
558			# );
559			#
560			# ### 772 indikatori
561			# marc_indicators('772', 0, ' ');
562			#
563			# ### 772
564			# marc('772','t',
565			# rec('422','a'),
566			# );
567			#
568			# ### 773 indikatori
569			#
570			# if ( rec('225','a') ) {
571			#
572			# marc_indicators('773', 0, ' ');
573			#
574			# ### 773
575			# ## da li je bitan redoslijed potpolja?
576			#
577			# marc('773','w',
578			# lookup(
579			# sub { rec('000') },
580			# 'ffsf','peri',
581			# sub { rec('200','a') },
582			# sub {
583			# regex('s/ ; //g',
584			# rec('225','a')
585			# )
586			# },
587			# )
588			# );
589			#
590			# }
591			#
592			#
593			# ### 777 indikatori
594			#
595			# marc_indicators('777', 0, ' ');
596			#
597			# ### 777
598			#
599			# marc('777','t',
600			# rec('423','a'),
601			# );
602			#
603			# ### 780 indikatori
604			#
605			# marc_indicators('780', 0, 0);
606			#
607			# ### 780
608			# marc('780','t',
609			# rec('430','a'),
610			# );
611			#
612			# ### 785 indikatori
613			#
614			# marc_indicators('785', 0, 0);
615			#
616			# ### 785
617			# marc('785','t',
618			# rec('440','a'),
619			# );
620			#
621			# ### 852
622			#
623			# marc('852','j',
624			# join_with(' ',
625			# rec('990')
626			# )
627			# );
628			#
629			# ### 876
630			#
631			# marc('876','a',
632			# rec('991','a')
633			# );
634
635			marc('942','d',
636			rec('C')
637			);
638
639
640
641			#
642			# ### 992
643			#
644			# marc('992','a',
645			# join_with(' ; ',
646			# rec('992')
647			# )
648			# );
649			#
650			#
651			### polja za probu
652
653
654			#marc('998','a',
655			# lookup(
656			# sub { rec('200','a') },
657			# 'ffiz','peri',
658			# sub { rec('200','a'), },
659			# sub { rec('225','a'), }
660			# )
661			#);
662
663
664			# marc('997','a',
665			# sort(
666			# lookup(
667			# sub { rec('001') },
668			# 'nsk','bbaza',
669			# sub { rec('011','a') },
670			# sub { rec('11') },
671			# )
672			# )
673			# );
674			#
675			# marc('998','a',
676			# sort(
677			# lookup(
678			# sub { rec('001') },
679			# 'nsk','bbaza',
680			# sub { first(rec('200','a')) . first(rec('200','e')) },
681			# sub { rec('200','a') . rec('200','e') },
682			# )
683			# )
684			# );
685			#
686			# marc('998','a',
687			# sort(
688			# lookup(
689			# sub { rec('001') },
690			# 'nsk','bbaza',
691			# sub { first(rec('200','a')) },
692			# sub { rec('200','a') },
693			# )
694			# )
695			# );
696