5 |
use Getopt::Std; |
use Getopt::Std; |
6 |
use Data::Dumper; |
use Data::Dumper; |
7 |
use XML::Simple; |
use XML::Simple; |
8 |
use Text::Unaccent; |
use Text::Unaccent 1.02; # 1.01 won't compile on my platform, |
9 |
require Unicode::Map8; |
require Unicode::Map8; |
10 |
|
|
11 |
my $config=XMLin(undef, forcearray => [ 'isis' ], forcecontent => 1); |
my $config=XMLin(undef, forcearray => [ 'isis' ], forcecontent => 1); |
38 |
my $sf = OpenIsis::subfields($row->{$isis_id}->[0]); |
my $sf = OpenIsis::subfields($row->{$isis_id}->[0]); |
39 |
if (! defined $subfield || length($subfield) == 0) { |
if (! defined $subfield || length($subfield) == 0) { |
40 |
# subfield list undef, empty or no defined subfields for this record |
# subfield list undef, empty or no defined subfields for this record |
41 |
return $row->{$isis_id}->[0]; |
my $all_sf = $row->{$isis_id}->[0]; |
42 |
|
$all_sf =~ s/\^./ /g; nuke definirions |
43 |
|
return $all_sf; |
44 |
} elsif ($sf->{$subfield}) { |
} elsif ($sf->{$subfield}) { |
45 |
return $sf->{$subfield}; |
return $sf->{$subfield}; |
46 |
} |
} |