| 480 |
|
|
| 481 |
|
my $rv=0; |
| 482 |
|
my @params=(); |
| 483 |
+ |
|
| 484 |
|
$self->verbose("Check Other Projects for tool"); |
| 485 |
|
my @validtools=(); |
| 486 |
|
if ( defined $self->{toolboxsearcher} ) { |
| 506 |
|
|
| 507 |
|
my @paramlist=(); |
| 508 |
|
my @params=(); |
| 509 |
+ |
|
| 510 |
+ |
# Check for an override of the searcher. If the |
| 511 |
+ |
# variable SEARCHOVRD is set, we return an empty array: |
| 512 |
+ |
if ( $ENV{'SEARCHOVRD'} eq 'true' ) |
| 513 |
+ |
{ |
| 514 |
+ |
$self->verbose("Searching for tool settings from other projects OVERRIDDEN"); |
| 515 |
+ |
# This bypasses the menu option presented to the user when there is more than one |
| 516 |
+ |
# choice for the tool location: |
| 517 |
+ |
return @paramlist; |
| 518 |
+ |
} |
| 519 |
+ |
# Otherwise we proceed as normal: |
| 520 |
|
$self->verbose("Searching for parameter settings in other tools"); |
| 521 |
|
my @validtools=(); |
| 522 |
|
if ( defined $self->{toolboxsearcher} ) { |
| 523 |
< |
@validtools=$self->_searchtools($tool,$self->{toolboxsearcher}); |
| 524 |
< |
} |
| 523 |
> |
@validtools=$self->_searchtools($tool,$self->{toolboxsearcher}); |
| 524 |
> |
} |
| 525 |
|
else { |
| 526 |
|
$self->verbose("No tool searcher available"); |
| 527 |
|
} |
