[Koha-patches] [PATCH] Adding autotruncation
Henri-Damien LAURENT
henridamien.laurent at biblibre.com
Wed Sep 2 15:37:36 CEST 2009
Allow autotruncation to be set on its own
This simply reprocess operands in order to add * at lefthandside
It is a problem with non LTR scripts. But works fine with all the latin scripts
---
C4/Search.pm | 18 ++++++++----------
1 files changed, 8 insertions(+), 10 deletions(-)
diff --git a/C4/Search.pm b/C4/Search.pm
index 484b2f4..cd17d50 100644
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -903,16 +903,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) {
@@ -923,6 +913,14 @@ sub buildQuery {
if ( $stopwords_removed && $DEBUG );
}
+ if ($auto_truncation){
+ #FIXME only valid with LTR scripts
+ $operand=join(" ",map{
+ "$_*"
+ }split (/\s+/,$operand));
+ warn $operand if $DEBUG;
+ }
+
# Detect Truncation
my $truncated_operand;
my( $nontruncated, $righttruncated, $lefttruncated,
--
1.6.0.4
More information about the Koha-patches
mailing list