Line 0
Link Here
|
0 |
- |
1 |
package t::db_dependent::Biblio::Diff::localRecords; |
|
|
2 |
# |
3 |
# Copyright 2016 KohaSuomi |
4 |
# |
5 |
# This file is part of Koha. |
6 |
# |
7 |
# Koha is free software; you can redistribute it and/or modify it under the |
8 |
# terms of the GNU General Public License as published by the Free Software |
9 |
# Foundation; either version 3 of the License, or (at your option) any later |
10 |
# version. |
11 |
# |
12 |
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY |
13 |
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR |
14 |
# A PARTICULAR PURPOSE. See the GNU General Public License for more details. |
15 |
# |
16 |
# You should have received a copy of the GNU General Public License along |
17 |
# with Koha; if not, write to the Free Software Foundation, Inc., |
18 |
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
19 |
|
20 |
use Modern::Perl; |
21 |
|
22 |
use t::lib::TestObjects::BiblioFactory; |
23 |
|
24 |
=head IN THIS FILE |
25 |
|
26 |
Here we create some fully catalogued records to play with |
27 |
|
28 |
=cut |
29 |
|
30 |
sub create { |
31 |
my ($testContext) = @_; |
32 |
my ($record, @records); |
33 |
|
34 |
$record = <<RECORD; |
35 |
<record> |
36 |
<leader>00510cam a22002054a 4500</leader> |
37 |
<controlfield tag="001">300841</controlfield> |
38 |
<controlfield tag="003">KYYTI</controlfield> |
39 |
<datafield tag="020" ind1=" " ind2=" "> |
40 |
<subfield code="a">9510108303</subfield> |
41 |
<subfield code="q">NID.</subfield> |
42 |
</datafield> |
43 |
<datafield tag="245" ind1="1" ind2="4"> |
44 |
<subfield code="a">THE WISHING TREE /</subfield> |
45 |
<subfield code="c">USHA BAHL.</subfield> |
46 |
</datafield> |
47 |
<datafield tag="942" ind1=" " ind2=" "> |
48 |
<subfield code="c">BK</subfield> |
49 |
<subfield code="1">1996-05-01 00:00:00</subfield> |
50 |
</datafield> |
51 |
</record> |
52 |
RECORD |
53 |
push(@records, {record => $record}); |
54 |
|
55 |
$record = <<RECORD; |
56 |
<record> |
57 |
<leader>00618cam a22002294a 4500</leader> |
58 |
<controlfield tag="001">21937</controlfield> |
59 |
<controlfield tag="003">OUTI</controlfield> |
60 |
<datafield tag="020" ind1=" " ind2=" "> |
61 |
<subfield code="a">9510108304</subfield> |
62 |
<subfield code="q">NID.</subfield> |
63 |
<subfield code="c">7.74 EUR</subfield> |
64 |
</datafield> |
65 |
<datafield tag="245" ind1="1" ind2="0"> |
66 |
<subfield code="a">TYRANNIT VOIVAT PAREMMIN :</subfield> |
67 |
<subfield code="b">RUNOJA /</subfield> |
68 |
<subfield code="c">AKI LUOSTARINEN.</subfield> |
69 |
</datafield> |
70 |
<datafield tag="245" ind1="0" ind2="0"> |
71 |
<subfield code="a">TYRANNIT VOIVAT PARHAITEN :</subfield> |
72 |
</datafield> |
73 |
</record> |
74 |
RECORD |
75 |
push(@records, {record => $record}); |
76 |
|
77 |
$record = <<RECORD; |
78 |
<record> |
79 |
<leader>01096cam a22003134i 4500</leader> |
80 |
<controlfield tag="001">4312727</controlfield> |
81 |
<controlfield tag="007">ta</controlfield> |
82 |
<datafield tag="020" ind1=" " ind2=" "> |
83 |
<subfield code="a">9510108305</subfield> |
84 |
</datafield> |
85 |
<datafield tag="041" ind1="0" ind2=" "> |
86 |
<subfield code="a">lat</subfield> |
87 |
<subfield code="a">swe</subfield> |
88 |
<subfield code="a">eng</subfield> |
89 |
</datafield> |
90 |
<datafield tag="245" ind1="1" ind2="0"> |
91 |
<subfield code="a">TYRANNIT VOIVAT PAREMMIN :</subfield> |
92 |
<subfield code="b">RUNOJA /</subfield> |
93 |
<subfield code="c">AKI LUOSTARINEN.</subfield> |
94 |
</datafield> |
95 |
<datafield tag="952" ind1="1" ind2="0"> |
96 |
<subfield code="a">CPL</subfield> |
97 |
<subfield code="b">CPL</subfield> |
98 |
</datafield> |
99 |
<datafield tag="942" ind1=" " ind2=" "> |
100 |
<subfield code="2">ykl</subfield> |
101 |
<subfield code="c">BK</subfield> |
102 |
<subfield code="1">2016-02-15T15:03:05</subfield> |
103 |
</datafield> |
104 |
</record> |
105 |
RECORD |
106 |
push(@records, {record => $record}); |
107 |
|
108 |
return t::lib::TestObjects::BiblioFactory->createTestGroup(\@records, undef, $testContext); |
109 |
} |
110 |
|
111 |
sub create2 { |
112 |
my ($testContext) = @_; |
113 |
my ($record, @records); |
114 |
|
115 |
$record = <<RECORD; |
116 |
<record |
117 |
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" |
118 |
xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd" |
119 |
xmlns="http://www.loc.gov/MARC21/slim"> |
120 |
|
121 |
<leader>01708cam a2200553zi 4500</leader> |
122 |
<controlfield tag="001">000035144</controlfield> |
123 |
<controlfield tag="003">FI-MELINDA</controlfield> |
124 |
<controlfield tag="005">20160304181804.0</controlfield> |
125 |
<controlfield tag="008">820317s1981 fi |||||||||||||||f|fin||</controlfield> |
126 |
<datafield tag="015" ind1=" " ind2=" "> |
127 |
<subfield code="a">fx37918</subfield> |
128 |
<subfield code="2">skl</subfield> |
129 |
</datafield> |
130 |
<datafield tag="020" ind1=" " ind2=" "> |
131 |
<subfield code="a">9510107417</subfield> |
132 |
<subfield code="c">43,80 mk</subfield> |
133 |
<subfield code="q">sid.</subfield> |
134 |
</datafield> |
135 |
<datafield tag="035" ind1=" " ind2=" "> |
136 |
<subfield code="a">(FI-MELINDA)000035144</subfield> |
137 |
</datafield> |
138 |
<datafield tag="035" ind1=" " ind2=" "> |
139 |
<subfield code="a">(FI-MELINDA)000035144</subfield> |
140 |
</datafield> |
141 |
<datafield tag="040" ind1=" " ind2=" "> |
142 |
<subfield code="a">FI-NL</subfield> |
143 |
</datafield> |
144 |
<datafield tag="041" ind1="1" ind2=" "> |
145 |
<subfield code="a">fin</subfield> |
146 |
<subfield code="h">eng</subfield> |
147 |
</datafield> |
148 |
<datafield tag="042" ind1=" " ind2=" "> |
149 |
<subfield code="a">finb</subfield> |
150 |
</datafield> |
151 |
<datafield tag="072" ind1=" " ind2="7"> |
152 |
<subfield code="a">87</subfield> |
153 |
<subfield code="2">kkaa</subfield> |
154 |
</datafield> |
155 |
<datafield tag="080" ind1=" " ind2=" "> |
156 |
<subfield code="a">820</subfield> |
157 |
<subfield code="x">-3</subfield> |
158 |
</datafield> |
159 |
<datafield tag="082" ind1="1" ind2="4"> |
160 |
<subfield code="a">84.5</subfield> |
161 |
</datafield> |
162 |
<datafield tag="084" ind1=" " ind2=" "> |
163 |
<subfield code="a">84.2</subfield> |
164 |
<subfield code="2">ykl</subfield> |
165 |
</datafield> |
166 |
<datafield tag="084" ind1=" " ind2=" "> |
167 |
<subfield code="a">84.2</subfield> |
168 |
<subfield code="2">ykl</subfield> |
169 |
</datafield> |
170 |
<datafield tag="084" ind1=" " ind2=" "> |
171 |
<subfield code="a">84.5</subfield> |
172 |
<subfield code="2">ykl</subfield> |
173 |
</datafield> |
174 |
<datafield tag="100" ind1="1" ind2=" "> |
175 |
<subfield code="a">Doyle, Arthur Conan.</subfield> |
176 |
</datafield> |
177 |
<datafield tag="240" ind1="1" ind2="4"> |
178 |
<subfield code="a">The hound of the Baskervilles</subfield> |
179 |
</datafield> |
180 |
<datafield tag="245" ind1="1" ind2="0"> |
181 |
<subfield code="a">Baskervillen koira /</subfield> |
182 |
<subfield code="c">Arthur Conan Doyle.</subfield> |
183 |
</datafield> |
184 |
<datafield tag="250" ind1=" " ind2=" "> |
185 |
<subfield code="a">10. p.</subfield> |
186 |
</datafield> |
187 |
<datafield tag="260" ind1=" " ind2=" "> |
188 |
<subfield code="a">Porvoo ;</subfield> |
189 |
<subfield code="a">Hki ;</subfield> |
190 |
<subfield code="a">Juva :</subfield> |
191 |
<subfield code="b">WSOY,</subfield> |
192 |
<subfield code="c">1981</subfield> |
193 |
<subfield code="e">(Porvoo)</subfield> |
194 |
</datafield> |
195 |
<datafield tag="300" ind1=" " ind2=" "> |
196 |
<subfield code="a">159, [1] s. ;</subfield> |
197 |
<subfield code="c">21 cm.</subfield> |
198 |
</datafield> |
199 |
<datafield tag="336" ind1=" " ind2=" "> |
200 |
<subfield code="a">Teksti</subfield> |
201 |
</datafield> |
202 |
<datafield tag="337" ind1=" " ind2=" "> |
203 |
<subfield code="a">ei välittävää laitetta</subfield> |
204 |
</datafield> |
205 |
<datafield tag="490" ind1="1" ind2=" "> |
206 |
<subfield code="a">Koulun peruskirjasto;</subfield> |
207 |
<subfield code="v">22</subfield> |
208 |
</datafield> |
209 |
<datafield tag="500" ind1=" " ind2=" "> |
210 |
<subfield code="a">9. p. 1972.</subfield> |
211 |
</datafield> |
212 |
<datafield tag="500" ind1=" " ind2=" "> |
213 |
<subfield code="a">Korjattu suomennos.</subfield> |
214 |
</datafield> |
215 |
<datafield tag="500" ind1=" " ind2=" "> |
216 |
<subfield code="a">Lisäpainokset: 11. p. 1983.</subfield> |
217 |
</datafield> |
218 |
<datafield tag="500" ind1=" " ind2=" "> |
219 |
<subfield code="a">Luokkataso: yläkoulu.</subfield> |
220 |
</datafield> |
221 |
<datafield tag="500" ind1=" " ind2=" "> |
222 |
<subfield code="a">9. P. 1972. - KORJATTU SUOMENNOS</subfield> |
223 |
</datafield> |
224 |
<datafield tag="500" ind1=" " ind2=" "> |
225 |
<subfield code="a">11. P. 1983</subfield> |
226 |
</datafield> |
227 |
<datafield tag="600" ind1="1" ind2="4"> |
228 |
<subfield code="a">Holmes, Sherlock,</subfield> |
229 |
<subfield code="c">fikt.</subfield> |
230 |
</datafield> |
231 |
<datafield tag="600" ind1="1" ind2="4"> |
232 |
<subfield code="a">Watson, John H.,</subfield> |
233 |
<subfield code="c">fikt.</subfield> |
234 |
</datafield> |
235 |
<datafield tag="650" ind1=" " ind2="7"> |
236 |
<subfield code="a">kaunokirjallisuus</subfield> |
237 |
<subfield code="x">suomenkielinen kirjallisuus</subfield> |
238 |
<subfield code="2">ysa</subfield> |
239 |
</datafield> |
240 |
<datafield tag="650" ind1=" " ind2="7"> |
241 |
<subfield code="a">kriminalfiktion</subfield> |
242 |
<subfield code="x">översättningar</subfield> |
243 |
<subfield code="x">finska</subfield> |
244 |
<subfield code="x">engelska</subfield> |
245 |
<subfield code="2">bella</subfield> |
246 |
</datafield> |
247 |
<datafield tag="650" ind1=" " ind2="7"> |
248 |
<subfield code="a">rikoskirjallisuus</subfield> |
249 |
<subfield code="x">käännökset</subfield> |
250 |
<subfield code="x">suomen kieli</subfield> |
251 |
<subfield code="x">englannin kieli</subfield> |
252 |
<subfield code="2">kaunokki</subfield> |
253 |
</datafield> |
254 |
<datafield tag="650" ind1=" " ind2="7"> |
255 |
<subfield code="a">salapoliisikirjallisuus</subfield> |
256 |
<subfield code="z">Englanti</subfield> |
257 |
<subfield code="y">1800-luku</subfield> |
258 |
<subfield code="2">kaunokki</subfield> |
259 |
</datafield> |
260 |
<datafield tag="650" ind1=" " ind2="7"> |
261 |
<subfield code="a">aateli</subfield> |
262 |
<subfield code="2">kaunokki</subfield> |
263 |
</datafield> |
264 |
<datafield tag="650" ind1=" " ind2="7"> |
265 |
<subfield code="a">maaseutu</subfield> |
266 |
<subfield code="2">kaunokki</subfield> |
267 |
</datafield> |
268 |
<datafield tag="650" ind1=" " ind2="7"> |
269 |
<subfield code="a">kummittelu</subfield> |
270 |
<subfield code="2">kaunokki</subfield> |
271 |
</datafield> |
272 |
<datafield tag="830" ind1=" " ind2="0"> |
273 |
<subfield code="a">Koulun peruskirjasto;</subfield> |
274 |
<subfield code="v">22</subfield> |
275 |
</datafield> |
276 |
<datafield tag="942" ind1=" " ind2=" "> |
277 |
<subfield code="2">ykl</subfield> |
278 |
<subfield code="c">BR</subfield> |
279 |
</datafield> |
280 |
</record> |
281 |
RECORD |
282 |
push(@records, {record => $record}); |
283 |
|
284 |
$record = <<RECORD; |
285 |
<record |
286 |
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" |
287 |
xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd" |
288 |
xmlns="http://www.loc.gov/MARC21/slim"> |
289 |
|
290 |
<leader>01708cam a2200553zi 4500</leader> |
291 |
<controlfield tag="001">000035144</controlfield> |
292 |
<controlfield tag="003">FI-MELINDA</controlfield> |
293 |
<controlfield tag="005">20160304181804.0</controlfield> |
294 |
<controlfield tag="008">820317s1981 fi |||||||||||||||f|fin||</controlfield> |
295 |
<datafield tag="015" ind1=" " ind2=" "> |
296 |
<subfield code="a">fx37918</subfield> |
297 |
<subfield code="2">skl</subfield> |
298 |
</datafield> |
299 |
<datafield tag="020" ind1=" " ind2=" "> |
300 |
<subfield code="a">9510107418</subfield> |
301 |
<subfield code="c">43,80 mk</subfield> |
302 |
<subfield code="q">sid.</subfield> |
303 |
</datafield> |
304 |
<datafield tag="035" ind1=" " ind2=" "> |
305 |
<subfield code="a">(FI-MELINDA)000035144</subfield> |
306 |
</datafield> |
307 |
<datafield tag="035" ind1=" " ind2=" "> |
308 |
<subfield code="a">(FI-MELINDA)000035144</subfield> |
309 |
</datafield> |
310 |
<datafield tag="040" ind1=" " ind2=" "> |
311 |
<subfield code="a">FI-NL</subfield> |
312 |
</datafield> |
313 |
<datafield tag="041" ind1="1" ind2=" "> |
314 |
<subfield code="a">fin</subfield> |
315 |
<subfield code="h">eng</subfield> |
316 |
</datafield> |
317 |
<datafield tag="042" ind1=" " ind2=" "> |
318 |
<subfield code="a">finb</subfield> |
319 |
</datafield> |
320 |
<datafield tag="072" ind1=" " ind2="7"> |
321 |
<subfield code="a">87</subfield> |
322 |
<subfield code="2">kkaa</subfield> |
323 |
</datafield> |
324 |
<datafield tag="080" ind1=" " ind2=" "> |
325 |
<subfield code="a">820</subfield> |
326 |
<subfield code="x">-3</subfield> |
327 |
</datafield> |
328 |
<datafield tag="082" ind1="1" ind2="4"> |
329 |
<subfield code="a">84.5</subfield> |
330 |
</datafield> |
331 |
<datafield tag="084" ind1=" " ind2=" "> |
332 |
<subfield code="a">84.2</subfield> |
333 |
<subfield code="2">ykl</subfield> |
334 |
</datafield> |
335 |
<datafield tag="084" ind1=" " ind2=" "> |
336 |
<subfield code="a">84.2</subfield> |
337 |
<subfield code="2">ykl</subfield> |
338 |
</datafield> |
339 |
<datafield tag="084" ind1=" " ind2=" "> |
340 |
<subfield code="a">84.5</subfield> |
341 |
<subfield code="2">ykl</subfield> |
342 |
</datafield> |
343 |
<datafield tag="100" ind1="1" ind2=" "> |
344 |
<subfield code="a">Doyle, Arthur Conan.</subfield> |
345 |
</datafield> |
346 |
<datafield tag="240" ind1="1" ind2="4"> |
347 |
<subfield code="a">The hound of the Baskervilles</subfield> |
348 |
</datafield> |
349 |
<datafield tag="245" ind1="1" ind2="0"> |
350 |
<subfield code="a">Baskervillen koira /</subfield> |
351 |
<subfield code="c">Arthur Conan Doyle.</subfield> |
352 |
</datafield> |
353 |
<datafield tag="250" ind1=" " ind2=" "> |
354 |
<subfield code="a">10. p.</subfield> |
355 |
</datafield> |
356 |
<datafield tag="260" ind1=" " ind2=" "> |
357 |
<subfield code="a">Porvoo ;</subfield> |
358 |
<subfield code="a">Hki ;</subfield> |
359 |
<subfield code="a">Juva :</subfield> |
360 |
<subfield code="b">WSOY,</subfield> |
361 |
<subfield code="c">1981</subfield> |
362 |
<subfield code="e">(Porvoo)</subfield> |
363 |
</datafield> |
364 |
<datafield tag="300" ind1=" " ind2=" "> |
365 |
<subfield code="a">159, [1] s. ;</subfield> |
366 |
<subfield code="c">21 cm.</subfield> |
367 |
</datafield> |
368 |
<datafield tag="336" ind1=" " ind2=" "> |
369 |
<subfield code="a">Teksti</subfield> |
370 |
</datafield> |
371 |
<datafield tag="337" ind1=" " ind2=" "> |
372 |
<subfield code="a">ei välittävää laitetta</subfield> |
373 |
</datafield> |
374 |
<datafield tag="490" ind1="1" ind2=" "> |
375 |
<subfield code="a">Koulun peruskirjasto;</subfield> |
376 |
<subfield code="v">22</subfield> |
377 |
</datafield> |
378 |
<datafield tag="500" ind1=" " ind2=" "> |
379 |
<subfield code="a">9. p. 1972.</subfield> |
380 |
</datafield> |
381 |
<datafield tag="500" ind1=" " ind2=" "> |
382 |
<subfield code="a">Korjattu suomennos.</subfield> |
383 |
</datafield> |
384 |
<datafield tag="500" ind1=" " ind2=" "> |
385 |
<subfield code="a">Lisäpainokset: 11. p. 1983.</subfield> |
386 |
</datafield> |
387 |
<datafield tag="500" ind1=" " ind2=" "> |
388 |
<subfield code="a">Luokkataso: yläkoulu.</subfield> |
389 |
</datafield> |
390 |
<datafield tag="500" ind1=" " ind2=" "> |
391 |
<subfield code="a">9. P. 1972. - KORJATTU SUOMENNOS</subfield> |
392 |
</datafield> |
393 |
<datafield tag="500" ind1=" " ind2=" "> |
394 |
<subfield code="a">11. P. 1983</subfield> |
395 |
</datafield> |
396 |
<datafield tag="600" ind1="1" ind2="4"> |
397 |
<subfield code="a">Holmes, Sherlock,</subfield> |
398 |
<subfield code="c">fikt.</subfield> |
399 |
</datafield> |
400 |
<datafield tag="600" ind1="1" ind2="4"> |
401 |
<subfield code="a">Watson, John H.,</subfield> |
402 |
<subfield code="c">fikt.</subfield> |
403 |
</datafield> |
404 |
<datafield tag="650" ind1=" " ind2="7"> |
405 |
<subfield code="a">kaunokirjallisuus</subfield> |
406 |
<subfield code="x">suomenkielinen kirjallisuus</subfield> |
407 |
<subfield code="2">ysa</subfield> |
408 |
</datafield> |
409 |
<datafield tag="650" ind1=" " ind2="7"> |
410 |
<subfield code="a">kriminalfiktion</subfield> |
411 |
<subfield code="x">översättningar</subfield> |
412 |
<subfield code="x">finska</subfield> |
413 |
<subfield code="x">engelska</subfield> |
414 |
<subfield code="2">bella</subfield> |
415 |
</datafield> |
416 |
<datafield tag="650" ind1=" " ind2="7"> |
417 |
<subfield code="a">rikoskirjallisuus</subfield> |
418 |
<subfield code="x">käännökset</subfield> |
419 |
<subfield code="x">suomen kieli</subfield> |
420 |
<subfield code="x">englannin kieli</subfield> |
421 |
<subfield code="2">kaunokki</subfield> |
422 |
</datafield> |
423 |
<datafield tag="650" ind1=" " ind2="7"> |
424 |
<subfield code="a">salapoliisikirjallisuus</subfield> |
425 |
<subfield code="z">Englanti</subfield> |
426 |
<subfield code="y">1800-luku</subfield> |
427 |
<subfield code="2">kaunokki</subfield> |
428 |
</datafield> |
429 |
<datafield tag="650" ind1=" " ind2="7"> |
430 |
<subfield code="a">aateli</subfield> |
431 |
<subfield code="2">kaunokki</subfield> |
432 |
</datafield> |
433 |
<datafield tag="650" ind1=" " ind2="7"> |
434 |
<subfield code="a">maaseutu</subfield> |
435 |
<subfield code="2">kaunokki</subfield> |
436 |
</datafield> |
437 |
<datafield tag="650" ind1=" " ind2="7"> |
438 |
<subfield code="a">kummittelu</subfield> |
439 |
<subfield code="2">kaunokki</subfield> |
440 |
</datafield> |
441 |
<datafield tag="830" ind1=" " ind2="0"> |
442 |
<subfield code="a">Koulun peruskirjasto;</subfield> |
443 |
<subfield code="v">22</subfield> |
444 |
</datafield> |
445 |
<datafield tag="942" ind1=" " ind2=" "> |
446 |
<subfield code="2">ykl</subfield> |
447 |
<subfield code="c">BR</subfield> |
448 |
</datafield> |
449 |
</record> |
450 |
RECORD |
451 |
push(@records, {record => $record}); |
452 |
|
453 |
return t::lib::TestObjects::BiblioFactory->createTestGroup(\@records, undef, $testContext); |
454 |
} |
455 |
1; |