Raw content of EnsEMBL::Web::Component::Website::Declarations package EnsEMBL::Web::Component::Website::Declarations; ### Module to display all declarations in full use strict; use warnings; no warnings "uninitialized"; use base qw(EnsEMBL::Web::Component); use EnsEMBL::Web::Data::NewsItem; sub _init { my $self = shift; $self->cacheable( 0 ); $self->ajaxable( 0 ); } sub caption { my $self = shift; return ''; } 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;