Skip to content
Snippets Groups Projects
Commit 9180c90b authored by Leo Gordon's avatar Leo Gordon
Browse files

now with param_substitute in all four sources

parent 6ff3a8b5
No related branches found
No related tags found
No related merge requests found
=pod
=head1 NAME
......@@ -88,10 +89,10 @@ sub run {
my $inputquery = $self->param('inputquery');
my $inputcmd = $self->param('inputcmd');
my $list = $inputlist
|| ($inputfile && $self->_make_list_from_file($inputfile))
|| ($inputquery && $self->_make_list_from_query($inputquery))
|| ($inputcmd && $self->_make_list_from_cmd($inputcmd))
my $list = $self->param_substitute( $inputlist )
|| ($inputfile && $self->_make_list_from_file( $self->param_substitute( $inputfile ) ))
|| ($inputquery && $self->_make_list_from_query( $self->param_substitute( $inputquery ) ))
|| ($inputcmd && $self->_make_list_from_cmd( $self->param_substitute( $inputcmd ) ))
|| die "range of values should be defined by setting 'inputlist', 'inputfile' or 'inputquery'";
if($randomize) {
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment