Changeset 24547 for main/trunk/greenstone2/perllib/plugins/MARCPlugin.pm
- Timestamp:
- 2011-09-02T16:28:57+12:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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
Note:
See TracChangeset
for help on using the changeset viewer.