--- trunk/parse_format.pm	2004/03/29 19:41:12	293
+++ 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;
@@ -224,7 +224,7 @@
 		} elsif ($format =~ s/^([^A-Z\|]+)(\|[A-Z]{1,2}\|)/$2/) {
 			$prefix .= $1 if ($display);
 		} else {
-			print STDERR "unparsed format: $format\n";
+			#print STDERR "unparsed format: $format\n";
 			$prefix .= $format;
 			$format = "";
 		}