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

   1 #
   2 # hash_sf($row_data,'field'[,'subfield'])
   3 #
   4 # e.g. hash_sf($row,'700','a')
   5 #
   6 sub hash_sf {
   7         my $row = shift @_;
   8         my $field = shift @_;
   9         my $subfield = shift @_;
  10
  11         my $i = shift @_ || 0;
  12
  13         my $out;
  14
  15         if ($row->{$field}->[$i]) {
  16                 if (! $subfield) {
  17                         # subfield list undef, empty or no defined subfields for this record
  18                         my $all_sf = $row->{record}->{$field}->[$i] || confess "can't find field $field:$i",Dumper($row);
  19                         $all_sf =~ s/[\^\$]./ /g;   # nuke definitions
  20                         return $all_sf;
  21                 }
  22                 my $sf = $row->{$field}->[$i]->{$subfield};
  23                 return $sf if ($sf);
  24         }
  25 }
  26
  27 1;
  28