git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@889
07558da8-63fa-0310-ba24-
9fe276d99e06
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 {