HTML::TurboForm::Element::Password - HTML::TurboForm::Element::Password documentation

HTML-TurboForm documentation

Contained in the HTML-TurboForm distribution.

Index

HTML::TurboForm::Element::Password
DESCRIPTION
METHODS
- render
AUTHOR

Code Index:

package HTML::TurboForm::Element::Password
- render
- get_value
__END__
EOF

HTML::TurboForm::Element::Password

Representation class for HTML Password input element.

DESCRIPTION

Straight forward so no need for much documentation. See HTML::TurboForm doku for mopre details.

METHODS

render

Arguments: $options

returns HTML Code for element.

AUTHOR

Thorsten Domsch, tdomsch@gmx.de

HTML-TurboForm documentation

Contained in the HTML-TurboForm distribution.

package HTML::TurboForm::Element::Password;
use warnings;
use strict;
use base qw(HTML::TurboForm::Element);
use Digest::SHA1  qw(sha1 sha1_hex);

sub render {
  my ($self, $options, $view)=@_;
  if ($view) { $self->{view}=$view; }
  
  my $id='';
  $id=' id="'.$self->id.'" '  if ($self->id);
  
  my $request=$self->request;
  my $result='';
  my $disabled='';
  my $class='form_text';
  $class = $self->class if ($self->class);
  $class = 'class="'.$class.'"';
  my $name=' name="'.$self->name.'" ';
  my $value='';
  $value=' value="'.$request->{ $self->name }.'" ' if ($request->{ $self->name });
  
  if ($options->{frozen}) {
    if ($options->{frozen} eq 1) {
      my $text= $value;
      $disabled=' disabled ';
     # $result='<input type="hidden" '.$name.$value.'" />';
    }
  }

  my $limit='';
  $limit=' maxlength="'.$self->limit.'"' if ($self->limit);
  $result .='<input type="'.$self->type.'"'.$disabled.$id.$name.$value.$class.$limit.'/>' ;
  return $self->vor($options).$result.$self->nach;
}


sub get_value{
    my ($self) = @_;     
    my $result='';    
    $result=$self->{request}->{$self->name} if exists($self->{request}->{$self->name});
    return sha1_hex($result) if ($result);
    return '' if (!$result);
}

1;


__END__