2 # isis_sf($isis_row,'isis_field'[,'subfield'])
4 # e.g. isis_sf($row,'700','a')
8 my $isis_id = shift @_;
9 my $subfield = shift @_;
11 if ($row->{$isis_id}->[0]) {
12 my $sf = OpenIsis::subfields($row->{$isis_id}->[0]);
13 if (! defined $subfield || length($subfield) == 0) {
14 # subfield list undef, empty or no defined subfields for this record
15 my $all_sf = $row->{$isis_id}->[0];
16 $all_sf =~ s/\^./ /g; nuke definirions
18 } elsif ($sf->{$subfield}) {
19 return $sf->{$subfield};