EnsEMBL::Web::Component::Website::Interface DeclarationSelectToEdit
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</h1>';

  my @declarations = EnsEMBL::Web::Data::NewsItem->search('release_id' => $object->species_defs->ENSEMBL_VERSION);
  my @sorted = sort {
                $a->team cmp $b->team || $a->created_at cmp $b->created_at
              } @declarations;

  my @values = ({'name' => '-- Select --', 'value' => ''});
  foreach my $dec (@sorted) {
    next unless $dec->declaration;
    push @values, {'name' => $dec->team.' - '.substr($dec->declaration, 0, 50), 'value' => $dec->id};
  }

  my $form = EnsEMBL::Web::Form->new('select_dec', '/Website/Declaration/Edit', 'post');

  $form->add_element(
    'name' => 'id',
    'type' => 'DropDown',
    'label' => 'Declarations',
    'select' => 'select',
    'values' =>\@ values,
  );
  $form->add_element(
    'name' => 'submit',
    'type' => 'Submit',
    'value' => 'Next',
  );
  $html .= $form->render;

  return $html;
}

1;
}
General documentation
No general documentation available.