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

(-)a/C4/Search.pm (-9 / +10 lines)
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
- 

Return to bug 4074