Changeset 24548 for main/trunk/greenstone2/perllib/plugins/LOMPlugin.pm

Timestamp:

2011-09-02T19:39:10+12:00 (13 years ago)

Author:

ak19

Message:

Part 2 of previous commit (r24547). Added new abstract plugin MetadataRead? that defines can_process_this_file_for_metadata that MetadataPlugin? subclasses can inherit (if MetadataRead? is listed first in the ISA inheritance list) and which will then override the one defined in BasePlugin?. For now committing MARC, ISIS and OAIPlugins which now additionally inherit from MetadataRead?. Other metadataPlugins also need to be committed.

File:

• main/trunk/greenstone2/perllib/plugins/LOMPlugin.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/plugins/LOMPlugin.pm

@@ -34 +34 @@
 use ReadTextFile;
 use MetadataPass;
+use MetadataRead;
 use XMLParser;
 use Cwd;
 
+# methods with identical signatures take precedence in the order given in the ISA list.
 sub BEGIN {
-    @ISA = ('ReadTextFile', 'MetadataPass');
+    @ISA = ('MetadataRead', 'ReadTextFile', 'MetadataPass');
 }
 
@@ -129 +131 @@
     # can we process this file??
     my ($filename_full_path, $filename_no_path) = &util::get_full_filenames($base_dir, $file);
-    return undef unless $self->can_process_this_file($filename_full_path);
+    return undef unless $self->can_process_this_file_for_metadata($filename_full_path);
 
     $file =~ s/^[\/\\]+//; # $file often begins with / so we'll tidy it up