Parent Directory | Revision Log | 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; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |