Changeset 22879
- Timestamp:
- 2010-09-08T12:56:19+12:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/ConvertBinaryFile.pm
r22874 r22879 158 158 } 159 159 160 if ($convert_to eq "html") {160 if ($convert_to =~ /^html/) { # may be html or html_multi 161 161 $self->{'convert_to_plugin'} = "HTMLPlugin"; 162 162 $self->{'convert_to_ext'} = "html"; … … 429 429 my ($tailname, $dirname, $suffix) 430 430 = &File::Basename::fileparse($filename_full_path, "\\.[^\\.]+\$"); 431 $doc_obj->set_utf8_metadata_element($doc_obj->get_top_section(), "FilenameRoot", $tailname);431 $doc_obj->set_utf8_metadata_element($doc_obj->get_top_section(), "FilenameRoot", $tailname); 432 432 433 433 # do plugin specific processing of doc_obj
Note:
See TracChangeset
for help on using the changeset viewer.