--- branches/cpi/parse_format.pm	2004/05/18 17:41:14	331
+++ branches/cpi/parse_format.pm	2004/05/18 18:14:43	332
@@ -73,7 +73,7 @@
 #	print STDERR "\n#### $f";
 			# this is EBSCO special to support numeric subfield in
 			# form of 856#3
-			if ($f =~ s/^(\d\d\d)#*(\w?)//) {
+			if ($f =~ s/^(\d\d\d*)#*(\w?)//) {
 				push @fmt,$1;
 				if ($2) {
 					push @fmt,$2;