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 |
- |
|
|