lib/CXGN/Page/Form/EditableHidden.pm

   1
   2 =head1 NAME
   3
   4 EditableHidden.pm
   5
   6 =head1 DESCRIPTION
   7
   8 Deals with the representation of hidden fields on editable forms. The hidden field itself is of course not editable -- the editable in the name just means that it will be rendered on an editable form.
   9
  10 For more information, see L<CXGN::Page::Form>.
  11
  12 =head1 AUTHOR(S)
  13
  14 Lukas Mueller (lam87@cornell.edu)
  15
  16 =head1 FUNCTIONS
  17
  18 The following functions are overridden from the parent class CXGN::Page::Form::Hidden which itself implements the CXGN::Page::Form::ElementI interface.
  19
  20 =cut
  21
  22 use strict;
  23 use CXGN::Page::Form::Hidden;
  24
  25 package CXGN::Page::Form::EditableHidden;
  26
  27 use base qw / CXGN::Page::Form::Hidden /;
  28
  29 =head2 new
  30
  31  Usage:
  32  Desc:
  33  Ret:
  34  Args:
  35  Side Effects:
  36  Example:
  37
  38 =cut
  39
  40 sub new {
  41     my $class = shift;
  42     my $self = $class->SUPER::new(@_);
  43
  44     return $self;
  45 }
  46
  47 =head2 render
  48
  49  Usage:
  50  Desc:
  51  Ret:
  52  Args:
  53  Side Effects:
  54  Example:
  55
  56 =cut
  57
  58 sub render {
  59     my $self = shift;
  60
  61          my $id = $self->get_id();
  62     my $name = $self->get_field_name();
  63     my $value = $self->get_contents();
  64
  65     my $s = qq { <input type="hidden" id="$id" name="$name" value="$value" /> };
  66     return $s;
  67
  68 }
  69
  70 return 1;