Changeset 19541

Timestamp:

2009-05-20T14:32:09+12:00 (15 years ago)

Author:

kjdon

Message:

changed metadata name from emailAddress to EmailAddress

File:

• gsdl/trunk/perllib/plugins/EmailAddressExtractor.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/EmailAddressExtractor.pm

@@ -103 +103 @@
 #       {
 #       push @email2, $address;
-#       $doc_obj->add_utf8_metadata ($thissection, "emailAddress", $address);
+#       $doc_obj->add_utf8_metadata ($thissection, "EmailAddress", $address);
 #       # print $outhandle "  extracting $address\n" 
 #       &gsprintf($outhandle, "  {AutoExtractMetadata.extracting} $address\n")
@@ -117 +117 @@
     {
         $hashExistMail->{$address} = 1;
-        $doc_obj->add_utf8_metadata ($thissection, "emailAddress", $address);
+        $doc_obj->add_utf8_metadata ($thissection, "EmailAddress", $address);
         gsprintf($outhandle, "  {AutoExtractMetadata.extracting} $address\n")
         if ($self->{'verbosity'} > 3);