View | Details | Raw Unified | Return to bug 20310
Collapse All | Expand All

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

Return to bug 20310