EnsEMBL::Web::Command::Website UpdateSpecies
Included librariesPackage variablesGeneral documentationMethods
Toolbar
WebCvsRaw content
Package variables
No package variables defined.
Included modules
EnsEMBL::Web::Data::Release
EnsEMBL::Web::Data::ReleaseSpecies
EnsEMBL::Web::Data::Species
Inherit
EnsEMBL::Web::Command
Synopsis
No synopsis!
Description
No description!
Methods
process
No description
Code
Methods description
None available.
Methods code
processdescriptionprevnextTop
sub process {
  my $self = shift;
  my $object = $self->object;
  my $url = '/Website/CurrentSpecies';
  my $param = {};
  my $release_id = $object->species_defs->ENSEMBL_VERSION;

  my $current_release = EnsEMBL::Web::Data::Release->new($release_id);
  my $previous_release = EnsEMBL::Web::Data::Release->new($release_id - 1);
  my @current_species = $current_release->species;

  foreach my $species ( $object->species_defs->valid_species ) {
    next if grep {$_ eq $species} @current_species;
    ## Get info about previous release entries
my $db_species = EnsEMBL::Web::Data::Species->find('name' => $species); my $assembly_code = 'TBC'; my $assembly_name = 'TBC'; if ($db_species) { my $previous = EnsEMBL::Web::Data::ReleaseSpecies->find( 'release_id' => $release_id - 1, 'species_id' => $db_species->id); if ($previous) { $assembly_code = $previous->assembly_code; $assembly_name = $previous->assembly_name; } } my $add_to_release = EnsEMBL::Web::Data::ReleaseSpecies->new(); $add_to_release->release_id($release_id); $add_to_release->species_id($db_species->id); $add_to_release->assembly_code($assembly_code); $add_to_release->assembly_name($assembly_name); $add_to_release->save; } $self->ajax_redirect($url, $param); } } 1;
}
General documentation
No general documentation available.