Parent Directory | Revision Log | Patch
revision 105 by dpavlin, Mon Jul 14 17:08:37 2003 UTC | revision 139 by dpavlin, Wed Oct 29 23:19:58 2003 UTC | |
---|---|---|
# | Line 10 sub marc_sf { | Line 10 sub marc_sf { |
10 | ||
11 | my $i = shift @_ || 0; | my $i = shift @_ || 0; |
12 | ||
13 | my @out = $marc->getvalue({record=>$marc->marc_count(),field=>$f,subfield=>$s,delimiter=>" "}); | my @out = $marc->getvalue({record=>$marc->marc_count(),field=>$f,subfield=>$s}); |
14 | ||
15 | return $out[$i] if (@out && $out[$i]); | return $out[$i] if (@out && $out[$i]); |
16 | } | } |
17 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |