--- trunk/lib/WebPAC/Normalize.pm	2007/11/08 17:19:50	1015
+++ trunk/lib/WebPAC/Normalize.pm	2007/11/08 17:29:03	1016
@@ -984,7 +984,7 @@
 			my ( $sf, $nr ) = @$sf;
 			my $v = $fill_in->{$sf}->[$nr] || die "can't find fill_in $sf/$nr";
 			warn "++ $sf/$nr |$v|\n";
-			push @$m, [ $sf, $v ];
+			push @$m, ( $sf, $v );
 		}
 
 		warn "#### >>>> created marc: ", dump( $m );
@@ -993,7 +993,11 @@
 	}
 
 	warn "### marc_template produced: ",dump( @marc_out );
-	return @marc_out;
+
+	foreach my $marc ( @marc_out ) {
+		warn "+++ ",dump( $marc );
+		push @{ $marc_record->[ $marc_record_offset ] }, $marc;
+	}
 }
 
 =head2 marc_count