/[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

revision 331 by dpavlin, Tue May 18 17:41:14 2004 UTC 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;

Legend:
Removed from v.331  
changed lines
  Added in v.332

  ViewVC Help
Powered by ViewVC 1.1.26