From e964e49c8919177a4e255226ace9bb94f607e762 Mon Sep 17 00:00:00 2001
From: root <root@descartes.biblibre.com>
Date: Fri, 16 Oct 2009 23:40:13 +0200
Subject: [PATCH] Bug Fixing MT 2095 : Add_excepti.al Search broken on
 QueryStemming

---
 C4/Search.pm | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index 33c79fc982..010f59f6e1 100644
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -695,7 +695,7 @@ sub _detect_truncation {
 # STEMMING
 sub _build_stemmed_operand {
     my ($operand,$lang) = @_;
-    require Lingua::Stem::Snowball;
+    require Lingua::Stem::Snowball ;
     my $stemmed_operand;
 
     # If operand contains a digit, it is almost certainly an identifier, and should
@@ -706,18 +706,10 @@ sub _build_stemmed_operand {
     return $operand if $operand =~ /\d/;
 
 # FIXME: the locale should be set based on the user's language and/or search choice
+    warn "$lang";
     my $stemmer = Lingua::Stem::Snowball->new( lang => $lang,
                                                encoding => "UTF-8" );
 
-# FIXME: these should be stored in the db so the librarian can modify the behavior
-# Lingua::Stem can't add exceptions
-#    $stemmer->add_exceptions(
-#        {
-#            'and' => 'and',
-#            'or'  => 'or',
-#            'not' => 'not',
-#        }
-#    );
     my @words = split( / /, $operand );
     my @stems = $stemmer->stem(\@words);
     for my $stem (@stems) {
-- 
2.39.5