| 
      
            Lines 502-508
          sub ImportBreedingAuth {
      
      
        Link Here
      
     | 
  
        
          | 502 | 
              my $batch_id = GetZ3950BatchId($filename);  | 
          502 | 
              my $batch_id = GetZ3950BatchId($filename);  | 
        
        
          | 503 | 
              my $searchbreeding = $dbh->prepare("select import_record_id from import_auths where control_number=? and authorized_heading=?"); | 
          503 | 
              my $searchbreeding = $dbh->prepare("select import_record_id from import_auths where control_number=? and authorized_heading=?"); | 
        
        
          | 504 | 
           | 
          504 | 
           | 
        
          
            
              | 505 | 
                  my $marc_type = shift || C4::Context->preference('marcflavour'); | 
              505 | 
                  my $marc_type = C4::Context->preference('marcflavour'); | 
            
        
          | 506 | 
           | 
          506 | 
           | 
        
        
          | 507 | 
              my $controlnumber = $marcrecord->field('001')->data; | 
          507 | 
              my $controlnumber = $marcrecord->field('001')->data; | 
        
        
          | 508 | 
           | 
          508 | 
           | 
        
            
              | 509 | 
              -   | 
               | 
               |