Changeset 24547
- Timestamp:
- 2011-09-02T16:28:57+12:00 (13 years ago)
- Location:
- main/trunk/greenstone2/perllib/plugins
- Files:
-
- 1 added
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/ISISPlugin.pm
r23564 r24547 30 30 use multiread; 31 31 use SplitTextFile; 32 use MetadataRead; 32 33 33 34 use strict; … … 35 36 36 37 # ISISPlugin is a sub-class of SplitTextFile. 38 # methods with identical signatures take precedence in the order given in the ISA list. 37 39 sub BEGIN { 38 @ISISPlugin::ISA = (' SplitTextFile');40 @ISISPlugin::ISA = ('MetadataRead', 'SplitTextFile'); 39 41 } 40 42 -
main/trunk/greenstone2/perllib/plugins/MARCPlugin.pm
r18563 r24547 28 28 29 29 use SplitTextFile; 30 use MetadataRead; 30 31 31 32 use unicode; … … 36 37 no strict 'refs'; # allow filehandles to be variables and viceversa 37 38 39 # methods defined in superclasses that have the same signature take 40 # precedence in the order given in the ISA list. We want MetaPlugins to 41 # call MetadataRead's can_process_this_file_for_metadata(), rather than 42 # calling BasePlugin's version of the same method, so list inherited 43 # superclasses in this order. 38 44 sub BEGIN { 39 @MARCPlugin::ISA = (' SplitTextFile');45 @MARCPlugin::ISA = ('MetadataRead', 'SplitTextFile'); 40 46 unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan"); 41 47 } … … 84 90 push(@{$hashArgOptLists->{"ArgList"}},@{$arguments}); 85 91 push(@{$hashArgOptLists->{"OptList"}},$options); 86 92 93 # this does nothing yet, but if member vars are ever added 94 # to MetadataRead, will need to do this anyway: 95 #new MetadataRead($pluginlist, $inputargs, $hashArgOptLists); 87 96 my $self = new SplitTextFile($pluginlist, $inputargs, $hashArgOptLists); 88 97 -
main/trunk/greenstone2/perllib/plugins/MARCXMLPlugin.pm
r23352 r24547 32 32 use ReadXMLFile; 33 33 use ReadTextFile; 34 use MetadataRead; 34 35 use marcmapping; 35 36 … … 37 38 no strict 'refs'; # allow filehandles to be variables and viceversa 38 39 40 # methods with identical signatures take precedence in the order given in the ISA list. 39 41 sub BEGIN { 40 @MARCXMLPlugin::ISA = (' ReadXMLFile', 'ReadTextFile');42 @MARCXMLPlugin::ISA = ('MetadataRead', 'ReadXMLFile', 'ReadTextFile'); 41 43 } 42 44 -
main/trunk/greenstone2/perllib/plugins/MetadataCSVPlugin.pm
r23561 r24547 29 29 30 30 use BasePlugin; 31 use MetadataRead; 32 31 33 use strict; 32 34 no strict 'refs'; … … 34 36 35 37 38 # methods with identical signatures take precedence in the order given in the ISA list. 36 39 sub BEGIN { 37 @MetadataCSVPlugin::ISA = (' BasePlugin');40 @MetadataCSVPlugin::ISA = ('MetadataRead', 'BasePlugin'); 38 41 } 39 42 -
main/trunk/greenstone2/perllib/plugins/OAIPlugin.pm
r24404 r24547 36 36 use ReadTextFile; # needed for subroutine textcat_get_language_encoding 37 37 use metadatautil; 38 38 use MetadataRead; 39 40 # methods with identical signatures take precedence in the order given in the ISA list. 39 41 sub BEGIN { 40 @OAIPlugin::ISA = (' ReadXMLFile', 'ReadTextFile');42 @OAIPlugin::ISA = ('MetadataRead', 'ReadXMLFile', 'ReadTextFile'); 41 43 } 42 44 … … 183 185 $self->{'metadata_xml'} .= $_; 184 186 } 185 }186 187 sub can_process_this_file_for_metadata {188 my $self = shift(@_);189 190 return $self->can_process_this_file(@_);191 187 } 192 188
Note:
See TracChangeset
for help on using the changeset viewer.