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; |
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 |
} |
} |