—

              
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(' ');
  }
  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__
HideShow 24 lines of Pod
=head1 HTML::TurboForm::Element::Submit
Representation class for HTML Submit 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 Submit element.
=head1 AUTHOR
Thorsten Domsch, tdomsch@gmx.de
=cut