Changeset 15877 for gsdl/trunk/perllib/plugins/BasePlugin.pm

Timestamp:

2008-06-05T13:45:11+12:00 (16 years ago)

Author:

ak19

Message:

Minor edits to subroutine calls

File:

• gsdl/trunk/perllib/plugins/BasePlugin.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/BasePlugin.pm

@@ -670 +670 @@
     $doc_obj->add_utf8_metadata($top_section, "FileSize", (-s $filename_full_path));
  
-    $self->Set_Source_metadata($doc_obj, $filename_no_path);
+    $self->set_Source_metadata($doc_obj, $filename_no_path);
 
     # 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 "") {
 
-    my $file_derived_title = $self->filename_to_metadata($self->filename_based_title($file));
+    my $file_derived_title = $self->filename_to_utf8_metadata($self->filename_based_title($file));
     if (!defined $doc_obj->get_metadata_element ($section, "Title")) {
         $doc_obj->add_utf8_metadata ($section, "Title", $file_derived_title);