r1573@llin: dpavlin | 2007-11-08 18:29:03 +0100

[webpac2] / lib / WebPAC / Normalize.pm

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index 305d3be..1c350f7 100644 (file)
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -984,7 +984,7 @@ sub marc_template {
                        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 @@ sub marc_template {
        }
 
        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