Changeset 19053 for gsdl/trunk/perllib
- Timestamp:
- 2009-04-19T19:28:40+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/ConvertBinaryFile.pm
r18339 r19053 437 437 $doc_obj->set_utf8_metadata_element($doc_obj->get_top_section(), "FileSize", (-s $filename_full_path)); 438 438 439 # **** 440 my ($tailname, $dirname, $suffix) 441 = &File::Basename::fileparse($filename_full_path, "\\.[^\\.]+\$"); 442 $doc_obj->set_utf8_metadata_element($doc_obj->get_top_section(), "FilenameRoot", $tailname); 443 439 444 # do plugin specific processing of doc_obj 440 445 unless (defined ($self->process($pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli))) {
Note:
See TracChangeset
for help on using the changeset viewer.