Skip to content
Snippets Groups Projects
Commit c4d4aab3 authored by Steve Trevanion's avatar Steve Trevanion
Browse files

tweaks to formatting of param list so that they (hopefully) all fit on one...

tweaks to formatting of param list so that they (hopefully) all fit on one line. Don't try to check PATCH seq_region_attribs since it doesn't work with with Ensembl-vega databases
parent 4a20f3b5
No related branches found
No related tags found
No related merge requests found
......@@ -401,15 +401,15 @@ sub confirm_params {
sub list_all_params {
my $self = shift;
my $txt = sprintf " %-21s%-90s\n", qw(PARAMETER VALUE);
$txt .= " " . "-"x121 . "\n";
$Text::Wrap::colums = 130;
my $txt = sprintf " %-25s%-110s\n", qw(PARAMETER VALUE);
$txt .= " " . "-"x136 . "\n";
$Text::Wrap::columns = 130;
my @params = $self->allowed_params;
foreach my $key (@params) {
my @vals = $self->param($key);
if (@vals) {
$txt .= Text::Wrap::wrap( sprintf(' %-21s', $key),
' 'x24,
$txt .= Text::Wrap::wrap( sprintf(' %-25s', $key),
' 'x28,
join(", ", @vals)
) . "\n";
}
......@@ -1237,10 +1237,6 @@ sub is_patch {
return 1;
}
}
if ($slice->seq_region_name =~ /^[HG|HS|PATCH]/) {
$self->log_warning($slice->seq_region_name . " has a PATCH name does not have a patch seq_region_attrib, please check if it was present in loutre\n");
return 1;
}
return 0;
}
......
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