Adding autotruncation

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
Henri-Damien LAURENT 2009-09-02 17:38:37 +02:00
parent c04f833db0
commit 2f28f2fdf5
1 changed files with 4 additions and 10 deletions

View File

@ -922,16 +922,6 @@ sub buildQuery {
# Some helpful index variants
my $index_plus = $index . $struct_attr . ":" if $index;
my $index_plus_comma = $index . $struct_attr . "," if $index;
if ($auto_truncation){
# FIXME Auto Truncation is only valid for LTR languages
# use C4::Output;
# use C4::Languages qw(regex_lang_subtags get_bidi);
# $lang = $query->cookie('KohaOpacLanguage') if (defined $query && $query->cookie('KohaOpacLanguage'));
# my $current_lang = regex_lang_subtags($lang);
# my $bidi;
# $bidi = get_bidi($current_lang->{script}) if $current_lang->{script};
$index_plus_comma .= "rtrn:";
}
# Remove Stopwords
if ($remove_stopwords) {
@ -942,6 +932,10 @@ sub buildQuery {
if ( $stopwords_removed && $DEBUG );
}
if ($auto_truncation){
$operand=~join(" ",map{ "$_*" }split (/\s+/,$operand));
}
# Detect Truncation
my $truncated_operand;
my( $nontruncated, $righttruncated, $lefttruncated,