Lines 1021-1026
sub _build_weighted_query {
Link Here
|
1021 |
$weighted_query .= "an=\"$operand\""; |
1021 |
$weighted_query .= "an=\"$operand\""; |
1022 |
} |
1022 |
} |
1023 |
|
1023 |
|
|
|
1024 |
# If the index is numeric, don't autoquote it. |
1025 |
elsif ( $index =~ /,st-numeric$/ ) { |
1026 |
$weighted_query .= " $index=$operand"; |
1027 |
} |
1028 |
|
1024 |
# If the index already has more than one qualifier, wrap the operand |
1029 |
# If the index already has more than one qualifier, wrap the operand |
1025 |
# in quotes and pass it back (assumption is that the user knows what they |
1030 |
# in quotes and pass it back (assumption is that the user knows what they |
1026 |
# are doing and won't appreciate us mucking up their query |
1031 |
# are doing and won't appreciate us mucking up their query |
Lines 1124-1129
sub getIndexes{
Link Here
|
1124 |
'Illustration-code', |
1129 |
'Illustration-code', |
1125 |
'Index-term-genre', |
1130 |
'Index-term-genre', |
1126 |
'Index-term-uncontrolled', |
1131 |
'Index-term-uncontrolled', |
|
|
1132 |
'Interest-age-level', |
1133 |
'Interest-grade-level', |
1127 |
'ISBN', |
1134 |
'ISBN', |
1128 |
'isbn', |
1135 |
'isbn', |
1129 |
'ISSN', |
1136 |
'ISSN', |
Lines 1138-1143
sub getIndexes{
Link Here
|
1138 |
'LC-card-number', |
1145 |
'LC-card-number', |
1139 |
'lcn', |
1146 |
'lcn', |
1140 |
'lex', |
1147 |
'lex', |
|
|
1148 |
'lexile-number', |
1141 |
'llength', |
1149 |
'llength', |
1142 |
'ln', |
1150 |
'ln', |
1143 |
'ln-audio', |
1151 |
'ln-audio', |
Lines 1174-1179
sub getIndexes{
Link Here
|
1174 |
'Publisher', |
1182 |
'Publisher', |
1175 |
'Provider', |
1183 |
'Provider', |
1176 |
'pv', |
1184 |
'pv', |
|
|
1185 |
'Reading-grade-level', |
1177 |
'Record-control-number', |
1186 |
'Record-control-number', |
1178 |
'rcn', |
1187 |
'rcn', |
1179 |
'Record-type', |
1188 |
'Record-type', |
Lines 1515-1522
sub buildQuery {
Link Here
|
1515 |
#which is processed higher up in this sub. Other than that, year searches are typically |
1524 |
#which is processed higher up in this sub. Other than that, year searches are typically |
1516 |
#handled as limits which are not processed her either. |
1525 |
#handled as limits which are not processed her either. |
1517 |
|
1526 |
|
1518 |
# Date of Publication |
1527 |
# Search ranges: Date of Publication, st-numeric |
1519 |
if ( $index =~ /yr/ ) { |
1528 |
if ( $index =~ /(yr|st-numeric)/ ) { |
1520 |
#weight_fields/relevance search causes errors with date ranges |
1529 |
#weight_fields/relevance search causes errors with date ranges |
1521 |
#In the case of YYYY-, it will only return records with a 'yr' of YYYY (not the range) |
1530 |
#In the case of YYYY-, it will only return records with a 'yr' of YYYY (not the range) |
1522 |
#In the case of YYYY-YYYY, it will return no results |
1531 |
#In the case of YYYY-YYYY, it will return no results |
Lines 1745-1750
sub buildQuery {
Link Here
|
1745 |
warn "LIMIT DESC:" . $limit_desc; |
1754 |
warn "LIMIT DESC:" . $limit_desc; |
1746 |
warn "---------\nLeave buildQuery\n---------"; |
1755 |
warn "---------\nLeave buildQuery\n---------"; |
1747 |
} |
1756 |
} |
|
|
1757 |
|
1748 |
return ( |
1758 |
return ( |
1749 |
undef, $query, $simple_query, $query_cgi, |
1759 |
undef, $query, $simple_query, $query_cgi, |
1750 |
$query_desc, $limit, $limit_cgi, $limit_desc, |
1760 |
$query_desc, $limit, $limit_cgi, $limit_desc, |