Changeset 15877

Show
Ignore:
Timestamp:
05.06.2008 13:45:11 (11 years ago)
Author:
ak19
Message:

Minor edits to subroutine calls

Location:
gsdl/trunk/perllib/plugins
Files:
2 modified

Legend:

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

    r15868 r15877  
    670670    $doc_obj->add_utf8_metadata($top_section, "FileSize", (-s $filename_full_path)); 
    671671  
    672     $self->Set_Source_metadata($doc_obj, $filename_no_path); 
     672    $self->set_Source_metadata($doc_obj, $filename_no_path); 
    673673 
    674674    # plugin specific stuff - what args do we need here?? 
     
    820820    if (!defined $doc_obj->get_metadata_element ($section, "Title") or $doc_obj->get_metadata_element($section, "Title") eq "") { 
    821821 
    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)); 
    823823    if (!defined $doc_obj->get_metadata_element ($section, "Title")) { 
    824824        $doc_obj->add_utf8_metadata ($section, "Title", $file_derived_title); 
  • gsdl/trunk/perllib/plugins/ImagePlugin.pm

    r15872 r15877  
    9797    my $outhandle = $self->{'outhandle'}; 
    9898    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()) { 
    100100    $self->generate_images($filename_full_path, $filename_no_path, $doc_obj, $doc_obj->get_top_section()); # should we check the return value? 
    101101    } else {