--- trunk/all2xml.pl 2002/11/30 00:36:34 3 +++ trunk/all2xml.pl 2002/12/01 22:51:29 4 @@ -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}; }