Changeset 27352
- Timestamp:
- 2013-05-16T15:10:00+12:00 (11 years ago)
- Location:
- main/trunk/greenstone2/perllib
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/docproc.pm
r26536 r27352 54 54 my ($type, $metadata) = @_; 55 55 56 if ($type =~ /^(hash|hash_on_full_filename|incremental| dirname|full_filename|assigned)$/) {56 if ($type =~ /^(hash|hash_on_full_filename|incremental|filename|dirname|full_filename|assigned)$/) { 57 57 $self->{'OIDtype'} = $type; 58 58 } else { -
main/trunk/greenstone2/perllib/inexport.pm
r27334 r27352 304 304 305 305 if (!defined $self->{'OIDtype'} 306 || ($self->{'OIDtype'} !~ /^(hash|hash_on_full_filename|incremental|assigned| dirname|full_filename)$/ )) {306 || ($self->{'OIDtype'} !~ /^(hash|hash_on_full_filename|incremental|assigned|filename|dirname|full_filename)$/ )) { 307 307 # OIDtype was either not defined on the command-line, or if it was not one of the recognized values 308 308 if (defined $collectcfg->{'OIDtype'} 309 && $collectcfg->{'OIDtype'} =~ /^(hash|hash_on_full_filename|incremental|assigned| dirname|full_filename)$/) {309 && $collectcfg->{'OIDtype'} =~ /^(hash|hash_on_full_filename|incremental|assigned|filename|dirname|full_filename)$/) { 310 310 $self->{'OIDtype'} = $collectcfg->{'OIDtype'}; 311 311 } else { -
main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm
r27306 r27352 288 288 } 289 289 290 # OIDtype may be "hash" or " incremental" or "dirname" or "assigned"290 # OIDtype may be "hash" or "hash_on_full_filename" or "incremental" or "filename" or "dirname" or "full_filename" or "assigned" 291 291 sub set_OIDtype { 292 292 my $self = shift (@_); 293 293 my ($type, $metadata) = @_; 294 294 295 if ($type =~ /^(hash|hash_on_full_filename|incremental| dirname|full_filename|assigned)$/) {295 if ($type =~ /^(hash|hash_on_full_filename|incremental|filename|dirname|full_filename|assigned)$/) { 296 296 $self->{'OIDtype'} = $type; 297 297 } else {
Note:
See TracChangeset
for help on using the changeset viewer.