Changeset 1903 for trunk/gsdl/perllib/plugins/BasPlug.pm

Timestamp:

2001-02-06T00:06:48+13:00 (23 years ago)

Author:

sjboddie

Message:

We now use textcats best guess if it returns 3 or less possibilities
(previously we used the default unless textcat returned only one
possibility).

File:

• trunk/gsdl/perllib/plugins/BasPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -372 +372 @@
     my @results = textcat::classify($text);
 
-    if (scalar @results != 1) {
+    # if textcat returns 3 or less possibilities we'll use the 
+    # first one in the list - otherwise use the defaults
+    if (scalar @results > 3) {
     
     if ($self->{'input_encoding'} ne 'auto') {