Codebase list libcatmandu-marc-perl / e007d14
Fixing ^ to space conversions in ALEPHSEQ imports Patrick Hochstenbach 6 years ago
6 changed file(s) with 9 addition(s) and 2 deletion(s). Raw diff Collapse all Expand all
+1
-0
Changes less more
00 Revision history for Catmandu-MARC
11
22 {{$NEXT}}
3 - Fixing ^ to space conversion in ALEPHSEQ imports
34
45 1.20 2017-11-08 10:29:27 CET
56 - More stable ISO exports for bad records
+1
-1
lib/Catmandu/Importer/MARC/ALEPHSEQ.pm less more
9494 warn "skipping $sysid $tag unknown data";
9595 next;
9696 }
97 if ($tag eq 'LDR') {
97 if ($tag eq 'LDR' || $tag eq '008') {
9898 $data =~ s/\^/ /g;
9999 }
100100 my @parts = ('_' , split(/\$\$(.)/, $data) );
+2
-0
t/Catmandu/Exporter/MARC/ALEPHSEQ.t less more
2525 [ 'FMT', ' ', ' ' , '_', 'BK' ] ,
2626 [ 'LDR', ' ', ' ' , '_', '00000nam a2200301 i 4500' ] ,
2727 [ '001', ' ', ' ' , '_', '000000002' ] ,
28 [ '008', ' ', ' ' , '_', '050601s1921 xx |||||||||||||| ||dut ' ],
2829 [ '245', '1', '0' , 'a', 'Catmandu Test' ] ,
2930 [ '650', ' ', '0' , 'a', 'Perl' ] ,
3031 [ '650', ' ', '0' , 'a', 'MARC' , 'a' , 'MARC2' ] ,
3637 000000002 FMT L BK
3738 000000002 LDR L 00000nam^a2200301^i^4500
3839 000000002 001 L 000000002
40 000000002 008 L 050601s1921^^^^xx^||||||||||||||^||dut^^
3941 000000002 24510 L $$aCatmandu Test
4042 000000002 650 0 L $$aPerl
4143 000000002 650 0 L $$aMARC$$aMARC2
+2
-1
t/Catmandu/Exporter/MARC/ISO.t less more
2121 my $record = {
2222 _id => '000000002',
2323 record => [
24 [ 'LDR', ' ', ' ' , '_', '00156nam a2200085 i 4500' ] ,
24 [ 'LDR', ' ', ' ' , '_', '00209nam a2200097 i 4500' ] ,
2525 [ '001', ' ', ' ' , '_', '000000002' ] ,
26 [ '008', ' ', ' ' , '_', '050601s1921 xx |||||||||||||| ||dut ' ],
2627 [ '245', '1', '0' , 'a', 'Catmandu Test' ] ,
2728 [ '650', ' ', '0' , 'a', 'Perl' ] ,
2829 [ '650', ' ', '0' , 'a', 'MARC' , 'a' , 'MARC2' ] ,
+2
-0
t/Catmandu/Importer/MARC/ALEPHSEQ.t less more
1919 000000002 FMT L BK
2020 000000002 LDR L 00000nam^a2200301^i^4500
2121 000000002 001 L 000000002
22 000000002 008 L 050601s1921^^^^xx^||||||||||||||^||dut^^
2223 000000002 24510 L $$aCatmandu Test
2324 000000002 650 0 L $$aPerl
2425 000000002 650 0 L $$aMARC$$aMARC2
3132 [ 'FMT', ' ', ' ' , '_', 'BK' ] ,
3233 [ 'LDR', ' ', ' ' , '_', '00000nam a2200301 i 4500' ] ,
3334 [ '001', ' ', ' ' , '_', '000000002' ] ,
35 [ '008', ' ', ' ' , '_', '050601s1921 xx |||||||||||||| ||dut ' ],
3436 [ '245', '1', '0' , 'a', 'Catmandu Test' ] ,
3537 [ '650', ' ', '0' , 'a', 'Perl' ] ,
3638 [ '650', ' ', '0' , 'a', 'MARC' , 'a' , 'MARC2' ] ,
+1
-0
t/rug01.aleph less more
00 000000002 FMT L BK
11 000000002 LDR L 00000nam^a2200301^i^4500
22 000000002 001 L 000000002
3 000000002 008 L 050601s1921^^^^xx^||||||||||||||^||dut^^
34 000000002 24510 L $$aCatmandu Test
45 000000002 650 0 L $$aPerl
56 000000002 650 0 L $$aMARC$$aMARC2