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 );
}
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
use strict;
use blib;
-use Test::More tests => 351;
+use Test::More tests => 343;
BEGIN {
use_ok( 'WebPAC::Test' );
);
},
[
- [440, " ", " ",
- ["a", "a-1-1"],
- ["x", "x-1-1"],
- ["v", "v-1-1"],
- ["n", "h-1-1"],
- ["p", "i-1-1"],
- ["v", "w-1-1"],
- ],
- [440, " ", " ", ["a", "a-2-1"], ["p", "i-2-1"], ["v", "v-2-1"]],
- [440, " ", " ", ["a", "a-3-1"], ["p", "i-3-1"], ["v", "v-3-1"]],
- [440, " ", " ",
- ["a", "a-4-1"],
- ["v", "v-4-1"],
- ["p", "i-4-1"],
- ["v", "w-4-1"],
- ],
+ [440, " ", " ", "a", "a-1-1", "x", "x-1-1", "v", "v-1-1", "n", "h-1-1", "p", "i-1-1", "v", "w-1-1", ],
+ [440, " ", " ", "a", "a-2-1", "p", "i-2-1", "v", "v-2-1"],
+ [440, " ", " ", "a", "a-3-1", "p", "i-3-1", "v", "v-3-1"],
+ [440, " ", " ", "a", "a-4-1", "v", "v-4-1", "p", "i-4-1", "v", "w-4-1"],
],
);
}