Changeset 15872 for gsdl/trunk/perllib/plugins/MetadataXMLPlugin.pm
- Timestamp:
- 2008-06-05T09:29:32+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/MetadataXMLPlugin.pm
r15865 r15872 1 1 ########################################################################### 2 2 # 3 # MetadataXMLPlug .pm --3 # MetadataXMLPlugin.pm -- 4 4 # A component of the Greenstone digital library software 5 5 # from the New Zealand Digital Library Project at the … … 24 24 ########################################################################### 25 25 26 # MetadataXMLPlug process metadata.xml files in a collection26 # MetadataXMLPlugin process metadata.xml files in a collection 27 27 28 28 # Here's an example of a metadata file that uses three FileSet structures … … 85 85 # metadata is explictly overridden later in the import. 86 86 87 package MetadataXMLPlug ;87 package MetadataXMLPlugin; 88 88 89 89 use strict; 90 90 no strict 'refs'; 91 use Bas Plug;91 use BasePlugin; 92 92 use util; 93 93 use metadatautil; 94 94 95 95 sub BEGIN { 96 @MetadataXMLPlug ::ISA = ('BasPlug');96 @MetadataXMLPlugin::ISA = ('BasePlugin'); 97 97 unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan"); 98 98 } … … 102 102 my $arguments = [ 103 103 { 'name' => "block_exp", 104 'desc' => "{Bas Plug.block_exp}",104 'desc' => "{BasePlugin.block_exp}", 105 105 'type' => "regexp", 106 106 'reqd' => "no", … … 108 108 ]; 109 109 110 my $options = { 'name' => "MetadataXMLPlug ",111 'desc' => "{MetadataXMLPlug .desc}",110 my $options = { 'name' => "MetadataXMLPlugin", 111 'desc' => "{MetadataXMLPlugin.desc}", 112 112 'abstract' => "no", 113 113 'inherits' => "yes", … … 121 121 push(@$pluginlist, $class); 122 122 123 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}124 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};125 126 $self = new Bas Plug($pluginlist, $inputargs, $hashArgOptLists);123 push(@{$hashArgOptLists->{"ArgList"}},@{$arguments}); 124 push(@{$hashArgOptLists->{"OptList"}},$options); 125 126 $self = new BasePlugin($pluginlist, $inputargs, $hashArgOptLists); 127 127 128 128 if ($self->{'info_only'}) { … … 180 180 } 181 181 182 print STDERR "\n<Processing n='$file' p='MetadataXMLPlug '>\n" if ($gli);183 print STDERR "MetadataXMLPlug : processing $file\n" if ($self->{'verbosity'})> 1;182 print STDERR "\n<Processing n='$file' p='MetadataXMLPlugin'>\n" if ($gli); 183 print STDERR "MetadataXMLPlugin: processing $file\n" if ($self->{'verbosity'})> 1; 184 184 185 185 $self->{'metadataref'} = $extrametadata;
Note:
See TracChangeset
for help on using the changeset viewer.