Lines 1041-1047
sub buildQuery {
Link Here
|
1041 |
# for handling ccl, cql, pqf queries in diagnostic mode, skip the rest of the steps |
1041 |
# for handling ccl, cql, pqf queries in diagnostic mode, skip the rest of the steps |
1042 |
# DIAGNOSTIC ONLY!! |
1042 |
# DIAGNOSTIC ONLY!! |
1043 |
if ( $query =~ /^ccl=/ ) { |
1043 |
if ( $query =~ /^ccl=/ ) { |
1044 |
return ( undef, $', $', "q=ccl=$'", $', '', '', '', '', 'ccl' ); |
1044 |
my $q=$'; |
|
|
1045 |
# This is needed otherwise ccl= and &limit won't work together, and |
1046 |
# this happens when selecting a subject on the opac-detail page |
1047 |
if (@limits) { |
1048 |
$q .= ' and '.join(' and ', @limits); |
1049 |
} |
1050 |
return ( undef, $q, $q, "q=ccl=$q", $q, '', '', '', '', 'ccl' ); |
1045 |
} |
1051 |
} |
1046 |
if ( $query =~ /^cql=/ ) { |
1052 |
if ( $query =~ /^cql=/ ) { |
1047 |
return ( undef, $', $', "q=cql=$'", $', '', '', '', '', 'cql' ); |
1053 |
return ( undef, $', $', "q=cql=$'", $', '', '', '', '', 'cql' ); |
1048 |
- |
|
|