Parent Directory | Revision Log | Patch
revision 89 by dpavlin, Fri Jul 4 20:11:48 2003 UTC | revision 90 by dpavlin, Sun Jul 13 13:22:50 2003 UTC | |
---|---|---|
# | Line 10 sub get_sf { | Line 10 sub get_sf { |
10 | ||
11 | my $i = shift @_ || 0; | my $i = shift @_ || 0; |
12 | ||
13 | my $out; | my @out = $marc->getvalue({record=>$marc->marc_count(),field=>$f,subfield=>$s,delimiter=>" "}); |
14 | return $out[$i] if (@out && $out[$i]); | |
return $marc->getfirstvalue({record=>$marc->marc_count(),field=>$f,subfield=>$s,delimiter=>" "}); | ||
15 | } | } |
16 | ||
17 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |