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