Changeset 15877

Timestamp:

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

Author:

ak19

Message:

Minor edits to subroutine calls

Location:

gsdl/trunk/perllib/plugins

Files:

• BasePlugin.pm (modified) (2 diffs)
• ImagePlugin.pm (modified) (1 diff)

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);

gsdl/trunk/perllib/plugins/ImagePlugin.pm

@@ -97 +97 @@
     my $outhandle = $self->{'outhandle'};
     my ($filename_full_path, $filename_no_path) = $self->get_full_filenames($base_dir, $file);
-    if ($self->check_image_magick()) {
+    if ($self->check_imagemagick()) {
     $self->generate_images($filename_full_path, $filename_no_path, $doc_obj, $doc_obj->get_top_section()); # should we check the return value?
     } else {