Changeset 17300 for gsdl/trunk/perllib/plugins
- Timestamp:
- 2008-09-17T10:28:33+12:00 (16 years ago)
- Location:
- gsdl/trunk/perllib/plugins
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/BasePlugin.pm
r17212 r17300 866 866 sub metadata_read { 867 867 my $self = shift (@_); 868 my ($pluginfo, $base_dir, $file, $block_hash, $ metadata, $extrametakeys, $extrametadata, $processor, $maxdocs, $gli) = @_;868 my ($pluginfo, $base_dir, $file, $block_hash, $extrametakeys, $extrametadata, $processor, $maxdocs, $gli) = @_; 869 869 870 870 # can we process this file?? -
gsdl/trunk/perllib/plugins/DSpacePlugin.pm
r16392 r17300 240 240 sub metadata_read { 241 241 my $self = shift (@_); 242 my ($pluginfo, $base_dir, $file, $block_hash, $ metadata, $extrametakeys, $extrametadata, $processor, $maxdocs, $gli) = @_;242 my ($pluginfo, $base_dir, $file, $block_hash, $extrametakeys, $extrametadata, $processor, $maxdocs, $gli) = @_; 243 243 244 244 my $only_first_doc = $self->{'only_first_doc'}; -
gsdl/trunk/perllib/plugins/LOMPlugin.pm
r16392 r17300 118 118 sub metadata_read { 119 119 my $self = shift (@_); 120 my ($pluginfo, $base_dir, $file, $block_hash, $ metadata, $extrametakeys, $extrametadata, $processor, $maxdocs, $gli) = @_;120 my ($pluginfo, $base_dir, $file, $block_hash, $extrametakeys, $extrametadata, $processor, $maxdocs, $gli) = @_; 121 121 122 122 my $outhandle = $self->{'outhandle'}; -
gsdl/trunk/perllib/plugins/MetadataCSVPlugin.pm
r16386 r17300 77 77 { 78 78 my $self = shift (@_); 79 my ($pluginfo, $base_dir, $file, $block_hash, $ metadata, $extrametakeys, $extrametadata, $processor, $maxdocs, $gli) = @_;79 my ($pluginfo, $base_dir, $file, $block_hash, $extrametakeys, $extrametadata, $processor, $maxdocs, $gli) = @_; 80 80 81 81 # Read metadata from CSV files -
gsdl/trunk/perllib/plugins/MetadataXMLPlugin.pm
r16851 r17300 167 167 { 168 168 my $self = shift (@_); 169 my ($pluginfo, $base_dir, $file, $block_hash, $ metadata, $extrametakeys, $extrametadata,169 my ($pluginfo, $base_dir, $file, $block_hash, $extrametakeys, $extrametadata, 170 170 $processor, $maxdocs, $gli) = @_; 171 171 -
gsdl/trunk/perllib/plugins/OAIPlugin.pm
r17290 r17300 171 171 my $self = shift (@_); 172 172 173 my ($pluginfo, $base_dir, $file, $block_hash, $ metadata, $extrametakeys, $extrametadata, $processor, $maxdocs, $gli) = @_;173 my ($pluginfo, $base_dir, $file, $block_hash, $extrametakeys, $extrametadata, $processor, $maxdocs, $gli) = @_; 174 174 175 175 # can we process this file?? -
gsdl/trunk/perllib/plugins/SplitTextFile.pm
r17033 r17300 118 118 sub metadata_read { 119 119 my $self = shift (@_); 120 my ($pluginfo, $base_dir, $file, $block_hash, $ metadata, $extrametakeys, $extrametadata, $processor, $maxdocs, $gli) = @_;120 my ($pluginfo, $base_dir, $file, $block_hash, $extrametakeys, $extrametadata, $processor, $maxdocs, $gli) = @_; 121 121 122 122 # returns 1 if matches process_exp, and has done blocking in the meantime 123 123 my $matched = $self->SUPER::metadata_read($pluginfo, $base_dir, $file, 124 124 $block_hash, 125 $ metadata, $extrametakeys,125 $extrametakeys, 126 126 $extrametadata, $processor, 127 127 $maxdocs, $gli);
Note:
See TracChangeset
for help on using the changeset viewer.