Changeset 24952 for main/trunk

Timestamp:

2012-01-16T17:52:10+13:00 (12 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:

• main/trunk/greenstone2/bin/script/explode_metadata_database.pl (modified) (2 diffs)

main/trunk/greenstone2/bin/script/explode_metadata_database.pl

@@ -13 +13 @@
 
 use encodings;
+use extrametautil;
 use printusage;
 use parse2;
@@ -330 +331 @@
         my $doc_obj = new doc($filename, "nonindexed_doc", $plugobj->get_file_rename_method());
         # all the metadata has been extracted into extrametadata
-        $plugobj->extra_metadata ($doc_obj, $doc_obj->get_top_section(), $extrametadata->{$record});
+        $plugobj->extra_metadata ($doc_obj, $doc_obj->get_top_section(), &extrametautil::getmetadata($extrametadata, $record));     
 
         # Try to get a doc to attach the metadata to