Parent Directory | Revision Log
update branches to trunk
1 | # |
2 | # marc_sf($marc,'field'[,'subfield']) |
3 | # |
4 | # e.g. marc_sf($row,'700','a') |
5 | # |
6 | sub marc_sf { |
7 | my $marc = shift @_ || die "marc_sf: needs record"; |
8 | my $f = shift @_ || die "marc_sf: needs field name"; |
9 | my $s = shift @_; |
10 | |
11 | my $i = shift @_ || 0; |
12 | |
13 | my @out; |
14 | if ($s) { |
15 | @out = $marc->subfield($f,$s); |
16 | } else { |
17 | @out = $marc->field($f)->as_string() if ($marc->field($f)); |
18 | } |
19 | |
20 | return $out[$i] if (@out && $out[$i]); |
21 | } |
22 | |
23 | 1; |
24 |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.6 |
ViewVC Help | |
Powered by ViewVC 1.1.26 |