EnsEMBL::Web::Object Healthcheck
Included librariesPackage variablesGeneral documentationMethods
Toolbar
WebCvsRaw content
Package variables
No package variables defined.
Included modules
EnsEMBL::Web::Data::HcReport
EnsEMBL::Web::Data::HcSessionView
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_paramsdescriptionprevnextTop
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;
}
can_exportdescriptionprevnextTop
sub can_export {
 return 0;
}
captiondescriptionprevnextTop
sub caption {
 return undef;
}
count_testsdescriptionprevnextTop
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);
}
countsdescriptionprevnextTop
sub counts {
 return undef;
}
database_namesdescriptionprevnextTop
sub database_names {
  my $self = shift;
  return EnsEMBL::Web::Data::HcReport->database_names($self->species, $self->max_session_for_release);
}
failed_testsdescriptionprevnextTop
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);
}
max_session_for_releasedescriptionprevnextTop
sub max_session_for_release {
:lvalue { $_[0]->Obj->{'max_session_for_release'};
}
number_failed_by_speciesdescriptionprevnextTop
sub number_failed_by_species {
   my ($self, $species, $session_type, $release) = @_;
  my $session_id = EnsEMBL::Web::Data::HcSessionView->max_for_release($release);
  return unless $session_id;
  return EnsEMBL::Web::Data::HcReport->failed_by_species($session_type, $species, $session_id);
}
releasedescriptionprevnextTop
sub release {
:lvalue { $_[0]->Obj->{'release'};
}
reportsdescriptionprevnextTop
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);
}
result_typesdescriptionprevnextTop
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;
}
session_infodescriptionprevnextTop
sub session_info {
 
  ### Munges the information returned from the session_v view 
### for use in webpages
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; ## parse config to produce required data
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_captiondescriptionprevnextTop
sub short_caption {
 return '';
}
General documentation
No general documentation available.