Lines 814-820
sub getIndexes{
Link Here
|
814 |
'biblionumber', |
814 |
'biblionumber', |
815 |
'bio', |
815 |
'bio', |
816 |
'biography', |
816 |
'biography', |
817 |
'callnum', |
817 |
'callnum', |
818 |
'cfn', |
818 |
'cfn', |
819 |
'Chronological-subdivision', |
819 |
'Chronological-subdivision', |
820 |
'cn-bib-source', |
820 |
'cn-bib-source', |
Lines 927-933
sub getIndexes{
Link Here
|
927 |
'Title-uniform-seealso', |
927 |
'Title-uniform-seealso', |
928 |
'totalissues', |
928 |
'totalissues', |
929 |
'yr', |
929 |
'yr', |
930 |
|
930 |
|
931 |
# items indexes |
931 |
# items indexes |
932 |
'acqsource', |
932 |
'acqsource', |
933 |
'barcode', |
933 |
'barcode', |
Lines 964-973
sub getIndexes{
Link Here
|
964 |
'stack', |
964 |
'stack', |
965 |
'uri', |
965 |
'uri', |
966 |
'withdrawn', |
966 |
'withdrawn', |
967 |
|
967 |
|
968 |
# subject related |
968 |
# subject related |
969 |
); |
969 |
); |
970 |
|
970 |
|
971 |
return \@indexes; |
971 |
return \@indexes; |
972 |
} |
972 |
} |
973 |
|
973 |
|
Lines 1114-1124
sub buildQuery {
Link Here
|
1114 |
) = ( 0, 0, 0, 0, 0 ); |
1114 |
) = ( 0, 0, 0, 0, 0 ); |
1115 |
|
1115 |
|
1116 |
} |
1116 |
} |
1117 |
|
1117 |
|
1118 |
if(not $index){ |
1118 |
if(not $index){ |
1119 |
$index = 'kw'; |
1119 |
$index = 'kw'; |
1120 |
} |
1120 |
} |
1121 |
|
1121 |
|
1122 |
# Set default structure attribute (word list) |
1122 |
# Set default structure attribute (word list) |
1123 |
my $struct_attr; |
1123 |
my $struct_attr; |
1124 |
unless ( $indexes_set || !$index || $index =~ /(st-|phr|ext|wrdl)/ ) { |
1124 |
unless ( $indexes_set || !$index || $index =~ /(st-|phr|ext|wrdl)/ ) { |
Lines 1141-1147
sub buildQuery {
Link Here
|
1141 |
if ($auto_truncation){ |
1141 |
if ($auto_truncation){ |
1142 |
unless ( $index =~ /(st-|phr|ext)/ ) { |
1142 |
unless ( $index =~ /(st-|phr|ext)/ ) { |
1143 |
#FIXME only valid with LTR scripts |
1143 |
#FIXME only valid with LTR scripts |
1144 |
$operand=join(" ",map{ |
1144 |
$operand=join(" ",map{ |
1145 |
(index($_,"*")>0?"$_":"$_*") |
1145 |
(index($_,"*")>0?"$_":"$_*") |
1146 |
}split (/\s+/,$operand)); |
1146 |
}split (/\s+/,$operand)); |
1147 |
warn $operand if $DEBUG; |
1147 |
warn $operand if $DEBUG; |
Lines 1305-1311
sub buildQuery {
Link Here
|
1305 |
# Normalize the query and limit strings |
1305 |
# Normalize the query and limit strings |
1306 |
# This is flawed , means we can't search anything with : in it |
1306 |
# This is flawed , means we can't search anything with : in it |
1307 |
# if user wants to do ccl or cql, start the query with that |
1307 |
# if user wants to do ccl or cql, start the query with that |
1308 |
$query =~ s/:/=/g; |
1308 |
# $query =~ s/:/=/g; |
|
|
1309 |
$query =~ s/(?<=(ti|au|pb|su|an|kw|mc)):/=/g; |
1310 |
$query =~ s/(?<=rtrn):/=/g; |
1309 |
$limit =~ s/:/=/g; |
1311 |
$limit =~ s/:/=/g; |
1310 |
for ( $query, $query_desc, $limit, $limit_desc ) { |
1312 |
for ( $query, $query_desc, $limit, $limit_desc ) { |
1311 |
s/ / /g; # remove extra spaces |
1313 |
s/ / /g; # remove extra spaces |
1312 |
- |
|
|