Changeset 7668

Timestamp:

2004-06-29T22:33:08+12:00 (20 years ago)

Author:

jrm21

Message:

renamed "kea" to "Keyphrase" metadata, and add one for each extracted
keyphrase.

File:

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

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -817 +817 @@
         # print STDERR "stems: $stems\n";
         $thissection = $doc_obj->get_top_section(); #add metadata to top section
-        $doc_obj->add_metadata($thissection, "kea", $keyphrases);
+        # add all key phrases as one metadata
+        $doc_obj->add_metadata($thissection, "Keyphrases", $keyphrases);
+        # add individual key phrases as multiple metadata
+        foreach my $keyphrase (split(',', $keyphrases)) {
+            $keyphrase =~ s/^\s*//; $keyphrase =~ s/\s*$//;
+        $doc_obj->add_metadata($thissection, "Keyphrase", $keyphrase);
+        }
         $doc_obj->add_metadata($thissection, "stems", $stems); 
     }