Changeset 15877 for gsdl/trunk/perllib/plugins
- Timestamp:
- 2008-06-05T13:45:11+12:00 (16 years ago)
- Location:
- gsdl/trunk/perllib/plugins
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/BasePlugin.pm
r15868 r15877 670 670 $doc_obj->add_utf8_metadata($top_section, "FileSize", (-s $filename_full_path)); 671 671 672 $self-> Set_Source_metadata($doc_obj, $filename_no_path);672 $self->set_Source_metadata($doc_obj, $filename_no_path); 673 673 674 674 # plugin specific stuff - what args do we need here?? … … 820 820 if (!defined $doc_obj->get_metadata_element ($section, "Title") or $doc_obj->get_metadata_element($section, "Title") eq "") { 821 821 822 my $file_derived_title = $self->filename_to_ metadata($self->filename_based_title($file));822 my $file_derived_title = $self->filename_to_utf8_metadata($self->filename_based_title($file)); 823 823 if (!defined $doc_obj->get_metadata_element ($section, "Title")) { 824 824 $doc_obj->add_utf8_metadata ($section, "Title", $file_derived_title); -
gsdl/trunk/perllib/plugins/ImagePlugin.pm
r15872 r15877 97 97 my $outhandle = $self->{'outhandle'}; 98 98 my ($filename_full_path, $filename_no_path) = $self->get_full_filenames($base_dir, $file); 99 if ($self->check_image _magick()) {99 if ($self->check_imagemagick()) { 100 100 $self->generate_images($filename_full_path, $filename_no_path, $doc_obj, $doc_obj->get_top_section()); # should we check the return value? 101 101 } else {
Note:
See TracChangeset
for help on using the changeset viewer.