Parent Directory | Revision Log
brown-bag bug: I was using MARC.pm wrong: now whole file will be loaded at start of indexing, changing memory usage to much more step-like, but that enables real progress indicator and few seconds gain in indexing speed.
1 | dpavlin | 62 | # |
2 | dpavlin | 105 | # marc_sf($marc,'field'[,'subfield']) |
3 | dpavlin | 62 | # |
4 | dpavlin | 105 | # e.g. marc_sf($row,'700','a') |
5 | dpavlin | 62 | # |
6 | dpavlin | 105 | sub marc_sf { |
7 | dpavlin | 169 | my $marc = shift @_ || die "marc_sf: needs record"; |
8 | my $f = shift @_ || die "marc_sf: needs field name"; | ||
9 | dpavlin | 62 | my $s = shift @_; |
10 | |||
11 | my $i = shift @_ || 0; | ||
12 | |||
13 | dpavlin | 215 | my $rec = $main::cache->{marc_record} || die '$cache->{marc_record} is undefined!'; |
14 | dpavlin | 139 | |
15 | dpavlin | 215 | my @out = $marc->getvalue({record=>$rec,field=>$f,subfield=>$s}); |
16 | |||
17 | dpavlin | 90 | return $out[$i] if (@out && $out[$i]); |
18 | dpavlin | 62 | } |
19 | |||
20 | 1; | ||
21 |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.6 |
ViewVC Help | |
Powered by ViewVC 1.1.26 |