176 |
) |
) |
177 |
) { |
) { |
178 |
push @$last, ( $row->[3] , $row->[4] ); |
push @$last, ( $row->[3] , $row->[4] ); |
|
warn "## ++ added $row->[0] ^$row->[3] to $last->[0]\n"; |
|
179 |
next; |
next; |
180 |
} elsif ($last) { |
} elsif ($last) { |
181 |
push @m, $last; |
push @m, $last; |
261 |
my $v = $_; # make var read-write for Encode |
my $v = $_; # make var read-write for Encode |
262 |
next unless (defined($v) && $v !~ /^\s*$/); |
next unless (defined($v) && $v !~ /^\s*$/); |
263 |
from_to($v, 'iso-8859-2', $marc_encoding) if ($marc_encoding); |
from_to($v, 'iso-8859-2', $marc_encoding) if ($marc_encoding); |
264 |
push @{ $marc_record }, [ |
my ($i1,$i2) = defined($marc_indicators->{$f}) ? @{ $marc_indicators->{$f} } : (' ',' '); |
265 |
$f, |
push @{ $marc_record }, [ $f, $i1, $i2, $sf => $v ]; |
|
$marc_indicators->{$f}->{i1} || ' ', |
|
|
$marc_indicators->{$f}->{i2} || ' ', |
|
|
$sf => $v |
|
|
]; |
|
266 |
} |
} |
267 |
} |
} |
268 |
|
|
298 |
|
|
299 |
$i1 = ' ' if ($i1 !~ /^\d$/); |
$i1 = ' ' if ($i1 !~ /^\d$/); |
300 |
$i2 = ' ' if ($i2 !~ /^\d$/); |
$i2 = ' ' if ($i2 !~ /^\d$/); |
301 |
$marc_indicators->{$f}->{i1} = $i1; |
@{ $marc_indicators->{$f} } = ($i1,$i2); |
|
$marc_indicators->{$f}->{i2} = $i2; |
|
302 |
} |
} |
303 |
|
|
304 |
|
|