[Krang-CVS] [3681] remove these letters from our suggested words

[<mp...@kr...>]

Revision: 3681
Author:   mpeters
Date:     2007-03-30 16:08:07 -0500 (Fri, 30 Mar 2007)

Log Message:
-----------
remove these letters from our suggested words

Modified Paths:
--------------
    branches/ajax_and_new_skin/lib/Krang/Widget.pm

Property Changed:
----------------
    branches/ajax_and_new_skin/


Property changes on: branches/ajax_and_new_skin
___________________________________________________________________
Name: svk:merge
   - 6cb60ec2-19fc-4f48-ba02-516b4c84136d:/local/krang_ajax_and_new_skin:28041
   + 6cb60ec2-19fc-4f48-ba02-516b4c84136d:/local/krang_ajax_and_new_skin:28055

Modified: branches/ajax_and_new_skin/lib/Krang/Widget.pm
===================================================================
--- branches/ajax_and_new_skin/lib/Krang/Widget.pm	2007-03-30 15:31:15 UTC (rev 3680)
+++ branches/ajax_and_new_skin/lib/Krang/Widget.pm	2007-03-30 21:08:07 UTC (rev 3681)
@@ -962,14 +962,18 @@
             my $answer = lc($row->[$pos]);
             # remove any potential file suffixes
             $answer =~ s/\.\w{3,5}$//;
+            # remove these characters
+            $answer =~ s/['"\.\,:]//g;
 
             # split on '_' or \s to make words and only keep the ones that
             # start with our phrase
             foreach (split(/(?:_|\s|\/)+/, $answer)) {
                 my $w = lc($_);
-                $words{$w} = 1 if( index($w, $phrase) == 0 );
+                if( index($w, $phrase) == 0 ) {
+                    $words{$w} = 1;
+                }
             }
-            # if it has an '_' and no spaces, keep the whole word
+            # if it has an '_' and no spaces, keep the whole word as well
             if( $answer =~ /_/ && $answer !~ /\s/ && ( index($answer, $phrase) == 0 ) ) {
                 $words{$answer} = 1;
             }