/[webpac]/branches/cpi/parse_format.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/cpi/parse_format.pm

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

trunk/parse_format.pm revision 293 by dpavlin, Mon Mar 29 19:41:12 2004 UTC branches/cpi/parse_format.pm revision 332 by dpavlin, Tue May 18 18:14:43 2004 UTC
# Line 73  sub parse_iso_format { Line 73  sub parse_iso_format {
73  #       print STDERR "\n#### $f";  #       print STDERR "\n#### $f";
74                          # this is EBSCO special to support numeric subfield in                          # this is EBSCO special to support numeric subfield in
75                          # form of 856#3                          # form of 856#3
76                          if ($f =~ s/^(\d\d\d)#*(\w?)//) {                          if ($f =~ s/^(\d\d\d*)#*(\w?)//) {
77                                  push @fmt,$1;                                  push @fmt,$1;
78                                  if ($2) {                                  if ($2) {
79                                          push @fmt,$2;                                          push @fmt,$2;
# Line 224  sub parse_excel_format { Line 224  sub parse_excel_format {
224                  } elsif ($format =~ s/^([^A-Z\|]+)(\|[A-Z]{1,2}\|)/$2/) {                  } elsif ($format =~ s/^([^A-Z\|]+)(\|[A-Z]{1,2}\|)/$2/) {
225                          $prefix .= $1 if ($display);                          $prefix .= $1 if ($display);
226                  } else {                  } else {
227                          print STDERR "unparsed format: $format\n";                          #print STDERR "unparsed format: $format\n";
228                          $prefix .= $format;                          $prefix .= $format;
229                          $format = "";                          $format = "";
230                  }                  }
Legend:
Removed from v.293  
changed lines
  Added in v.332
  ViewVC Help
Powered by ViewVC 1.1.26