| Lines 939-946
          sub host_record {
      
      
        Link Here | 
        
          | 939 |             $bibno = $engine->extract_biblionumber( $results->[0] ); | 939 |             $bibno = $engine->extract_biblionumber( $results->[0] ); | 
        
          | 940 |             last; | 940 |             last; | 
        
          | 941 |         } | 941 |         } | 
          
            
              | 942 |         # Extract number from $w (remove orgcode) for second try | 942 |         # Add or remove orgcode for second try | 
            
              | 943 |         $rcn= $1 if $try == 1 && $rcn =~ /\)\s*(\d+)/; | 943 |         if( $try == 1 && $rcn =~ /\)\s*(\d+)/ ) { | 
            
              |  |  | 944 |             $rcn = $1; # number only | 
            
              | 945 |         } elsif( $try == 1 && $rcn =~ /^\d+/ ) { | 
            
              | 946 |             $rcn = "($orgcode)$rcn"; | 
            
              | 947 |         } else { | 
            
              | 948 |             last; | 
            
              | 949 |         } | 
        
          | 944 |     } | 950 |     } | 
        
          | 945 |     if( $bibno ) { | 951 |     if( $bibno ) { | 
        
          | 946 |         my $host = Koha::Biblios->find($bibno) or return; | 952 |         my $host = Koha::Biblios->find($bibno) or return; | 
            
              | 947 | -  |  |  |