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 <[email protected]> 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 _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
