Changeset 28801 for main/trunk/greenstone2/perllib/buildcolutils.pm
- Timestamp:
- 2014-01-30T15:09:31+13:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/buildcolutils.pm
r28566 r28801 27 27 28 28 package buildcolutils; 29 30 #use strict; 31 #no strict 'refs'; 29 32 30 33 use File::Basename; … … 329 332 } 330 333 331 if ($self->{'mode'} !~ /^(all|compress_text|build_index|infodb )$/)332 { 333 if (defined $collectcfg->{'mode'} && $collectcfg->{'mode'} =~ /^(all|compress_text|build_index|infodb )$/)334 if ($self->{'mode'} !~ /^(all|compress_text|build_index|infodb|extra)$/) 335 { 336 if (defined $collectcfg->{'mode'} && $collectcfg->{'mode'} =~ /^(all|compress_text|build_index|infodb|extra)$/) 334 337 { 335 338 $self->{'mode'} = $collectcfg->{'mode'}; … … 556 559 my @buildertype_list = ($buildertype); 557 560 561 my $mode = $self->{'mode'}; 562 563 if ($mode eq "extra") { 564 # knock out the main builder type, by reseting the lists to be empty 565 @builderdir_list = (); 566 @buildertype_list = (); 567 } 568 558 569 if (defined $orthogonalbuildtypes) 559 570 { … … 639 650 640 651 # Run the requested passes 641 if ($mode =~ /^ all$/i)652 if ($mode =~ /^(all|extra)$/i) 642 653 { 643 654 # 'map' modifies the elements of the original array, so calling
Note:
See TracChangeset
for help on using the changeset viewer.