|
Lines 726-732
sub get_matches {
Link Here
|
| 726 |
# get rid of any that don't meet the required checks |
726 |
# get rid of any that don't meet the required checks |
| 727 |
$matches = { |
727 |
$matches = { |
| 728 |
map { |
728 |
map { |
| 729 |
_passes_required_checks( $source_record, $_, $self->{'required_checks'} ) |
729 |
_passes_required_checks( $source_record, $matches->{$_}->{'record'}, $self->{'required_checks'} ) |
| 730 |
? ( $_ => $matches->{$_} ) |
730 |
? ( $_ => $matches->{$_} ) |
| 731 |
: () |
731 |
: () |
| 732 |
} keys %$matches |
732 |
} keys %$matches |
|
Lines 790-797
sub dump {
Link Here
|
| 790 |
} |
790 |
} |
| 791 |
|
791 |
|
| 792 |
sub _passes_required_checks { |
792 |
sub _passes_required_checks { |
| 793 |
my ($source_record, $target_blob, $matchchecks) = @_; |
793 |
my ($source_record, $target_record, $matchchecks) = @_; |
| 794 |
my $target_record = MARC::Record->new_from_usmarc($target_blob); # FIXME -- need to avoid parsing record twice |
|
|
| 795 |
|
794 |
|
| 796 |
# no checks supplied == automatic pass |
795 |
# no checks supplied == automatic pass |
| 797 |
return 1 if $#{ $matchchecks } == -1; |
796 |
return 1 if $#{ $matchchecks } == -1; |
| 798 |
- |
|
|