Changeset 19541

Show
Ignore:
Timestamp:
20.05.2009 14:32:09 (10 years ago)
Author:
kjdon
Message:

changed metadata name from emailAddress to EmailAddress?

Files:
1 modified

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);