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         my $i = shift @_ || 0;
  12
  13         my $out;
  14
  15         if ($row->{$isis_id}->[$i]) {
  16                 if (! $subfield) {
  17                         # subfield list undef, empty or no defined subfields for this record
  18                         my $all_sf = $row->{$isis_id}->[$i];
  19                         $all_sf =~ s/\^./ /g;   # nuke definitions
  20                         return $all_sf;
  21                 }
  22                 my $sf = OpenIsis::subfields($row->{$isis_id}->[$i]);
  23                 if ($sf->{$subfield}) {
  24                         return $sf->{$subfield};
  25                 }
  26         }
  27 }
  28
  29 1;
  30