[libcatmandu-marc-perl] 138/208: Fixing spaces -> caret translation in Aleph sequential exports

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to annotated tag upstream/1.19
in repository libcatmandu-marc-perl.

commit 443c9fa4d9e2a07c978e781b3245beb1f43e630e
Author: Patrick Hochstenbach <patrick.hochstenbach at ugent.be>
Date:   Mon May 29 10:10:27 2017 +0200

    Fixing spaces -> caret translation in Aleph sequential exports
---
 Build.PL                               |  2 +-
 cpanfile                               |  2 +-
 lib/Catmandu/Exporter/MARC/ALEPHSEQ.pm | 13 +++++++++----
 3 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/Build.PL b/Build.PL
index 17b2204..2e0d980 100644
--- a/Build.PL
+++ b/Build.PL
@@ -29,7 +29,7 @@ my %module_build_args = (
     "List::Util" => 0,
     "MARC::File::MARCMaker" => "0.05",
     "MARC::File::MiJ" => "0.04",
-    "MARC::File::XML" => "v1.0.3",
+    "MARC::File::XML" => "v1.0.5",
     "MARC::Lint" => 0,
     "MARC::Parser::RAW" => 0,
     "MARC::Record" => "v2.0.6",
diff --git a/cpanfile b/cpanfile
index aaf401f..44fde68 100644
--- a/cpanfile
+++ b/cpanfile
@@ -15,7 +15,7 @@ requires 'Catmandu', '>=1.0201';
 requires 'JSON::XS', '2.3';
 requires 'YAML::XS', '0.34';
 requires 'List::Util', '0';
-requires 'MARC::File::XML', '1.0.3';
+requires 'MARC::File::XML', '1.0.5';
 requires 'MARC::File::MARCMaker', '0.05';
 requires 'MARC::File::MiJ' , '0.04';
 requires 'MARC::Record', '2.0.6';
diff --git a/lib/Catmandu/Exporter/MARC/ALEPHSEQ.pm b/lib/Catmandu/Exporter/MARC/ALEPHSEQ.pm
index a31a2e4..e6dacec 100644
--- a/lib/Catmandu/Exporter/MARC/ALEPHSEQ.pm
+++ b/lib/Catmandu/Exporter/MARC/ALEPHSEQ.pm
@@ -89,14 +89,19 @@ sub add {
         next if $#data == -1;
 
         # Joins are faster than perl string concatenation
-        if (index($tag,'FMT') == 0 || index($tag,'00') == 0) {
-            push @lines , join('', $_id , ' ' , $tag , $ind1 , $ind2 , ' L ', $data[1] );
-        }
-        elsif (index($tag,'LDR') == 0) {
+        if (index($tag,'LDR') == 0) {
             my $ldr = $data[1];
             $ldr =~ s/ /^/og;
             push @lines , join('', $_id , ' ' , $tag , $ind1 , $ind2 , ' L ', $ldr );
         }
+        elsif (index($tag,'008') == 0) {
+            my $f008 = $data[1];
+            $f008 =~ s/ /^/og;
+            push @lines , join('', $_id , ' ' , $tag , $ind1 , $ind2 , ' L ', $f008 );
+        }
+        elsif (index($tag,'FMT') == 0 || index($tag,'00') == 0) {
+            push @lines , join('', $_id , ' ' , $tag , $ind1 , $ind2 , ' L ', $data[1] );
+        }
         else {
              my @line = ('', $_id , ' ' , $tag , $ind1 , $ind2 , ' L ');
              while (@data) {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-marc-perl.git