View | Details | Raw Unified | Return to bug 6875
Collapse All | Expand All

(-)a/C4/Heading.pm (-4 / +4 lines)
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
- 

Return to bug 6875