EnsEMBL::Web::Component::Website SelectRelease
Included librariesPackage variablesGeneral documentationMethods
Toolbar
WebCvsRaw content
Package variables
No package variables defined.
Included modules
EnsEMBL::Web::Data::Release
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>Select a release</h1>';

  my @releases = EnsEMBL::Web::Data::Release->find_all;
  my @sorted = sort {$b->number <=> $a->number} @releases;

  my @values = ({'name' => '-- Select --', 'value' => ''});
  foreach my $release (@sorted) {
    push @values, {'name' => $release->number.' - '.$self->pretty_date($release->date), 'value' => $release->id};
  }

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

  $form->add_element(
    'name' => 'release_id',
    'type' => 'DropDown',
    'label' => 'Releases',
    '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.