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

Minor edits to subroutine calls

Files:
1 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);