Changeset 16386 for gsdl/trunk/perllib/plugins/MetadataXMLPlugin.pm
- Timestamp:
- 2008-07-14T14:43:50+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/MetadataXMLPlugin.pm
r15872 r16386 101 101 102 102 my $arguments = [ 103 { 'name' => " block_exp",104 'desc' => "{BasePlugin. block_exp}",103 { 'name' => "process_exp", 104 'desc' => "{BasePlugin.process_exp}", 105 105 'type' => "regexp", 106 106 'reqd' => "no", 107 'deft' => &get_default_block_exp() } 107 'deft' => &get_default_process_exp() } 108 108 109 ]; 109 110 … … 162 163 } 163 164 164 # We don't want any other plugins to see metadata.xml files165 # block exp are currently only used in the read bit166 sub get_default_block_exp167 {168 return q^metadata\.xml$^;169 }170 165 171 166 sub metadata_read 172 167 { 173 168 my $self = shift (@_); 174 my ($pluginfo, $base_dir, $file, $ metadata, $extrametakeys, $extrametadata,169 my ($pluginfo, $base_dir, $file, $block_hash, $metadata, $extrametakeys, $extrametadata, 175 170 $processor, $maxdocs, $gli) = @_; 176 171 … … 182 177 print STDERR "\n<Processing n='$file' p='MetadataXMLPlugin'>\n" if ($gli); 183 178 print STDERR "MetadataXMLPlugin: processing $file\n" if ($self->{'verbosity'})> 1; 184 179 # add the file to the block list so that it won't be processed in read, as we will do all we can with it here 180 $block_hash->{'file_blocks'}->{$filename} = 1; 185 181 $self->{'metadataref'} = $extrametadata; 186 182 $self->{'metakeysref'} = $extrametakeys; … … 197 193 return -1; #error 198 194 } 195 199 196 return 1; 200 197
Note:
See TracChangeset
for help on using the changeset viewer.