Parent Directory | Revision Log
use IsisDB module instead of OpenIsis -- this will fix various problems in index generation becasue IsisDB doesn't have problems as OpenIsis perl bindings does.
1 | # |
2 | # isis_sf($isis_row,'isis_field'[,'subfield']) |
3 | # |
4 | # e.g. isis_sf($row,'700','a') |
5 | # |
6 | sub isis_sf { |
7 | my $row = shift @_; |
8 | my $isis_id = shift @_; |
9 | my $subfield = shift @_; |
10 | |
11 | my $i = shift @_ || 0; |
12 | |
13 | my $out; |
14 | |
15 | if ($row->{$isis_id}->[$i]) { |
16 | if (! $subfield) { |
17 | # subfield list undef, empty or no defined subfields for this record |
18 | my $all_sf = $row->{record}->{$isis_id}->[$i]; |
19 | $all_sf =~ s/\^./ /g; # nuke definitions |
20 | return $all_sf; |
21 | } |
22 | my $sf = $row->{$isis_id}->[$i]->{$subfield}; |
23 | return $sf if ($sf); |
24 | } |
25 | } |
26 | |
27 | 1; |
28 |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.5 |
ViewVC Help | |
Powered by ViewVC 1.1.26 |