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 | dpavlin | 10 | # |
2 | dpavlin | 105 | # isis_sf($isis_row,'isis_field'[,'subfield']) |
3 | dpavlin | 10 | # |
4 | dpavlin | 105 | # e.g. isis_sf($row,'700','a') |
5 | dpavlin | 10 | # |
6 | dpavlin | 105 | sub isis_sf { |
7 | dpavlin | 10 | my $row = shift @_; |
8 | my $isis_id = shift @_; | ||
9 | my $subfield = shift @_; | ||
10 | |||
11 | dpavlin | 29 | my $i = shift @_ || 0; |
12 | |||
13 | my $out; | ||
14 | |||
15 | if ($row->{$isis_id}->[$i]) { | ||
16 | dpavlin | 45 | if (! $subfield) { |
17 | dpavlin | 10 | # subfield list undef, empty or no defined subfields for this record |
18 | dpavlin | 619 | my $all_sf = $row->{record}->{$isis_id}->[$i]; |
19 | $all_sf =~ s/\^./ /g; # nuke definitions | ||
20 | dpavlin | 29 | return $all_sf; |
21 | dpavlin | 45 | } |
22 | dpavlin | 619 | my $sf = $row->{$isis_id}->[$i]->{$subfield}; |
23 | return $sf if ($sf); | ||
24 | dpavlin | 10 | } |
25 | } | ||
26 | |||
27 | 1; | ||
28 |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.5 |
ViewVC Help | |
Powered by ViewVC 1.1.26 |