HTML::TurboForm::Element::Textarea - HTML::TurboForm::Element::Textarea documentation

HTML-TurboForm documentation

Contained in the HTML-TurboForm distribution.

Index

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

Code Index:

package HTML::TurboForm::Element::Textarea
- init
- render
__END__
EOF

HTML::TurboForm::Element::Textarea

Representation class for HTML Textarea 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::Textarea;
use warnings;
use strict;
use base qw(HTML::TurboForm::Element);
__PACKAGE__->mk_accessors( qw/ id tinymce / );

sub init{
    my ($self)=@_;

    @{$self->{modules}} = ('tinymce/tiny_mce') if ($self->tinymce);
}

sub render {
  my ($self, $options, $view)=@_;
  if ($view) { $self->{view}=$view; }
    
  my $request=$self->request;
  my $result='';
  my $disabled='';
  my $class='form_textarea';

  $class = $self->class if ($self->class);
  my $id='';
  $id = ' id="'.$self->id.'" ' if ($self->id);
  $class = 'class="'.$class.'"';
  my $name=' name="'.$self->name.'" ';
  my $value=$request->{ $self->name };
  
  if ($options->{frozen}) {
      if ($options->{frozen} == 1) {
	  my $text= $value;
          $disabled=' disabled ';
	  $result='<input type="hidden" '.$name.' value="'.$value.'" />';
      }
  }

  my $tinytext='';
  if ($self->tinymce){
       $tinytext = '
            <script type="text/javascript">
	    	    tinyMCE.init({
				mode : "textareas",
				theme : "simple"
	   	   });
            </script>';
  }
  
  $value='' if (!$value);
  $result =$result.$tinytext.'<textarea '.$disabled.$id.$name.$class.'>'.$value.'</textarea>' ;
  return $self->vor($options).$result.$self->nach;
}

1;

__END__