1 |
tag('MFN', |
2 |
rec('000') |
3 |
); |
4 |
|
5 |
display('ISBN', |
6 |
rec('10') |
7 |
); |
8 |
|
9 |
display('ISSN', |
10 |
rec('11') |
11 |
); |
12 |
|
13 |
search('ISN', |
14 |
rec('10'), |
15 |
rec('11'), |
16 |
); |
17 |
|
18 |
tag('Language', |
19 |
rec('101') |
20 |
); |
21 |
|
22 |
tag('TitleProper', |
23 |
regex( 's/<[^>]*>//g', |
24 |
rec('200','a') |
25 |
) |
26 |
); |
27 |
|
28 |
tag('titleNo', |
29 |
rec('200','9') |
30 |
); |
31 |
|
32 |
tag('Subtitle', |
33 |
rec('200','e') |
34 |
); |
35 |
|
36 |
tag('TitleProper2', |
37 |
rec('200','c') |
38 |
); |
39 |
|
40 |
tag('ParallelTitle', |
41 |
rec('200','d') |
42 |
); |
43 |
|
44 |
tag('Responsibility', |
45 |
join_with(" ; ", |
46 |
rec('200','f'), |
47 |
rec('200','g') |
48 |
) |
49 |
); |
50 |
|
51 |
display('ResponsibilityFirst', |
52 |
rec('200','f') |
53 |
); |
54 |
|
55 |
display('ResponsibilitySecond', |
56 |
rec('200','g') |
57 |
); |
58 |
|
59 |
tag('VolumeDesignation', |
60 |
rec('200','v') |
61 |
); |
62 |
|
63 |
tag('EditionStatement', |
64 |
rec('205','a') |
65 |
); |
66 |
|
67 |
tag('SerialNo', |
68 |
rec('207','a') |
69 |
); |
70 |
|
71 |
tag('fond', |
72 |
rec('209','a') |
73 |
); |
74 |
|
75 |
tag('PlacePublication', |
76 |
rec('210','a') |
77 |
); |
78 |
|
79 |
tag('NamePublisher', |
80 |
rec('210','c') |
81 |
); |
82 |
|
83 |
tag('DatePublication', |
84 |
rec('210','d') |
85 |
); |
86 |
|
87 |
tag('PhysicalDescription', |
88 |
join_with(" : ", |
89 |
rec('215','a'), |
90 |
join_with(" ; ", |
91 |
rec('215','c'), |
92 |
rec('215','d'), |
93 |
) |
94 |
) |
95 |
); |
96 |
|
97 |
tag('MaterialDesignation', |
98 |
rec('215','a') |
99 |
); |
100 |
|
101 |
tag('PhysicalDetails', |
102 |
rec('215','c') |
103 |
); |
104 |
|
105 |
tag('AccompanyingMaterial', |
106 |
rec('215','e') |
107 |
); |
108 |
|
109 |
tag('Series', |
110 |
join_with(" = ", rec('225','a'), |
111 |
join_with(" : ", rec('225','d'), |
112 |
join_with(" ; ", rec('225','e'), |
113 |
join_with(". ", rec('225','v'), |
114 |
join_with(", ", rec('225','h'), |
115 |
join_with(" ; ", rec('225','i'), |
116 |
rec('225','w'), |
117 |
) |
118 |
) |
119 |
) |
120 |
) |
121 |
) |
122 |
) |
123 |
); |
124 |
|
125 |
tag('SeriesTitle', |
126 |
rec('225','a') |
127 |
); |
128 |
|
129 |
tag('GeneralNote', |
130 |
rec('300') |
131 |
); |
132 |
|
133 |
tag('EditionNote', |
134 |
rec('305') |
135 |
); |
136 |
|
137 |
tag('PhysicalDescriptionNote', |
138 |
rec('307') |
139 |
); |
140 |
|
141 |
tag('IntellectResponsNote', |
142 |
rec('314') |
143 |
); |
144 |
|
145 |
tag('InternalBibliographies', |
146 |
rec('320') |
147 |
); |
148 |
|
149 |
tag('Frequency', |
150 |
rec('326') |
151 |
); |
152 |
|
153 |
tag('ContentsNote', |
154 |
rec('327') |
155 |
); |
156 |
|
157 |
tag('Summary', |
158 |
rec('330') |
159 |
); |
160 |
|
161 |
tag('SystemRequirements', |
162 |
rec('337') |
163 |
); |
164 |
|
165 |
tag('IssuedWith', |
166 |
join_with(': ', rec(423,'z'), |
167 |
join_with(' / ', rec(423,'a'), |
168 |
join_with(' ', rec(423,'c'), |
169 |
rec(423,'b') |
170 |
) |
171 |
) |
172 |
) |
173 |
); |
174 |
|
175 |
display('Parts', |
176 |
lookup( |
177 |
prefix( 'dio-jzav:', rec(900) ) |
178 |
) |
179 |
); |
180 |
|
181 |
search('Parts', |
182 |
lookup( |
183 |
prefix( 'id-dio-jzav:', rec(900) ) |
184 |
) |
185 |
); |
186 |
|
187 |
display('PartsEF', |
188 |
lookup( |
189 |
prefix( 'naslov-efzg:001', rec('001') ) |
190 |
) |
191 |
); |
192 |
|
193 |
tag('PartsID', |
194 |
rec('463','1') |
195 |
); |
196 |
|
197 |
tag('Piece', |
198 |
lookup( |
199 |
prefix( 'naslov-efzg:', |
200 |
first( |
201 |
rec(463,1) |
202 |
) |
203 |
) |
204 |
) |
205 |
); |
206 |
|
207 |
tag('PieceSubtitle', |
208 |
lookup( |
209 |
prefix( 'podnaslov-efzg:', |
210 |
first( |
211 |
rec(463,1) |
212 |
) |
213 |
) |
214 |
) |
215 |
); |
216 |
|
217 |
tag('PieceNum', |
218 |
rec('463','v') |
219 |
); |
220 |
|
221 |
tag('PieceAnalitic', |
222 |
join_with(' / ', |
223 |
rec('464','a'), |
224 |
join_with(' ', |
225 |
rec(464,'g'), |
226 |
rec(464,'f'), |
227 |
) |
228 |
) |
229 |
); |
230 |
|
231 |
tag('UniformHeading', |
232 |
join_with('. ', |
233 |
rec(500,'a'), |
234 |
rec(500,'b'), |
235 |
) |
236 |
); |
237 |
|
238 |
tag('ExpandedTitle', |
239 |
rec(532) |
240 |
); |
241 |
|
242 |
tag('Form', |
243 |
rec(608) |
244 |
); |
245 |
|
246 |
tag('UncontrolledTerms', |
247 |
rec(610) |
248 |
); |
249 |
|
250 |
search('UDC_All', |
251 |
rec(675), |
252 |
); |
253 |
|
254 |
tag('UDC', |
255 |
rec(675) |
256 |
); |
257 |
|
258 |
tag('APACC', |
259 |
rec(686) |
260 |
); |
261 |
|
262 |
tag('PersonalNamePrim', |
263 |
join_with(', ', |
264 |
rec(700,'a'), |
265 |
rec(700,'b'), |
266 |
) |
267 |
); |
268 |
|
269 |
tag('PersonalNameSec', |
270 |
join_with(', ', |
271 |
rec(701,'a'), |
272 |
rec(701,'b'), |
273 |
) |
274 |
); |
275 |
|
276 |
tag('PersonalNameOther', |
277 |
join_with(', ', |
278 |
rec(702,'a'), |
279 |
rec(702,'b'), |
280 |
) |
281 |
); |
282 |
|
283 |
search('Names', |
284 |
rec(700), |
285 |
rec(701), |
286 |
rec(702), |
287 |
); |
288 |
|
289 |
tag('CorporateNamePrim', |
290 |
join_with(', ', |
291 |
rec(710,'a'), |
292 |
rec(710,'b'), |
293 |
) |
294 |
); |
295 |
|
296 |
tag('CorporateNameSec', |
297 |
join_with(', ', |
298 |
rec(711,'a'), |
299 |
rec(711,'b'), |
300 |
) |
301 |
); |
302 |
|
303 |
tag('OriginatingSource', |
304 |
rec(801) |
305 |
); |
306 |
|
307 |
tag('URL', |
308 |
rec(856,'u') |
309 |
); |
310 |
|
311 |
tag('level', |
312 |
rec(909) |
313 |
); |
314 |
|
315 |
tag('ID', |
316 |
rec(900) |
317 |
); |
318 |
|
319 |
display('Set', |
320 |
lookup( |
321 |
prefix( 'set-jzav:', |
322 |
rec(946,1), |
323 |
) |
324 |
), |
325 |
lookup( |
326 |
prefix( 'set-efzg:', |
327 |
rec(461,1), |
328 |
) |
329 |
) |
330 |
); |
331 |
|
332 |
search('Set', |
333 |
rec(946,1), |
334 |
rec(461,1), |
335 |
); |
336 |
|
337 |
tag('Set2', |
338 |
lookup( |
339 |
prefix( 'set-jzav:', |
340 |
lookup( 'parent-id:', |
341 |
rec(946,1) |
342 |
) |
343 |
) |
344 |
) |
345 |
); |
346 |
|
347 |
tag('CallNo', |
348 |
rec(990) |
349 |
); |
350 |
|
351 |
tag('InvNo', |
352 |
rec(991) |
353 |
); |
354 |
|
355 |
1; |