my ($f, $pos, $val) = @_;
die "need marc(field, position, value)" unless defined($f) && defined($pos);
+ confess "need val" unless defined $val;
+
my $update = 0;
map {
if ($_->[0] eq $f) {
my $old = $_->[1];
- if (length($old) < $pos) {
+ if (length($old) <= $pos) {
$_->[1] .= ' ' x ( $pos - length($old) ) . $val;
warn "## marc_fixed($f,$pos,'$val') append '$old' -> '$_->[1]'\n" if ($debug > 1);
} else {