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