git.rot13.org Git - webpac/blob - isis_sf.pm

   1 #
   2 # isis_sf($isis_row,'isis_field'[,'subfield'])
   3 #
   4 # e.g. isis_sf($row,'700','a')
   5 #
   6 sub isis_sf {
   7         my $row = shift @_;
   8         my $isis_id = shift @_;
   9         my $subfield = shift @_;
  10
  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
  17                         return $all_sf;
  18                 } elsif ($sf->{$subfield}) {
  19                         return $sf->{$subfield};
  20                 }
  21         }
  22 }
  23
  24 1;
  25