--- trunk/all2xml.pl	2002/11/30 00:36:34	3
+++ trunk/all2xml.pl	2003/01/11 06:14:48	5
@@ -5,7 +5,7 @@
 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 @@
 			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};
 			}