Changeset 15872 for gsdl/trunk/perllib/plugins/METSPlugin.pm
- Timestamp:
- 2008-06-05T09:29:32+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/METSPlugin.pm
r15865 r15872 1 1 ########################################################################### 2 2 # 3 # METSPlug .pm3 # METSPlugin.pm 4 4 # A component of the Greenstone digital library software 5 5 # from the New Zealand Digital Library Project at the … … 30 30 31 31 32 package METSPlug ;32 package METSPlugin; 33 33 34 34 use ghtml; … … 37 37 no strict 'refs'; # allow filehandles to be variables and viceversa 38 38 39 use XMLPlug;39 use ReadXMLFile; 40 40 use XML::XPath; 41 41 use XML::XPath::XMLParser; 42 42 43 43 sub BEGIN { 44 @METSPlug ::ISA = ('XMLPlug');44 @METSPlugin::ISA = ('ReadXMLFile'); 45 45 } 46 46 47 47 my $arguments = [ 48 48 ]; 49 my $options = { 'name' => "METSPlug ",50 'desc' => "{METSPlug .desc}",49 my $options = { 'name' => "METSPlugin", 50 'desc' => "{METSPlugin.desc}", 51 51 'abstract' => "no", 52 52 'inherits' => "yes" }; … … 64 64 push(@$pluginlist, $class); 65 65 66 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});} 67 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)}; 68 69 my $self = new XMLPlug($pluginlist, $inputargs, $hashArgOptLists); 66 # have no args - do we still want this? 67 #push(@{$hashArgOptLists->{"ArgList"}},@{$arguments}); 68 push(@{$hashArgOptLists->{"OptList"}},$options); 69 70 my $self = new ReadXMLFile($pluginlist, $inputargs, $hashArgOptLists); 70 71 71 72 $self->{'section'} = ""; … … 117 118 } 118 119 my $outhandle = $self->{'outhandle'}; 119 print $outhandle "METSPlug : processing $self->{'file'}\n" if $self->{'verbosity'} > 1;120 print STDERR "<Processing n='$self->{'file'}' p='METSPlug '>\n" if ($self->{'gli'});120 print $outhandle "METSPlugin: processing $self->{'file'}\n" if $self->{'verbosity'} > 1; 121 print STDERR "<Processing n='$self->{'file'}' p='METSPlugin'>\n" if ($self->{'gli'}); 121 122 122 123 }
Note:
See TracChangeset
for help on using the changeset viewer.