/[webpac]/trunk/isis_sf.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /trunk/isis_sf.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 10 - (hide annotations)
Thu Jan 16 17:35:54 2003 UTC (16 years, 11 months ago) by dpavlin
File size: 556 byte(s)
bunch of changes: make design more modular, implement index (partial
implementation) and other small and big changes

1 dpavlin 10 #
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     if ($row->{$isis_id}->[0]) {
12     my $sf = OpenIsis::subfields($row->{$isis_id}->[0]);
13     if (! defined $subfield || length($subfield) == 0) {
14     # subfield list undef, empty or no defined subfields for this record
15     my $all_sf = $row->{$isis_id}->[0];
16     $all_sf =~ s/\^./ /g; nuke definirions
17     return $all_sf;
18     } elsif ($sf->{$subfield}) {
19     return $sf->{$subfield};
20     }
21     }
22     }
23    
24     1;
25    

Properties

Name Value
cvs2svn:cvs-rev 1.1

  ViewVC Help
Powered by ViewVC 1.1.26