1 |
marc_leader('05','n'); |
2 |
marc_leader('06','a'); |
3 |
marc_leader('07','s'); |
4 |
marc_leader('18','i'); |
5 |
|
6 |
marc('022','a', |
7 |
lookup( |
8 |
sub { rec('022','a') }, |
9 |
'wiley','full', |
10 |
sub { |
11 |
regex('s/\s*(\.|:)\s*$//g', |
12 |
lc( |
13 |
rec('245','a') . ' ' . rec('245','b') |
14 |
) |
15 |
); |
16 |
}, |
17 |
sub { |
18 |
regex('s/\s*(\.|:)\s*$//g', |
19 |
lc( rec('A') ) |
20 |
); |
21 |
} |
22 |
) || |
23 |
lookup( |
24 |
sub { rec('022','a') }, |
25 |
'wiley','full', |
26 |
sub { |
27 |
regex('s/\s*(\.|:)\s*$//g', |
28 |
lc( rec('245','a') ) |
29 |
); |
30 |
}, |
31 |
sub { |
32 |
regex('s/\s*(\.|:)\s*$//g', |
33 |
lc( rec('A') ) |
34 |
); |
35 |
} |
36 |
) |
37 |
); |
38 |
|
39 |
marc('022','y', |
40 |
lookup( |
41 |
sub { rec('022','y') }, |
42 |
'wiley','full', |
43 |
sub { |
44 |
regex('s/\s*(\.|:)\s*$//g', |
45 |
lc( |
46 |
rec('245','a') . ' ' . rec('245','b') |
47 |
) |
48 |
); |
49 |
}, |
50 |
sub { |
51 |
regex('s/\s*(\.|:)\s*$//g', |
52 |
lc( rec('A') ) |
53 |
); |
54 |
} |
55 |
) || |
56 |
lookup( |
57 |
sub { rec('022','y') }, |
58 |
'wiley','full', |
59 |
sub { |
60 |
regex('s/\s*(\.|:)\s*$//g', |
61 |
lc( rec('245','a') ) |
62 |
); |
63 |
}, |
64 |
sub { |
65 |
regex('s/\s*(\.|:)\s*$//g', |
66 |
lc( rec('A') ) |
67 |
); |
68 |
} |
69 |
) |
70 |
); |
71 |
|
72 |
marc_indicators('245', 1, 0); |
73 |
|
74 |
marc('245','a', |
75 |
rec('A') |
76 |
); |
77 |
|
78 |
marc('245','h', |
79 |
'[ Elektronièka graða ]' |
80 |
); |
81 |
|
82 |
marc_indicators('246', 1, 0); |
83 |
|
84 |
marc('246','a', |
85 |
lookup( |
86 |
sub { rec('246','a') }, |
87 |
'wiley','full', |
88 |
sub { |
89 |
regex('s/\s*(\.|:)\s*$//g', |
90 |
lc( |
91 |
rec('245','a') . ' ' . rec('245','b') |
92 |
) |
93 |
); |
94 |
}, |
95 |
sub { |
96 |
regex('s/\s*(\.|:)\s*$//g', |
97 |
lc( rec('A') ) |
98 |
); |
99 |
} |
100 |
) || |
101 |
lookup( |
102 |
sub { rec('246','a') }, |
103 |
'wiley','full', |
104 |
sub { |
105 |
regex('s/\s*(\.|:)\s*$//g', |
106 |
lc( rec('245','a') ) |
107 |
); |
108 |
}, |
109 |
sub { |
110 |
regex('s/\s*(\.|:)\s*$//g', |
111 |
lc( rec('A') ) |
112 |
); |
113 |
} |
114 |
) |
115 |
); |
116 |
|
117 |
marc('500','a', |
118 |
lookup( |
119 |
sub { rec('500','a') }, |
120 |
'wiley','full', |
121 |
sub { |
122 |
regex('s/\s*(\.|:)\s*$//g', |
123 |
lc( |
124 |
rec('245','a') . ' ' . rec('245','b') |
125 |
) |
126 |
); |
127 |
}, |
128 |
sub { |
129 |
regex('s/\s*(\.|:)\s*$//g', |
130 |
lc( rec('A') ) |
131 |
); |
132 |
} |
133 |
) || |
134 |
lookup( |
135 |
sub { rec('500','a') }, |
136 |
'wiley','full', |
137 |
sub { |
138 |
regex('s/\s*(\.|:)\s*$//g', |
139 |
lc( rec('245','a') ) |
140 |
); |
141 |
}, |
142 |
sub { |
143 |
regex('s/\s*(\.|:)\s*$//g', |
144 |
lc( rec('A') ) |
145 |
); |
146 |
} |
147 |
) |
148 |
); |
149 |
|
150 |
marc_indicators('650', ' ', 7); |
151 |
|
152 |
marc('650','a', |
153 |
lookup( |
154 |
sub { rec('650','a') }, |
155 |
'wiley','full', |
156 |
sub { |
157 |
regex('s/\s*(\.|:)\s*$//g', |
158 |
lc( |
159 |
rec('245','a') . ' ' . rec('245','b') |
160 |
) |
161 |
); |
162 |
}, |
163 |
sub { |
164 |
regex('s/\s*(\.|:)\s*$//g', |
165 |
lc( rec('A') ) |
166 |
); |
167 |
} |
168 |
) || |
169 |
lookup( |
170 |
sub { rec('650','a') }, |
171 |
'wiley','full', |
172 |
sub { |
173 |
regex('s/\s*(\.|:)\s*$//g', |
174 |
lc( rec('245','a') ) |
175 |
); |
176 |
}, |
177 |
sub { |
178 |
regex('s/\s*(\.|:)\s*$//g', |
179 |
lc( rec('A') ) |
180 |
); |
181 |
} |
182 |
) |
183 |
); |
184 |
|
185 |
marc('650','v', |
186 |
lookup( |
187 |
sub { rec('650','v') }, |
188 |
'wiley','full', |
189 |
sub { |
190 |
regex('s/\s*(\.|:)\s*$//g', |
191 |
lc( |
192 |
rec('245','a') . ' ' . rec('245','b') |
193 |
) |
194 |
); |
195 |
}, |
196 |
sub { |
197 |
regex('s/\s*(\.|:)\s*$//g', |
198 |
lc( rec('A') ) |
199 |
); |
200 |
} |
201 |
) || |
202 |
lookup( |
203 |
sub { rec('650','v') }, |
204 |
'wiley','full', |
205 |
sub { |
206 |
regex('s/\s*(\.|:)\s*$//g', |
207 |
lc( rec('245','a') ) |
208 |
); |
209 |
}, |
210 |
sub { |
211 |
regex('s/\s*(\.|:)\s*$//g', |
212 |
lc( rec('A') ) |
213 |
); |
214 |
} |
215 |
) |
216 |
); |
217 |
|
218 |
|
219 |
marc('650','z', |
220 |
lookup( |
221 |
sub { rec('650','z') }, |
222 |
'wiley','full', |
223 |
sub { |
224 |
regex('s/\s*(\.|:)\s*$//g', |
225 |
lc( |
226 |
rec('245','a') . ' ' . rec('245','b') |
227 |
) |
228 |
); |
229 |
}, |
230 |
sub { |
231 |
regex('s/\s*(\.|:)\s*$//g', |
232 |
lc( rec('A') ) |
233 |
); |
234 |
} |
235 |
) || |
236 |
lookup( |
237 |
sub { rec('650','z') }, |
238 |
'wiley','full', |
239 |
sub { |
240 |
regex('s/\s*(\.|:)\s*$//g', |
241 |
lc( rec('245','a') ) |
242 |
); |
243 |
}, |
244 |
sub { |
245 |
regex('s/\s*(\.|:)\s*$//g', |
246 |
lc( rec('A') ) |
247 |
); |
248 |
} |
249 |
) |
250 |
); |
251 |
|
252 |
|
253 |
|
254 |
marc('856','u', |
255 |
lookup( |
256 |
sub { rec('856','u') }, |
257 |
'wiley','full', |
258 |
sub { |
259 |
lc( |
260 |
rec('245','a') . rec('245','b') |
261 |
) |
262 |
}, |
263 |
|
264 |
sub { |
265 |
lc( rec('A') ) |
266 |
} |
267 |
) |
268 |
|| |
269 |
lookup( |
270 |
sub { rec('856','u') }, |
271 |
'wiley','full', |
272 |
sub { |
273 |
regex('s/\s*(\.|:)\s*$//g', |
274 |
lc( rec('245','a') ) |
275 |
); |
276 |
}, |
277 |
sub { |
278 |
regex('s/\s*(\.|:)\s*$//g', |
279 |
lc( rec('A') ) |
280 |
); |
281 |
} |
282 |
) |
283 |
); |