Parent Directory | Revision Log | Patch
trunk/parse_format.pm revision 297 by dpavlin, Fri Apr 2 23:30:44 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; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |