Changeset 8789


Ignore:
Timestamp:
2004-12-13T15:21:50+13:00 (19 years ago)
Author:
mdewsnip
Message:

Better documentation of the extract keyphrases (Kea) code, thanks to Olena.

Location:
trunk/gsdl/perllib
Files:
2 edited

Legend:

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

    r8761 r8789  
    9797    'type' => "flag",
    9898    'reqd' => "no" },
     99      { 'name' => "extract_keyphrases",
     100    'desc' => "{BasPlug.extract_keyphrases}",
     101    'type' => "flag",
     102    'reqd' => "no" }, 
     103      { 'name' => "extract_keyphrase_options",
     104    'desc' => "{BasPlug.extract_keyphrase_options}",
     105    'type' => "string",
     106    'deft' => "",
     107    'reqd' => "no" }, 
    99108      { 'name' => "first",
    100109    'desc' => "{BasPlug.first}",
     
    308317             q^extract_language^, \$self->{'extract_language'},
    309318             q^extract_acronyms^, \$self->{'extract_acronyms'},
    310              q^extract_keyphrases^, \$self->{'kea'}, #with extra options (UNDOCUMENTED)
    311              q^extract_keyphrase_options/.*/^, \$self->{'kea_options'}, #no extra options (UNDOCUMENTED)
     319             q^extract_keyphrases^, \$self->{'kea'},
     320             q^extract_keyphrase_options/.*/^, \$self->{'kea_options'},
    312321             qq^input_encoding/$enc/auto^, \$self->{'input_encoding'},
    313322             qq^default_encoding/$denc/utf8^, \$self->{'default_encoding'},
     
    875884        $thissection = $doc_obj->get_next_section ($thissection);
    876885    }
    877        
    878     if($self->{'kea_options'}) { #if kea options flag is set, call Kea with specified options
     886       
     887    #if kea options flag is set, call Kea with specified options
     888    if($self->{'kea_options'}) {
    879889        @list = &Kea::extract_KeyPhrases ($text, $self->{'kea_options'});
    880     } else { #otherwise call Kea with no options
     890    }
     891    #otherwise call Kea with no options
     892    else {
    881893        @list = &Kea::extract_KeyPhrases ($text);
    882894    }
  • trunk/gsdl/perllib/strings.rb

    r8716 r8789  
    522522BasPlug.extracting_acronyms:extracting acronyms
    523523
     524BasPlug.extract_keyphrases:Extract keyphrases automatically with Kea (default settings).
     525
     526BasPlug.extract_keyphrase_options:Options for keyphrase extraction with Kea. For example: L2 - length of extracted keyphrases is 2 terms, N5 - 5 keyphrases to extract.
     527
    524528BasPlug.extracting_emails:extracting e-mail addresses
    525529
Note: See TracChangeset for help on using the changeset viewer.