Parent Directory | Revision Log
added MARC file import
1 | dpavlin | 62 | # |
2 | # get_sf($marc,'field'[,'subfield']) | ||
3 | # | ||
4 | # e.g. get_sf($row,'700','a') | ||
5 | # | ||
6 | sub get_sf { | ||
7 | my $marc = shift @_; | ||
8 | my $f = shift @_; | ||
9 | my $s = shift @_; | ||
10 | |||
11 | my $i = shift @_ || 0; | ||
12 | |||
13 | my $out; | ||
14 | |||
15 | return $marc->getfirstvalue({record=>$marc->marc_count(),field=>$f,subfield=>$s,delimiter=>" "}); | ||
16 | } | ||
17 | |||
18 | 1; | ||
19 |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.1 |
ViewVC Help | |
Powered by ViewVC 1.1.26 |