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

   1 #
   2 # get_sf($marc,'field'[,'subfield'])
   3 #
   4 # e.g. get_sf($row,'700','a')
   5 #
   6 sub get_sf {
   7         my $marc = shift @_;
   8         my $f = shift @_;
   9         my $s = shift @_;
  10
  11         my $i = shift @_ || 0;
  12
  13         my @out = $marc->getvalue({record=>$marc->marc_count(),field=>$f,subfield=>$s,delimiter=>" "});
  14         return $out[$i] if (@out && $out[$i]);
  15 }
  16
  17 1;
  18