Changeset 19053 for gsdl/trunk/perllib/plugins/ConvertBinaryFile.pm

Timestamp:

2009-04-19T19:28:40+12:00 (15 years ago)

Author:

davidb

Message:

FilenameRoot set as metadata

File:

• gsdl/trunk/perllib/plugins/ConvertBinaryFile.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/ConvertBinaryFile.pm

@@ -437 +437 @@
     $doc_obj->set_utf8_metadata_element($doc_obj->get_top_section(), "FileSize", (-s $filename_full_path));
 
+    # ****
+    my ($tailname, $dirname, $suffix)
+    = &File::Basename::fileparse($filename_full_path, "\\.[^\\.]+\$");
+$doc_obj->set_utf8_metadata_element($doc_obj->get_top_section(), "FilenameRoot", $tailname);
+
     # do plugin specific processing of doc_obj
     unless (defined ($self->process($pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli))) {