Changeset 1903

Show
Ignore:
Timestamp:
06.02.2001 00:06:48 (19 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).

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/plugins/BasPlug.pm

    r1874 r1903  
    372372    my @results = textcat::classify($text); 
    373373 
    374     if (scalar @results != 1) { 
     374    # if textcat returns 3 or less possibilities we'll use the  
     375    # first one in the list - otherwise use the defaults 
     376    if (scalar @results > 3) { 
    375377     
    376378    if ($self->{'input_encoding'} ne 'auto') {