HTML::FormEngine::SkinComplexConfirm - the confirm skin for SkinComplex

HTML-FormEngine documentation Contained in the HTML-FormEngine distribution.

Index

Code Index:

NAME

Top

HTML::FormEngine::SkinComplexConfirm - the confirm skin for SkinComplex

ABOUT

Top

This is a confirm skin. It is based on the skin class HTML::FormEngine::SkinComplex.

The confirm skin replaces the original skin when the confirm form is created. Read HTML::FormEngine for more.

HTML-FormEngine documentation Contained in the HTML-FormEngine distribution. 
######################################################################

package HTML::FormEngine::SkinComplexConfirm;

use strict;
use vars qw(@ISA);
use HTML::FormEngine::SkinComplex;
@ISA = qw(HTML::FormEngine::SkinComplex);

######################################################################

sub _get_templ {
  my $self = shift;
  my %skin = %{HTML::FormEngine::SkinClassic::_get_templ({'_check' => '#confirm_check_prepare 2', '_radio' => '#confirm_check_prepare 2', '_select' => '#confirm_check_prepare 2'})};

$skin{main} = '
<form action="<&ACTION&>" method="<&METHOD&>" name="<&FORMNAME&>" accept="<&ACCEPT&>" enctype="<&ENCTYPE&>" target="<&TARGET&>" id="<&FORMNAME&>" <&FORM_EXTRA&>>
<table border=<&FORM_TABLE_BORDER&> cellspacing=<&FORM_TABLE_CELLSP&> cellpadding=<&FORM_TABLE_CELLPAD&> align="<&FORM_ALIGN&>" <&FORM_TABLE_EXTRA&>>
<tr <&ROW_CONFMSG_EXTRA&>><td colspan=3 align="<&CONFMSG_ALIGN&>" <&TD_CONFMSG_EXTRA&>><!<&#gettext_var CONFIRMSG&><br><br>!CONFIRMSG!></td></tr><~
<tr <&FORM_ROW_EXTRA&>><&TEMPL&></tr>~TEMPL FORM_ROW_EXTRA~>
<tr <&LROW_EXTRA&>>
      <td align="<&CANCEL_ALIGN&>" <&LCOL_EXTRA&>>
          <!<input type="submit" name="<&CONFIRM_CANCEL&>" value="<&#gettext_var CANCEL&>"/>!CANCEL!>
      </td>
      <td align="<&SUBMIT_ALIGN&>" colspan=2 <&LCOL_EXTRA&>>
            <!<input type="submit" value="<&SUBMIT&>" name="<&CONFIRMED&>" <&SUBMIT_EXTRA&>/>!SUBMIT!>
      </td>
</tr>
</table>
<~<&HIDDEN&>~HIDDEN~>
<input type="hidden" name="<&FORMNAME&>" value="1" />
</form>';

  $skin{'_text'} = '<&_print&>';
  $skin{'_radio'} = '<&_print_option&>';
  $skin{'_select'} = '<&_print_option&>';
  $skin{'_select_optgroup'} ='<&_print_option&>';
  $skin{'_select_flexible'} = '<&_templ&>';
  $skin{'_optgroup'} = '<&_print_option&>';
  $skin{'optgroup'} = '<&#confirm_check_prepare 2&><&_print_option&>';
  $skin{'optgroup_flexible'} = '<&_templ&>';
  $skin{'_option'} = '<&_print_option&>';
  $skin{'option'} = '<&#confirm_check_prepare 2&><&_print_option&>';
  $skin{'_check'} = '<&_print_option&>';
  $skin{'_textarea'} = '<&_print&>';

  return \%skin;
}

sub _get_confirm_skin {
  return undef;
}

1;

__END__