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->{record}->{$isis_id}->[$i];
  19                         $all_sf =~ s/\^./ /g;   # nuke definitions
  20                         return $all_sf;
  21                 }
  22                 my $sf = $row->{$isis_id}->[$i]->{$subfield};
  23                 return $sf if ($sf);
  24         }
  25 }
  26
  27 1;
  28