683 |
|
|
684 |
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); |
685 |
|
|
686 |
warn "#--> d: ",dump($d), "\n#--> sfs: ",dump(@sfs),$/; |
warn "#--> d: ",dump($d), "\n#--> sfs: ",dump(@sfs),$/ if ($debug > 2); |
687 |
|
|
688 |
my $m = [ $to, $i1, $i2 ]; |
my $m = [ $to, $i1, $i2 ]; |
689 |
|
|
690 |
while (my $sf = shift @sfs) { |
while (my $sf = shift @sfs) { |
691 |
warn "#--> sf: ",dump($sf), $/; |
|
692 |
|
warn "#--> sf: ",dump($sf), $/ if ($debug > 2); |
693 |
my $offset = shift @sfs; |
my $offset = shift @sfs; |
694 |
die "corrupted sufields specification for field $from\n" unless defined($offset); |
die "corrupted sufields specification for field $from\n" unless defined($offset); |
695 |
|
|
710 |
} |
} |
711 |
|
|
712 |
warn "## marc_record = ", dump( $marc_record ),$/ if ($debug > 1); |
warn "## marc_record = ", dump( $marc_record ),$/ if ($debug > 1); |
|
|
|
|
warn "# marc_original_order is partly implemented"; |
|
713 |
} |
} |
714 |
|
|
715 |
|
|