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

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

Return to bug 20310