From 1750e2e906d20bc12181d47c0261cb493b24a02b Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sun, 29 Oct 2006 16:34:25 +0000 Subject: [PATCH] use join_subfields_with from Biblio::Isis 0.23 to handle repeatable subfields git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@750 13eb9ef6-21d5-0310-b721-a9d68796d827 --- all2xml.pl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/all2xml.pl b/all2xml.pl index 128b1ec..a7e7ade 100755 --- a/all2xml.pl +++ b/all2xml.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl -w use strict; -use Biblio::Isis; +use Biblio::Isis 0.23; use Getopt::Std; use Data::Dumper; use XML::Simple; @@ -785,7 +785,10 @@ foreach my $database ($cfg->Sections) { my $isis_db = $cfg -> val($database, 'isis_db') || die "$database doesn't have 'isis_db' defined!"; $import2cp = Text::Iconv->new($config->{isis_codepage},$codepage); - my $db = new Biblio::Isis( isisdb => $isis_db ); + my $db = new Biblio::Isis( + isisdb => $isis_db, + join_subfields_with => ' ; ', + ); if (! $db) { print STDERR "FATAL: can't read ISIS database: $isis_db, skipping...\n"; -- 2.20.1