/[webpac]/branches/hidra/hash_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

Diff of /branches/hidra/hash_sf.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 105 by dpavlin, Mon Jul 14 17:08:37 2003 UTC revision 619 by dpavlin, Fri Dec 31 04:22:49 2004 UTC
# Line 15  sub isis_sf { Line 15  sub isis_sf {
15          if ($row->{$isis_id}->[$i]) {          if ($row->{$isis_id}->[$i]) {
16                  if (! $subfield) {                  if (! $subfield) {
17                          # subfield list undef, empty or no defined subfields for this record                          # subfield list undef, empty or no defined subfields for this record
18                          my $all_sf = $row->{$isis_id}->[$i];                          my $all_sf = $row->{record}->{$isis_id}->[$i];
19                          $all_sf =~ s/\^./ /g;   # nuke definitions                          $all_sf =~ s/\^./ /g;   # nuke definitions
20                          return $all_sf;                          return $all_sf;
21                  }                  }
22                  my $sf = OpenIsis::subfields($row->{$isis_id}->[$i]);                  my $sf = $row->{$isis_id}->[$i]->{$subfield};
23                  if ($sf->{$subfield}) {                  return $sf if ($sf);
                         return $sf->{$subfield};  
                 }  
24          }          }
25  }  }
26    

Legend:
Removed from v.105  
changed lines
  Added in v.619

  ViewVC Help
Powered by ViewVC 1.1.26