Skip to content
Snippets Groups Projects
Commit 7a2e6401 authored by Andreas Romeyke's avatar Andreas Romeyke
Browse files

- disabled debugging output of clio options

parent e513f08c
No related branches found
No related tags found
No related merge requests found
...@@ -148,7 +148,6 @@ sub execute { ...@@ -148,7 +148,6 @@ sub execute {
} @{$response->{hits}->{hits} }; } @{$response->{hits}->{hits} };
my @headers = sort keys %{$result[0]}; my @headers = sort keys %{$result[0]};
my $aip_only = List::Util::none {$_ =~ m/^with/} keys %{ $opt }; my $aip_only = List::Util::none {$_ =~ m/^with/} keys %{ $opt };
p($opt);
if (!exists $opt->{output_format}) { $opt->{output_format} = 'output_as_rsv' ;} if (!exists $opt->{output_format}) { $opt->{output_format} = 'output_as_rsv' ;}
if ($aip_only or ($opt->{output_format} eq 'output_as_csv') ) { if ($aip_only or ($opt->{output_format} eq 'output_as_csv') ) {
say join(",", @headers); say join(",", @headers);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment