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
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
