lib/CXGN/Page/Form/EditablePasswordField.pm

   1 =head1 NAME
   2
   3 EditablePasswordField.pm -- implements an editable password field on a html form.
   4
   5 =head1 DESCRIPTION
   6
   7 Please see L<CXGN::Page::Form> for more information.
   8
   9 =head1 AUTHOR(S)
  10
  11 Evan Herbst
  12
  13 =cut
  14
  15
  16 use strict;
  17 use CXGN::Page::Form::PasswordField;
  18
  19
  20 package CXGN::Page::Form::EditablePasswordField;
  21
  22 use base qw / CXGN::Page::Form::PasswordField /;
  23
  24 sub new {
  25     my $class = shift;
  26     my $self = $class->SUPER::new(@_);
  27     return $self;
  28 }
  29
  30 sub render {
  31     my $self = shift;
  32
  33     return " <input type=\"password\" id=\"" . $self->get_id() . "\" name=\"".$self->get_field_name()."\" value=\"".$self->get_contents()."\" size=\"".$self->get_length()."\" />\n";
  34 }
  35
  36
  37 return 1;