HTML::TurboForm::Element::Submit - HTML::TurboForm::Element::Submit documentation

HTML-TurboForm documentation

Contained in the HTML-TurboForm distribution.

Index

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

Code Index:

package HTML::TurboForm::Element::Submit
- render
- get_dbix
__END__
EOF

HTML::TurboForm::Element::Submit

Representation class for HTML Submit 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 Submit element.

AUTHOR

Thorsten Domsch, tdomsch@gmx.de

HTML-TurboForm documentation

Contained in the HTML-TurboForm distribution.

package HTML::TurboForm::Element::Submit;
use warnings;
use strict;
use base qw(HTML::TurboForm::Element);
__PACKAGE__->mk_accessors( qw/ image pure ajaxcall  / );

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

  if ($self->label and ($self->label eq '')) {
    $self->label('&nbsp;');
  }

  my $class= "form_std";
  $class=$self->class if ($self->class);

  my $id='';
  $id=" id='$self->{name}' ";

  my $value=$self->value;
  $value= ' value="'.$value.'" ';
  
  if ($options->{frozen}){
    if ($options->{frozen} == 1) {
      my $text= $value;
    }
  }
  
  my $js_tag_text = '';
  if ($self->ajaxcall) {
      $result= '<input type="hidden" name="'.$self->name.'" value="1"/>';
      $result= $result.'<input type="Button" class="'.$class.'" onClick="get_box_data('."'".$self->ajaxcall."'".');" value="'.$self->{value}.'"></input> '; 
  }  else {
      my $t = 'type="Submit"';
      $t = 'type="image" src="'.$self->image.'"' if ($self->image);     
      $result =$result.'<input class="'.$class.'" '.$t.' '.$id.' name="'.$self->{name}.'" '.$value.' />' ;
  }
  return $result if ($self->{pure});
  return $self->vor($options).$result.$self->nach;
}

sub get_dbix{
    my ($self)=@_;
    return 0;
}

1;


__END__