lib/CXGN/Page/Form/EditableMultiSelect.pm

   1 =head1 NAME
   2
   3 CXGN::Page::Form::MultiSelect;
   4
   5 =head1 DESCRIPTION
   6
   7 Implements a static (non-editable) multiple-selection list on a static form. For more information, see L<CXGN::Page::Form>.
   8
   9 =head1 AUTHOR(S)
  10
  11 Evan Herbst
  12
  13 =cut
  14
  15 use strict;
  16 use CXGN::Page::Form::MultiSelect;
  17
  18 package CXGN::Page::Form::EditableMultiSelect;
  19
  20 use base qw/ CXGN::Page::Form::MultiSelect /;
  21
  22 =head2 new
  23
  24  Usage:
  25  Desc:
  26  Ret:
  27  Args:
  28  Side Effects:
  29  Example:
  30
  31 =cut
  32
  33 sub new
  34 {
  35         my $class = shift;
  36         my %params = @_;
  37         my $self = $class->SUPER::new(%params);
  38         return $self;
  39 }
  40
  41 =head2 render
  42
  43  Usage:
  44  Desc:
  45  Ret:
  46  Args:
  47  Side Effects:
  48  Example:
  49
  50 =cut
  51
  52 sub render
  53 {
  54         my $self = shift;
  55         my $html = "<select id=\"" . $self->get_id() . "\" name=\"" . $self->get_field_name() . "\" multiple=\"multiple\">";
  56         for(my $i = 0; $i < scalar($self->get_choice_array()); $i++)
  57         {
  58                 if($self->is_selected($i))
  59                 {
  60                         $html .= "<option value=\"" . $self->get_choice($i) . "\" selected=\"selected\">" . $self->get_label($i) . "</option>";
  61                 }
  62                 else
  63                 {
  64                         $html .= "<option value=\"" . $self->get_choice($i) . "\">" . $self->get_label($i) . "</option>";
  65                 }
  66         }
  67         return $html . "</select>";
  68 }
  69
  70 return 1;