Changeset 26536 for main/trunk/greenstone2/perllib/inexport.pm
- Timestamp:
- 2012-11-28T11:59:17+13:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/inexport.pm
r26451 r26536 297 297 298 298 if (!defined $self->{'OIDtype'} 299 || ($self->{'OIDtype'} !~ /^(hash|incremental|assigned|dirname)$/ )) { 299 || ($self->{'OIDtype'} !~ /^(hash|hash_on_full_filename|incremental|assigned|dirname|full_filename)$/ )) { 300 # OIDtype was either not defined on the command-line, or if it was not one of the recognized values 300 301 if (defined $collectcfg->{'OIDtype'} 301 && $collectcfg->{'OIDtype'} =~ /^(hash| incremental|assigned|dirname)$/) {302 && $collectcfg->{'OIDtype'} =~ /^(hash|hash_on_full_filename|incremental|assigned|dirname|full_filename)$/) { 302 303 $self->{'OIDtype'} = $collectcfg->{'OIDtype'}; 303 304 } else { … … 548 549 $processor->setoutputdir ($archivedir); 549 550 $processor->set_sortmeta ($sortmeta, $removeprefix, $removesuffix) if defined $sortmeta; 551 550 552 $processor->set_OIDtype ($OIDtype, $OIDmetadata); 551 553
Note:
See TracChangeset
for help on using the changeset viewer.