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

(-)a/Koha/Biblio.pm (-3 / +8 lines)
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
- 

Return to bug 20310