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