@@ -, +, @@ --- Koha/Biblio.pm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) --- a/Koha/Biblio.pm +++ a/Koha/Biblio.pm @@ -935,8 +935,14 @@ sub host_record { $bibno = $engine->extract_biblionumber( $results->[0] ); last; } - # Extract number from $w (remove orgcode) for second try - $rcn= $1 if $try == 1 && $rcn =~ /\)\s*(\d+)/; + # Add or remove orgcode for second try + if( $try == 1 && $rcn =~ /\)\s*(\d+)/ ) { + $rcn = $1; # number only + } elsif( $try == 1 && $rcn =~ /^\d+/ ) { + $rcn = "($orgcode)$rcn"; + } else { + last; + } } if( $bibno ) { my $host = Koha::Biblios->find($bibno) or return; --