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

(-)a/C4/AuthoritiesMarc.pm (+1 lines)
Lines 1213-1218 sub GetAuthorizedHeading { Link Here
1213
    unless ($record = $args->{record}) {
1213
    unless ($record = $args->{record}) {
1214
        return unless $args->{authid};
1214
        return unless $args->{authid};
1215
        $record = GetAuthority($args->{authid});
1215
        $record = GetAuthority($args->{authid});
1216
        return unless $record;
1216
    }
1217
    }
1217
    if (C4::Context->preference('marcflavour') eq 'UNIMARC') {
1218
    if (C4::Context->preference('marcflavour') eq 'UNIMARC') {
1218
# construct UNIMARC summary, that is quite different from MARC21 one
1219
# construct UNIMARC summary, that is quite different from MARC21 one
(-)a/C4/Search.pm (-2 / +2 lines)
Lines 250-255 sub SimpleSearch { Link Here
250
                    $query = $QParser->target_syntax($servers[$i]);
250
                    $query = $QParser->target_syntax($servers[$i]);
251
                    $zoom_queries[$i] = new ZOOM::Query::PQF( $query, $zconns[$i]);
251
                    $zoom_queries[$i] = new ZOOM::Query::PQF( $query, $zconns[$i]);
252
                } else {
252
                } else {
253
                    $query =~ s/:/=/g;
253
                    $zoom_queries[$i] = new ZOOM::Query::CCL2RPN( $query, $zconns[$i]);
254
                    $zoom_queries[$i] = new ZOOM::Query::CCL2RPN( $query, $zconns[$i]);
254
                }
255
                }
255
                $tmpresults[$i] = $zconns[$i]->search( $zoom_queries[$i] );
256
                $tmpresults[$i] = $zconns[$i]->search( $zoom_queries[$i] );
Lines 1176-1182 sub parseQuery { Link Here
1176
1177
1177
    my $QParser;
1178
    my $QParser;
1178
    $QParser = C4::Context->queryparser if (C4::Context->preference('UseQueryParser') || $query =~ s/^qp=//);
1179
    $QParser = C4::Context->queryparser if (C4::Context->preference('UseQueryParser') || $query =~ s/^qp=//);
1179
    undef $QParser if ($query =~ m/^(ccl=|pqf=|cql=)/ || grep (/\w,\w|\w=\w/, @operands) );
1180
    undef $QParser if ($query =~ m/^(ccl=|pqf=|cql=)/ || grep (/\w,\w|\w=\w/, @operands, @indexes) );
1180
    undef $QParser if (scalar @limits > 0);
1181
    undef $QParser if (scalar @limits > 0);
1181
1182
1182
    if ($QParser)
1183
    if ($QParser)
1183
- 

Return to bug 9239