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

diff --git a/all2xml.pl b/all2xml.pl
index 128b1ec..a7e7ade 100755 (executable)
--- 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";