EnsEMBL::Web::Object
Healthcheck
Toolbar
Package variables
No package variables defined.
Included modules
Inherit
EnsEMBL::Web::Object
Synopsis
No synopsis!
Description
No description!
Methods
_get_vc_params | No description | Code |
can_export | No description | Code |
caption | No description | Code |
count_tests | No description | Code |
counts | No description | Code |
database_names | No description | Code |
failed_tests | No description | Code |
max_session_for_release | No description | Code |
number_failed_by_species | No description | Code |
release | No description | Code |
reports | No description | Code |
result_types | No description | Code |
session_info | No description | Code |
short_caption | No description | Code |
Methods description
None available.
Methods code
_get_vc_params | description | prev | next | Top |
sub _get_vc_params
{ my $self = shift;
my $vc = $self->get_viewconfig;
my @actions = ('note', 'under_review', 'healthcheck_bug', 'manual_ok', 'manual_ok_this_assembly', 'manual_ok_all_releases');
my $tc_action = [];
foreach my $action (@actions) {
my $T = $vc->get('tc_'.$action);
push @$tc_action, $action if $T =~ /on|yes/;
}
my $unannotated = $vc->get('unannotated') eq 'no' ? 0 : 1;
return ($tc_action, $unannotated);
}
1; } |
sub can_export
{ return 0; } |
sub caption
{ return undef; } |
sub count_tests
{ my ($self, $database, $type) = @_;
my @args = ($database, $self->max_session_for_release);
push @args, $type if $type;
return EnsEMBL::Web::Data::HcReport->count_tests(@args); } |
sub counts
{ return undef; } |
sub database_names
{ my $self = shift;
return EnsEMBL::Web::Data::HcReport->database_names($self->species, $self->max_session_for_release); } |
sub failed_tests
{ my ($self, $database) = @_;
my $types = $self->result_types;
my ($tc_action, $unannotated) = $self->_get_vc_params;
return EnsEMBL::Web::Data::HcReport->failed_tests($database, $self->max_session_for_release, $types, $tc_action, $unannotated); } |
sub max_session_for_release
{:lvalue { $_[0]->Obj->{'max_session_for_release'}; } |
sub release
{:lvalue { $_[0]->Obj->{'release'}; } |
sub reports
{ my ($self, $database) = @_;
my $types = $self->result_types;
my ($tc_action, $unannotated) = $self->_get_vc_params;
return EnsEMBL::Web::Data::HcReport->reports($database, $self->max_session_for_release, $types, $tc_action, $unannotated); } |
sub result_types
{ my $self = shift;
my $vc = $self->get_viewconfig;
my @types = ('INFO', 'WARNING', 'PROBLEM');
my $result_types = [];
foreach my $type (@types) {
my $T = $vc->get('result_'.$type);
push @$result_types, $type if $T =~ /on|yes/;
}
return $result_types; } |
sub session_info
{
my ($self, $session) = @_;
$session ||= $self->max_session_for_release;
my $session_view = EnsEMBL::Web::Data::HcSessionView->new($session);
my $session_info;
$session_info->{'db_release'} = $session_view->db_release;
$session_info->{'start_time'} = $session_view->start_time;
$session_info->{'end_time'} = $session_view->end_time;
$session_info->{'duration'} = $session_view->duration;
my @configs = split(',', $session_view->config);
$session_info->{'db_names'} = [];
my %groups;
foreach my $config (@configs) {
my ($db_regex, $group) = split(':', $config);
push @{$session_info->{'db_names'}}, $db_regex;
$groups{$group}++;
}
my @groups = keys %groups;
$session_info->{'groups'} =\@ groups;
return $session_info; } |
short_caption | description | prev | next | Top |
sub short_caption
{ return ''; } |
General documentation
No general documentation available.