Changeset 19541


Ignore:
Timestamp:
05/20/09 14:32:09 (12 years ago)
Author:
kjdon
Message:

changed metadata name from emailAddress to EmailAddress

File:
1 edited

Legend:

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

    r16025 r19541  
    103103#       {
    104104#       push @email2, $address;
    105 #       $doc_obj->add_utf8_metadata ($thissection, "emailAddress", $address);
     105#       $doc_obj->add_utf8_metadata ($thissection, "EmailAddress", $address);
    106106#       # print $outhandle "  extracting $address\n"
    107107#       &gsprintf($outhandle, "  {AutoExtractMetadata.extracting} $address\n")
     
    117117    {
    118118        $hashExistMail->{$address} = 1;
    119         $doc_obj->add_utf8_metadata ($thissection, "emailAddress", $address);
     119        $doc_obj->add_utf8_metadata ($thissection, "EmailAddress", $address);
    120120        gsprintf($outhandle, "  {AutoExtractMetadata.extracting} $address\n")
    121121        if ($self->{'verbosity'} > 3);
Note: See TracChangeset for help on using the changeset viewer.