Changeset 19053

Show
Ignore:
Timestamp:
19.04.2009 19:28:40 (10 years ago)
Author:
davidb
Message:

FilenameRoot? set as metadata

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/ConvertBinaryFile.pm

    r18339 r19053  
    437437    $doc_obj->set_utf8_metadata_element($doc_obj->get_top_section(), "FileSize", (-s $filename_full_path)); 
    438438 
     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 
    439444    # do plugin specific processing of doc_obj 
    440445    unless (defined ($self->process($pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli))) {