984 |
my ( $sf, $nr ) = @$sf; |
my ( $sf, $nr ) = @$sf; |
985 |
my $v = $fill_in->{$sf}->[$nr] || die "can't find fill_in $sf/$nr"; |
my $v = $fill_in->{$sf}->[$nr] || die "can't find fill_in $sf/$nr"; |
986 |
warn "++ $sf/$nr |$v|\n"; |
warn "++ $sf/$nr |$v|\n"; |
987 |
push @$m, [ $sf, $v ]; |
push @$m, ( $sf, $v ); |
988 |
} |
} |
989 |
|
|
990 |
warn "#### >>>> created marc: ", dump( $m ); |
warn "#### >>>> created marc: ", dump( $m ); |
993 |
} |
} |
994 |
|
|
995 |
warn "### marc_template produced: ",dump( @marc_out ); |
warn "### marc_template produced: ",dump( @marc_out ); |
996 |
return @marc_out; |
|
997 |
|
foreach my $marc ( @marc_out ) { |
998 |
|
warn "+++ ",dump( $marc ); |
999 |
|
push @{ $marc_record->[ $marc_record_offset ] }, $marc; |
1000 |
|
} |
1001 |
} |
} |
1002 |
|
|
1003 |
=head2 marc_count |
=head2 marc_count |