Line # Revision Author
1 62 dpavlin #
2 105 dpavlin # marc_sf($marc,'field'[,'subfield'])
3 62 dpavlin #
4 105 dpavlin # e.g. marc_sf($row,'700','a')
5 62 dpavlin #
6 105 dpavlin sub marc_sf {
7 169 dpavlin my $marc = shift @_ || die "marc_sf: needs record";
8 my $f = shift @_ || die "marc_sf: needs field name";
9 62 dpavlin my $s = shift @_;
10
11 my $i = shift @_ || 0;
12
13 605 dpavlin my @out;
14 if ($s) {
15 @out = $marc->subfield($f,$s);
16 } else {
17 608 dpavlin @out = $marc->field($f)->as_string() if ($marc->field($f));
18 605 dpavlin }
19 139 dpavlin
20 90 dpavlin return $out[$i] if (@out && $out[$i]);
21 62 dpavlin }
22
23 1;
24