--- trunk/lib/WebPAC/Normalize.pm	2006/07/30 14:19:54	604
+++ trunk/lib/WebPAC/Normalize.pm	2006/07/30 14:23:23	605
@@ -667,9 +667,13 @@
 
 	foreach my $d (@$r) {
 
+		if (! defined($d->{subfields}) && ref($d->{subfields}) ne 'ARRAY') {
+			warn "# marc_original_order($from,$to): field $from doesn't have subfields specification\n";
+			next;
+		}
+	
 		my @sfs = @{ $d->{subfields} };
 
-		die "field $from doesn't have subfields specification\n" unless(@sfs);
 		die "field $from doesn't have even number of subfields specifications\n" unless($#sfs % 2 == 1);
 
 warn "#--> d: ",dump($d), "\n#--> sfs: ",dump(@sfs),$/;