Changeset 24952

Show
Ignore:
Timestamp:
16.01.2012 17:52:10 (8 years ago)
Author:
ak19
Message:

All perlcode that accesses extrametakeys, extrametadata, extrametafile data structures has been moved into a new perl module called extrametautil.pm. The next step will be to ensure that the file_regexes used to index into these data structures are consistent (using consistent slashes, like URL style slashes).

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/bin/script/explode_metadata_database.pl

    r24829 r24952  
    1313 
    1414use encodings; 
     15use extrametautil; 
    1516use printusage; 
    1617use parse2; 
     
    330331        my $doc_obj = new doc($filename, "nonindexed_doc", $plugobj->get_file_rename_method()); 
    331332        # all the metadata has been extracted into extrametadata 
    332         $plugobj->extra_metadata ($doc_obj, $doc_obj->get_top_section(), $extrametadata->{$record}); 
     333        $plugobj->extra_metadata ($doc_obj, $doc_obj->get_top_section(), &extrametautil::getmetadata($extrametadata, $record));      
    333334 
    334335        # Try to get a doc to attach the metadata to