--- trunk/lib/WebPAC/Normalize.pm	2006/07/02 20:14:21	564
+++ trunk/lib/WebPAC/Normalize.pm	2006/07/02 20:33:13	565
@@ -457,7 +457,7 @@
 
 	while (@_) {
 		my $sf = shift or die "marc_compose $f needs subfield";
-		my $v = shift or die "marc_compose $f needs value for subfield $sf";
+		my $v = shift;
 
 		next unless (defined($v) && $v !~ /^\s*$/);
 		from_to($v, 'iso-8859-2', $marc_encoding) if ($marc_encoding);
@@ -467,7 +467,7 @@
 
 	warn "## marc_compose(d) ", dump( $m ) if ($debug > 1);
 
-	push @{ $marc_record }, $m;
+	push @{ $marc_record }, $m if ($#{$m} > 2);
 }