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