667 |
|
|
668 |
foreach my $d (@$r) { |
foreach my $d (@$r) { |
669 |
|
|
670 |
|
if (! defined($d->{subfields}) && ref($d->{subfields}) ne 'ARRAY') { |
671 |
|
warn "# marc_original_order($from,$to): field $from doesn't have subfields specification\n"; |
672 |
|
next; |
673 |
|
} |
674 |
|
|
675 |
my @sfs = @{ $d->{subfields} }; |
my @sfs = @{ $d->{subfields} }; |
676 |
|
|
|
die "field $from doesn't have subfields specification\n" unless(@sfs); |
|
677 |
die "field $from doesn't have even number of subfields specifications\n" unless($#sfs % 2 == 1); |
die "field $from doesn't have even number of subfields specifications\n" unless($#sfs % 2 == 1); |
678 |
|
|
679 |
warn "#--> d: ",dump($d), "\n#--> sfs: ",dump(@sfs),$/; |
warn "#--> d: ",dump($d), "\n#--> sfs: ",dump(@sfs),$/; |