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 252-257 sub SimpleSearch { Link Here
252
                    $query = $QParser->target_syntax($servers[$i]);
252
                    $query = $QParser->target_syntax($servers[$i]);
253
                    $zoom_queries[$i] = new ZOOM::Query::PQF( $query, $zconns[$i]);
253
                    $zoom_queries[$i] = new ZOOM::Query::PQF( $query, $zconns[$i]);
254
                } else {
254
                } else {
255
                    $query =~ s/:/=/g;
255
                    $zoom_queries[$i] = new ZOOM::Query::CCL2RPN( $query, $zconns[$i]);
256
                    $zoom_queries[$i] = new ZOOM::Query::CCL2RPN( $query, $zconns[$i]);
256
                }
257
                }
257
                $tmpresults[$i] = $zconns[$i]->search( $zoom_queries[$i] );
258
                $tmpresults[$i] = $zconns[$i]->search( $zoom_queries[$i] );
Lines 1178-1184 sub parseQuery { Link Here
1178
1179
1179
    my $QParser;
1180
    my $QParser;
1180
    $QParser = C4::Context->queryparser if (C4::Context->preference('UseQueryParser') || $query =~ s/^qp=//);
1181
    $QParser = C4::Context->queryparser if (C4::Context->preference('UseQueryParser') || $query =~ s/^qp=//);
1181
    undef $QParser if ($query =~ m/^(ccl=|pqf=|cql=)/ || grep (/\w,\w|\w=\w/, @operands) );
1182
    undef $QParser if ($query =~ m/^(ccl=|pqf=|cql=)/ || grep (/\w,\w|\w=\w/, @operands, @indexes) );
1182
    undef $QParser if (scalar @limits > 0);
1183
    undef $QParser if (scalar @limits > 0);
1183
1184
1184
    if ($QParser)
1185
    if ($QParser)
1185
- 

Return to bug 9239