|
Lines 24-29
use MARC::Field;
Link Here
|
| 24 |
use C4::Context; |
24 |
use C4::Context; |
| 25 |
use C4::Heading::MARC21; |
25 |
use C4::Heading::MARC21; |
| 26 |
use C4::Search; |
26 |
use C4::Search; |
|
|
27 |
use Carp; |
| 27 |
|
28 |
|
| 28 |
our $VERSION = 3.00; |
29 |
our $VERSION = 3.00; |
| 29 |
|
30 |
|
|
Lines 109-114
sub authorities {
Link Here
|
| 109 |
my $query = qq(Match-heading,ext="$self->{'search_form'}"); |
110 |
my $query = qq(Match-heading,ext="$self->{'search_form'}"); |
| 110 |
$query .= $self->_query_limiters(); |
111 |
$query .= $self->_query_limiters(); |
| 111 |
my ($error, $results, $total_hits) = SimpleSearch( $query, undef, undef, [ "authorityserver" ] ); |
112 |
my ($error, $results, $total_hits) = SimpleSearch( $query, undef, undef, [ "authorityserver" ] ); |
|
|
113 |
if (defined $error) { |
| 114 |
carp "Error:$error from search $query"; |
| 115 |
} |
| 112 |
return $results; |
116 |
return $results; |
| 113 |
} |
117 |
} |
| 114 |
|
118 |
|
|
Lines 126-131
sub preferred_authorities {
Link Here
|
| 126 |
my $query = "Match-heading-see-from,ext='$self->{'search_form'}'"; |
130 |
my $query = "Match-heading-see-from,ext='$self->{'search_form'}'"; |
| 127 |
$query .= $self->_query_limiters(); |
131 |
$query .= $self->_query_limiters(); |
| 128 |
my ($error, $results, $total_hits) = SimpleSearch( $query, undef, undef, [ "authorityserver" ] ); |
132 |
my ($error, $results, $total_hits) = SimpleSearch( $query, undef, undef, [ "authorityserver" ] ); |
|
|
133 |
if (defined $error) { |
| 134 |
carp "Error:$error from search $query"; |
| 135 |
} |
| 129 |
return $results; |
136 |
return $results; |
| 130 |
} |
137 |
} |
| 131 |
|
138 |
|