Changeset 8814 for trunk/gsdl/perllib/plugins

Timestamp:

2004-12-15T14:10:41+13:00 (19 years ago)

Author:

mdewsnip

Message:

Updated files for Kea 3.0, thanks to Olena.

File:

• trunk/gsdl/perllib/plugins/BasPlug.pm (modified) (4 diffs)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -96 +96 @@
     'desc' => "{BasPlug.markup_acronyms}",
     'type' => "flag",
-    'reqd' => "no" },
+    'reqd' => "no" },  
       { 'name' => "extract_keyphrases",
     'desc' => "{BasPlug.extract_keyphrases}",
     'type' => "flag",
-    'reqd' => "no" },  
+    'reqd' => "no" },
       { 'name' => "extract_keyphrase_options",
     'desc' => "{BasPlug.extract_keyphrase_options}",
     'type' => "string",
     'deft' => "",
-    'reqd' => "no" },  
+    'reqd' => "no" },
       { 'name' => "first",
     'desc' => "{BasPlug.first}",
@@ -872 +872 @@
 
 
-#adding kea keyphrases
+    # adding kea keyphrases
+
     if ($self->{'kea'}) {  
     
@@ -879 +880 @@
     my @list;
 
-    while (defined $thissection) { #loop through sections to gather whole doc
+    #loop through sections to gather whole doc
+    while (defined $thissection) { 
         my $sectiontext = $doc_obj->get_text($thissection);   
         $text = $text.$sectiontext;
@@ -885 +887 @@
     } 
         
-    #if kea options flag is set, call Kea with specified options 
+
     if($self->{'kea_options'}) {
-        @list = &Kea::extract_KeyPhrases ($text, $self->{'kea_options'}); 
-    }
-    #otherwise call Kea with no options
-    else { 
-        @list = &Kea::extract_KeyPhrases ($text); 
-    }
-     
-    if(@list){ #if a list of kea keyphrases was returned (ie not empty)
-        my $keyphrases = $list[0]; #first arg is keyphrase list
-        my $stems = $list[1]; #second  arg is stemmed keyphrase list
-        &gsprintf(STDERR, "{BasPlug.keyphrases}: $keyphrases\n");
-        # print STDERR "keyphrases: $keyphrases\n"; 
-        &gsprintf(STDERR, "{BasPlug.stems}: $stems\n");
-        # print STDERR "stems: $stems\n";
-        $thissection = $doc_obj->get_top_section(); #add metadata to top section
+        #if kea options flag is set, call Kea with specified options 
+        $list = &Kea::extract_KeyPhrases ($text, $self->{'kea_options'}); 
+    } else { 
+        #otherwise call Kea with no options
+        $list = &Kea::extract_KeyPhrases ($text); 
+    }
+    if($list){ 
+        # if a list of kea keyphrases was returned (ie not empty)
+        &gsprintf(STDERR, "{BasPlug.keyphrases}: $list\n");
+
+        #add metadata to top section
+        $thissection = $doc_obj->get_top_section(); 
+
         # add all key phrases as one metadata
-        $doc_obj->add_metadata($thissection, "Keyphrases", $keyphrases);
+        $doc_obj->add_metadata($thissection, "Keyphrases", $list);
+
         # add individual key phrases as multiple metadata
-        foreach my $keyphrase (split(',', $keyphrases)) {
-            $keyphrase =~ s/^\s*//; $keyphrase =~ s/\s*$//;
+        foreach my $keyphrase (split(',', $list)) {
+            $keyphrase =~ s/^\s+|\s+$//g;
         $doc_obj->add_metadata($thissection, "Keyphrase", $keyphrase);
         }
-        $doc_obj->add_metadata($thissection, "stems", $stems); 
-    }
-    } #end of kea 
+    }
+    }
+ 
+    #end of kea 
 
     if ($self->{'first'}) {