| 
      
            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 | 
              -   | 
               | 
               |