35 |
|
|
36 |
=head1 VERSION |
=head1 VERSION |
37 |
|
|
38 |
Version 0.10 |
Version 0.11 |
39 |
|
|
40 |
=cut |
=cut |
41 |
|
|
42 |
our $VERSION = '0.10'; |
our $VERSION = '0.11'; |
43 |
|
|
44 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
45 |
|
|
326 |
warn "## saved/3 ", dump( $field ),$/ if ($debug); |
warn "## saved/3 ", dump( $field ),$/ if ($debug); |
327 |
} |
} |
328 |
|
|
329 |
return @m; |
return \@m; |
330 |
} |
} |
331 |
|
|
332 |
=head2 _debug |
=head2 _debug |
565 |
|
|
566 |
warn "### marc_remove before = ", dump( $marc ), $/ if ($debug > 2); |
warn "### marc_remove before = ", dump( $marc ), $/ if ($debug > 2); |
567 |
|
|
568 |
foreach my $i ( 0 .. $#{ $marc } ) { |
my $i = 0; |
569 |
|
foreach ( 0 .. $#{ $marc } ) { |
570 |
last unless (defined $marc->[$i]); |
last unless (defined $marc->[$i]); |
571 |
warn "#### working on ",dump( @{ $marc->[$i] }), $/ if ($debug > 3); |
warn "#### working on ",dump( @{ $marc->[$i] }), $/ if ($debug > 3); |
572 |
if ($marc->[$i]->[0] eq $f) { |
if ($marc->[$i]->[0] eq $f) { |
592 |
} |
} |
593 |
} |
} |
594 |
} |
} |
595 |
|
$i++; |
596 |
} |
} |
597 |
|
|
598 |
warn "### marc_remove($f", $sf ? ",$sf" : "", ") after = ", dump( $marc ), $/ if ($debug > 2); |
warn "### marc_remove($f", $sf ? ",$sf" : "", ") after = ", dump( $marc ), $/ if ($debug > 2); |