| 
      
            Lines 864-871
          sub host_record {
      
      
        Link Here
      
     | 
  
        
          | 864 | 
                      $bibno = $engine->extract_biblionumber( $results->[0] );  | 
          864 | 
                      $bibno = $engine->extract_biblionumber( $results->[0] );  | 
        
        
          | 865 | 
                      last;  | 
          865 | 
                      last;  | 
        
        
          | 866 | 
                  }  | 
          866 | 
                  }  | 
        
          
            
              | 867 | 
                      # Extract number from $w (remove orgcode) for second try  | 
              867 | 
                      # Add or remove orgcode for second try  | 
            
            
              | 868 | 
                      $rcn= $1 if $try == 1 && $rcn =~ /\)\s*(\d+)/;  | 
              868 | 
                      if( $try == 1 && $rcn =~ /\)\s*(\d+)/ ) { | 
            
            
               | 
               | 
              869 | 
                          $rcn = $1; # number only  | 
            
            
              | 870 | 
                      } elsif( $try == 1 && $rcn =~ /^\d+/ ) { | 
            
            
              | 871 | 
                          $rcn = "($orgcode)$rcn";  | 
            
            
              | 872 | 
                      } else { | 
            
            
              | 873 | 
                          last;  | 
            
            
              | 874 | 
                      }  | 
            
        
          | 869 | 
              }  | 
          875 | 
              }  | 
        
        
          | 870 | 
              if( $bibno ) { | 
          876 | 
              if( $bibno ) { | 
        
        
          | 871 | 
                  my $host = Koha::Biblios->find($bibno) or return;  | 
          877 | 
                  my $host = Koha::Biblios->find($bibno) or return;  | 
        
            
              | 872 | 
              -   | 
               | 
               |