require 1.02 version of Text::Unaccent (1.01 can't pass 'make test' here!)

[webpac] / all2xml.pl

diff --git a/all2xml.pl b/all2xml.pl
index 03b0335..bf992a1 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -5,7 +5,7 @@ use OpenIsis;
 use Getopt::Std;
 use Data::Dumper;
 use XML::Simple;
-use Text::Unaccent;
+use Text::Unaccent 1.02;       # 1.01 won't compile on my platform,
 require Unicode::Map8;
 
 my $config=XMLin(undef, forcearray => [ 'isis' ], forcecontent => 1);
@@ -38,7 +38,9 @@ sub isis2xml {
                        my $sf = OpenIsis::subfields($row->{$isis_id}->[0]);
                        if (! defined $subfield || length($subfield) == 0) {
                                # subfield list undef, empty or no defined subfields for this record
-                               return $row->{$isis_id}->[0];
+                               my $all_sf = $row->{$isis_id}->[0];
+                               $all_sf =~ s/\^./ /g;   nuke definirions
+                               return $all_sf;
                        } elsif ($sf->{$subfield}) {
                                return $sf->{$subfield};
                        }