EnsEMBL::Web::Component::Website Declarations
Included librariesPackage variablesGeneral documentationMethods
Toolbar
WebCvsRaw content
Package variables
No package variables defined.
Included modules
EnsEMBL::Web::Data::NewsItem
Inherit
EnsEMBL::Web::Component
Synopsis
No synopsis!
Description
No description!
Methods
_init
No description
Code
caption
No description
Code
content
No description
Code
Methods description
None available.
Methods code
_initdescriptionprevnextTop
sub _init {
  my $self = shift;
  $self->cacheable( 0 );
  $self->ajaxable(  0 );
}
captiondescriptionprevnextTop
sub caption {
  my $self = shift;
  return '';
}
contentdescriptionprevnextTop
sub content {
  my $self = shift;
  my $object = $self->object;
  my $html = '<h1>Declarations in Full</h1>';

  my @declarations = EnsEMBL::Web::Data::NewsItem->search('release_id' => $object->species_defs->ENSEMBL_VERSION);

  my @sorted = sort {$a->team cmp $b->team} @declarations;
  my $previous;

  foreach my $item (@sorted) {
    if ($item->team ne $previous) {
      $html .= '<h2>'.$item->team.'</h2>';
    }
    my $title = $item->title || '(No title)';
    my $user = EnsEMBL::Web::Data::User->new($item->created_by);
    my $name = 'not logged';
    if ($user) {
      $name = $user->name;
    }
    $html .= sprintf(qq(
<h3>%s</h3>
<pre>%s</pre>
<p><strong>Declared by</strong>: %s</p> 
<p><strong>Status</strong>: %s</p>
), 
        $title, $item->declaration, $name, $item->status
    );
    if ($item->team eq 'Genebuild') {
      $html .= sprintf(qq(
<ul>
<li><strong>New assembly?</strong> %s</li>
<li><strong>New gene set?</strong> %s</li>
<li><strong>Repeat masking?</strong> %s</li>
<li><strong>Stable ID mapping?</strong> %s</li>
<li><strong>Affy mapping?</strong> %s</li>
</ul>
),
      $item->assembly, $item->gene_set, $item->repeat_masking, $item->stable_id_mapping, $item->affy_mapping,
);
    }
    $html .= '<br />';
    $previous = $item->team;
  }

  return $html;
}

1;
}
General documentation
No general documentation available.