Changeset 1335

Timestamp:

2000-08-02T23:38:07+12:00 (24 years ago)

Author:

say1

Message:

many acronym changes

File:

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

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -330 +330 @@
 }
 
+# extract acronyms from a section in a document. progress is 
+# reported to STDERR based on the verbosity. both the Acronym
+# and the AcronymKWIC metadata items are created. 
+
 sub extract_acronyms {
     my $self = shift (@_);
     my ($textref, $doc_obj, $thissection) = @_;
 
+    print STDERR " checking for acronyms ...\n" 
+    if ($self->{'verbosity'} >= 2);
+
     my $acro_array =  &acronym::acronyms($textref);
 
     foreach my $acro (@$acro_array) {
 
-    #do the normal acronym
-    $doc_obj->add_utf8_metadata($thissection, "Acronym",  $acro->to_string());
-    print "found " . $acro->to_string() . "\n";
-        
-    # do the KWIC (Key Word In Context) acronym
-    my @kwic = $acro->to_string_kwic();
-    foreach my $kwic (@kwic) {
-        $doc_obj->add_utf8_metadata($thissection, "AcronymKWIC",  $kwic);
-        print "found (KWIC)" . $kwic . "\n";
-    }
-    }
+    #check that this is the first time ...
+    my $seen_before = "false";
+    my $previous_data = $doc_obj->get_metadata($thissection, "Acronym");
+    foreach my $thisAcro (@$previous_data) {
+        if ($thisAcro eq $acro->to_string())
+        {
+        $seen_before = "true";
+        print STDERR "  not adding ". $acro->to_string() . "\n" 
+            if ($self->{'verbosity'} >= 2);
+        }       
+    }
+
+    if ($seen_before eq "false")
+    {
+        #do the normal acronym
+        $doc_obj->add_utf8_metadata($thissection, "Acronym",  $acro->to_string());
+        print STDERR "  adding ". $acro->to_string() . "\n" 
+            if ($self->{'verbosity'} >= 1);
+        
+        # do the KWIC (Key Word In Context) acronym
+        my @kwic = $acro->to_string_kwic();
+        foreach my $kwic (@kwic) {
+        $doc_obj->add_utf8_metadata($thissection, "AcronymKWIC",  $kwic);
+        print STDERR "   adding ".  $kwic . "\n" 
+            if ($self->{'verbosity'} >= 2);
+        }
+    }
+    }
+    print STDERR " checked for acronyms.\n" 
+    if ($self->{'verbosity'} >= 2);
 }