Changeset 24952


Ignore:
Timestamp:
01/16/12 17:52:10 (9 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).

File:
1 edited

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
Note: See TracChangeset for help on using the changeset viewer.