/[webpac]/branches/ffzg/all2xml.pl
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/ffzg/all2xml.pl

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

revision 3 by dpavlin, Sat Nov 30 00:36:34 2002 UTC revision 4 by dpavlin, Sun Dec 1 22:51:29 2002 UTC
# Line 38  sub isis2xml { Line 38  sub isis2xml {
38                          my $sf = OpenIsis::subfields($row->{$isis_id}->[0]);                          my $sf = OpenIsis::subfields($row->{$isis_id}->[0]);
39                          if (! defined $subfield || length($subfield) == 0) {                          if (! defined $subfield || length($subfield) == 0) {
40                                  # subfield list undef, empty or no defined subfields for this record                                  # subfield list undef, empty or no defined subfields for this record
41                                  return $row->{$isis_id}->[0];                                  my $all_sf = $row->{$isis_id}->[0];
42                                    $all_sf =~ s/\^./ /g;   nuke definirions
43                                    return $all_sf;
44                          } elsif ($sf->{$subfield}) {                          } elsif ($sf->{$subfield}) {
45                                  return $sf->{$subfield};                                  return $sf->{$subfield};
46                          }                          }

Legend:
Removed from v.3  
changed lines
  Added in v.4

  ViewVC Help
Powered by ViewVC 1.1.26