2 # marc_sf($marc,'field'[,'subfield'])
4 # e.g. marc_sf($row,'700','a')
7 my $marc = shift @_ || die "marc_sf: needs record";
8 my $f = shift @_ || die "marc_sf: needs field name";
11 my $i = shift @_ || 0;
15 @out = $marc->subfield($f,$s);
17 @out = $marc->field($f)->as_string() if ($marc->field($f));
20 return $out[$i] if (@out && $out[$i]);