CAMELCASE / HTML-TurboForm-0.21 / lib / HTML / TurboForm / Element / Hidden.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
—
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

              
package HTML::TurboForm::Element::Hidden;
use warnings;
use strict;
use base qw(HTML::TurboForm::Element);
sub render {
  my ($self, $options, $view)=@_;
  if ($view) { $self->{view}=$view; }  
  my $request=$self->request;
  my $result='';
  my $disabled='';
  my $id='';
  $id=" id='".$self->id."' " if ($self->id);
  my $name=' name="'.$self->name.'" ';
  my $value='';
  $value=' value="'.$request->{ $self->name }.'" ' if ($request->{ $self->name });
     
  $result .='<input type="'.$self->type.'" '.$id.' '.$name.$value.'>' ;  
  return $result;
}
1;
__END__
=head1 HTML::TurboForm::Element::Hidden
Representation class for HTML Hidden input element.
=head1 DESCRIPTION
Straight forward so no need for much documentation.
See HTML::TurboForm doku for mopre details.
=head1 METHODS
=head2 render
Arguments: $options
returns HTML Code for element.
=head1 AUTHOR
Thorsten Domsch, tdomsch@gmx.de
=cut