Parent Directory | Revision Log | Patch
revision 489 by dpavlin, Wed Sep 29 18:56:26 2004 UTC | revision 610 by dpavlin, Fri Dec 31 02:24:20 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 |