Changeset 15872 for gsdl/trunk/perllib/plugins/IndexPlugin.pm
- Timestamp:
- 2008-06-05T09:29:32+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/IndexPlugin.pm
r15865 r15872 1 1 ########################################################################### 2 2 # 3 # IndexPlug .pm --3 # IndexPlugin.pm -- 4 4 # A component of the Greenstone digital library software 5 5 # from the New Zealand Digital Library Project at the … … 50 50 # named 'Subject'. 51 51 52 # 12/05/02 Added usage datastructure - John Thompson 53 54 package IndexPlug; 52 package IndexPlugin; 55 53 56 54 use plugin; 57 use Bas Plug;55 use BasePlugin; 58 56 use doc; 59 57 use util; … … 64 62 65 63 sub BEGIN { 66 @IndexPlug ::ISA = ('BasPlug');64 @IndexPlugin::ISA = ('BasePlugin'); 67 65 } 68 66 69 my $arguments = [70 ];67 #my $arguments = [ 68 # ]; 71 69 72 my $options = { 'name' => "IndexPlug ",73 'desc' => "{IndexPlug .desc}",70 my $options = { 'name' => "IndexPlugin", 71 'desc' => "{IndexPlugin.desc}", 74 72 'abstract' => "no", 75 73 'inherits' => "yes" }; … … 80 78 push(@$pluginlist, $class); 81 79 82 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}83 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};80 #push(@{$hashArgOptLists->{"ArgList"}},@{$arguments}); 81 push(@{$hashArgOptLists->{"OptList"}},$options); 84 82 85 my $self = new Bas Plug($pluginlist, $inputargs, $hashArgOptLists);83 my $self = new BasePlugin($pluginlist, $inputargs, $hashArgOptLists); 86 84 87 85 return bless $self, $class; … … 110 108 111 109 # found an index.txt file 112 print STDERR "<Processing n='$file' p='IndexPlug '>\n" if ($gli);113 print $outhandle "IndexPlug : processing $indexfile\n";110 print STDERR "<Processing n='$file' p='IndexPlugin'>\n" if ($gli); 111 print $outhandle "IndexPlugin: processing $indexfile\n"; 114 112 115 113 # read in the index.txt
Note:
See TracChangeset
for help on using the changeset viewer.