package Template::Parser::Form;
$Template::Parser::Form::VERSION = 2.07;

# use strict coding pragma
use strict;

# make expt traces for diagnostic debug
use expt_handler;


# --------------------------------------------------------
# Constructor
# --------------------------------------------------------
sub new {

   my($class) = shift;
   my(%in)    = @_;
   my($this)  = {};
   my($name)  = __PACKAGE__;

   # -------------------------------------------
   # bless object ref into the class' namespace
   # -------------------------------------------
   bless($this, $class);


   # -------------------------------------------
   # begin setting up class attributes
   # -------------------------------------------
   $this->{'name'}         = $name;
   $this->{'pcom'}         = $in{'main'}        || undef;
   $this->{'parser'}       = $in{'parser'}      || undef;
   $this->{'cgi'}          = $in{'cgi'}         || undef;
   $this->{'expt'}         = expt_handler->new();

   # -------------------------------------------
   # finish by verifying class attributes
   # -------------------------------------------
   $this->verify_attributes();

   # return object reference
   return($this);
}


# --------------------------------------------------------
# Template::Parser::Form::verify_attributes()
# --------------------------------------------------------
sub verify_attributes {

   my($this)   = shift;
   my($name)   = $this->{'name'};
   my($expt)   = $this->{'expt'};

   $expt->
      belly_up
         (
            qq[$name needs a PCOM object]
         )
            if not ($this->{'pcom'});

   $expt->
      belly_up
         (
            qq[$name needs a CGI object]
         )
            if (not $this->{'cgi'});

   $expt->
      belly_up
         (
            qq[$name needs a Template::Parser object]
         )
            if (not $this->{'parser'});

   return(1);
}


# --------------------------------------------------------
# Template::Parser::Form::make_form()
# --------------------------------------------------------
sub make_form {

   my($this)   = shift;
   my(%in)     = @_;
   my($pcom)   = $this->{'pcom'};
   my($parser) = $this->{'parser'};
   my($cgi)    = $this->{'cgi'};
   my($def)    = $in{'def preloaded'};
   my($object) = $pcom->{'DIR'}{'objects'}.'/'.$in{'object'};
   my($layout) = $parser->load_object( $object );
   my($form)   = $in{'form'};
   my($option) = '';
   my($field)  = '';
   my($i)      = 0;

   $parser->
      set_object
         (
            'name'  => 'live_cmpts',
            'value' => $layout,
         );

   if (length($def) == 0) {

      $def = $pcom->{'DIR'}{'defs'}.'/minidefs/'.$in{'def'}.'.mdef';

      $def = $parser->load_file( $def );
   }

   $parser->
      set_object
         (
            'name'  => 'form',
            'value' => $form,
         );

   $def = $parser->parse( $def );


   $this->
      {'expt'}->
         fwarn
            (
               $def
            )
               if ($this->{'verbose'});


   if (CORE::eval($def)) {

      $def = CORE::eval( $def );
   }
   else {

      warn($@);
   }

   foreach $field (@{ $def->{'fields'} }) {

      ++$i;

      $field->{'iterator'} = $i;

         $parser->
            set_object
               (
                  'name'  => 'formfield',
                  'value' => $field,
               );

      if (($field->{'type'} ne 'hidden') && ($field->{'type'} ne 'select')) {

         $layout->{'tmp'} .= $parser->parse( $layout->{'body'} );

         next;
      }

      if ($field->{'type'} eq 'hidden') {

         $layout->{'hiddenfields'} .= $parser->parse( $layout->{'hidden'} );
      }
      elsif ($field->{'type'} eq 'select') {

         my($sel) = '';

         foreach $option (@{ $field->{'options'} }) {

            $parser->
               set_object
                  (
                     'name'   => 'option',
                     'value'  => $option,
                  );

            $sel .= $parser->parse( $layout->{'option'} );
         }

         $parser->
            set_object
               ( 'name'    => 'select',
                 'param'   => 'options',
                 'value'   => $sel,
               );

         $layout->{'tmp'} .= $parser->parse( $layout->{'body'} );
      }
   }

   $parser->
      set_object
         (
            'name'   => 'form',
            'param'  => 'hidden',
            'value'  => $layout->{'hiddenfields'},
         );

   if ($layout->{'tmp'}) {

      # put cap and toe on the just-conglommerated layout body
      $layout->
         {'parsed'} =

            $parser->parse($layout->{'header'}).
               $layout->{'tmp'}.
            $parser->parse( $layout->{'footer'});
   }
   else {

      # or put cap and toe on the empty return
      $layout->
         {'parsed'} =

            $parser->
               parse
                  (
                     $layout->{'header'}.
                     $layout->{'empty'}.
                     $layout->{'footer'}
                  );
   }

   # return the parsed object now
   return($layout->{'parsed'});
}


# --------------------------------------------------------
# Template::Parser::Form::get_form()
# --------------------------------------------------------
sub get_form {

   my($this)   = shift;
   my(%in)     = @_;
   my($def)    = $in{'def'};
   my($object) = $in{'object'};
   my($form)   =
      {
         'name'   => $in{'object'},
         'action' => $in{'action'},
         'method' => $in{'method'} || 'post',
      };

   return
      (
         $this->
            make_form
               (
                  'def'    => $def,
                  'object' => $object,
                  'form'   => $form,
               )
      );
}


# --------------------------------------------------------
# Template::Parser::Form::DESTROY()
# --------------------------------------------------------
sub DESTROY {}

1;

$Template::Parser::Form::cmpos = {};

$Template::Parser::Form::cmpos =
   {
      'body' => <<'__cmpo__',
<tr>
<?=
   # take care of formfields that have null widths
   $formfield->{'input-width'}   ||= '250';
   $formfield->{'label-width'}   ||= '150';

   # take care of formfields that have null styles
   if (!$formfield->{'label-tdstyle'}) {

      if ($formfield->{'iterator'} % 2) {

         $formfield->{'label-tdstyle'} = 'greybak';
      }
      else {

         $formfield->{'label-tdstyle'} = 'whitebak';
      }
   }
   if (!$formfield->{'input-tdstyle'}) {

      if ($formfield->{'iterator'} % 2) {

         $formfield->{'input-tdstyle'} = 'greybak';
      }
      else {

         $formfield->{'input-tdstyle'} = 'whitebak';
      }
   }
   # now that this is done, make sure that special
   # formfields are parsed in their own files so
   # that colspans and all that don't get messed up
   # in the table holding our form...
   if ( $formfield->{'type'} eq 'title' ) {
      $formfield->{'title table cell'} = qq[
<td
 colspan="2"
 align="center"
 valign="middle"
 class="$formfield->{'tdstyle'}">].
 q[<div>&#160;</div>];
return
   (
$formfield->{'title table cell'}.
$parser->parse( $live_cmpts->{'title'} ).
'</td><div>&#160;</div>'
   );
   }
   elsif ( $formfield->{'type'} eq 'subtitle' ) {
      # !! we override subtitle td styles for now !!
      $formfield->{'tdstyle'} = 'lightgreybak';
      $formfield->{'subtitle table cell'} = qq[
<td
colspan="2"
align="center"
valign="middle"
class="$formfield->{'tdstyle'}">];
         return
            (
$formfield->{'subtitle table cell'}.
$parser->parse( $live_cmpts->{'subtitle'} ).'</td>'
            );
   }
   elsif ( $formfield->{'type'} eq 'submit' ) {
      $formfield->{'submit table cell'} = qq[
<td
 colspan="2"
 align="right"
 valign="middle"
 class="$formfield->{'tdstyle'}">]
 .q[<div>&#160;</div>];
   return
   (
$formfield->{'submit table cell'}.
$parser->parse( $live_cmpts->{'sumbit'} ).
q[</td><div>&#160;</div>]
   );
   }
   # once we have sent any special formfield types
   # to their respective files, treat the current
   # formfield normally...
   $formfield->{'left table cell'} = qq[
<td
 width="$formfield->{'label-width'}"
 align="left"
 valign="middle"
 class="$formfield->{'label-tdstyle'}">];
   if (length($formfield->{'desc'}) > 0) {
      $formfield->{'leftside'} = qq[
$formfield->{'label'}
<div class="small">
<br />
<em class="faintyellowbak">$formfield->{'desc'}<em>
   </div>]
   }
   else {
      $formfield->{'leftside'} = $formfield->{'label'};
   }
   if ($formfield->{'type'} eq 'readonly') {
      $formfield->{'leftside'} =
'<span class="small"><strong>'.
$formfield->{'leftside'}.
'</strong></span>';
   }
   $formfield->{'left table cell'} .= $formfield->{'leftside'}.'</td>';
   $formfield->{'right table cell'} = qq[
<td
 width="$formfield->{'input-width'}"
 align="left"
 valign="middle"
 class="$formfield->{'input-tdstyle'}">
   <div class="indent">];
$formfield->{'rightside'} =
$parser->parse( $live_cmpts->{ $formfield->{'type'} } );
$formfield->{'right table cell'} .= $formfield->{'rightside'}.qq[\n
   </div>
</td>];
return($formfield->{'left table cell'} .$formfield->{'right table cell'});
?>
</tr>
__cmpo__

      'value-as-text' => <<'__cmpo__',
<div><?=
 ($formfield->{'css-class'})
   ? qq[ class="$formfield->{'css-class'}" : ''
 ?>><?= $formfield->{'value'} ?></div>
__cmpo__

      'text' => <<'__cmpo__',
<?=
($formfield->{'comments'})
   ? qq[ <span class="small"><em>$formfield->{'comments'}</em></span>] : ''
?>
<input
 type="text"
 name="<?= $formfield->{'name'} ?>"
 value="<?= $formfield->{'value'} ?>"
 size="<?= $formfield->{'size'} || 20 ?>"<?=
 ($formfield->{'css-class'})
   ? qq[
 class="$formfield->{'css-class'}"
   : q[ class="240px"]
?><?=
($formfield->{'js'}) ? qq[$formfield->{'js'}] : '' ?> /><?=
($formfield->{'required'})
   ? qq[<span class="alert"><strong>&#160;*</strong></span>] : ''
?><?=
($formfield->{'required'})
   ? qq[
<input
type="hidden"
name="cgi_required_$formfield->{'name'}"
value="The $formfield->{'label'} field was left empty." />]
   : '' ?>
__cmpo__

      'select-header' => <<'__cmpo__',
<?=
($formfield->{'comments'})
   ? qq[ <span class="small"><em>$formfield->{'comments'}</em></span>] : ''
?>
<select
 name="<?= $formfield->{'name'} ?>"
 size="<?= $formfield->{'size'} || '1' ?>"<?=
($formfield->{'multiple'}) ? qq[multiple="multiple"] : '' ?><?=
$formfield->{'css'}
   ?><?=
 ($formfield->{'css-class'}) ? qq[ class="$formfield->{'css-class'}"]
   : qq[ class="240px"]
       ?>>
__cmpo__

      'button' => <<'__cmpo__',
<?=
($formfield->{'comments'})
   ? qq[ <span class="small"><em>$formfield->{'comments'}</em></span>] : ''
?><input
 type="button"
 name="<?= $formfield->{'name'} ?>"
 value="<?= $formfield->{'value'} ?>"<?=
 ($formfield->{'css-class'})
   ? qq[ class="$formfield->{'css-class'}"]
   : q[ class="button"]
 ?><?=
 $formfield->{'css'} ?><?=
 $formfield->{'js'} ?> /><?=
($formfield->{'required'}) ? qq[
<input
 type="hidden"
 name="cgi_required_$formfield->{'name'}"
 value="The $formfield->{'label'} field was left empty." />]
   : '' ?>
__cmpo__

      'subtitle' => <<'__cmpo__',
<div class="medium">
   <span class="black">
      <strong><?= $formfield->{'title'} ?></strong>
   </span>
</div>
__cmpo__

      'readonly' => <<'__cmpo__',
<div><?=
($formfield->{'css-class'})
   ? qq[ class="$formfield->{'css-class'}"] : ''
?>><?= ($formfield->{'vmask'} || $formfield->{'value'}) ?>
</div>
<input
 type="hidden"
 name="<?= $formfield->{'name'} ?>"
 value="<?= $formfield->{'value'} ?>" /><?=
($formfield->{'required'}) ? qq[
<input
 type="hidden"
 name="cgi_required_$formfield->{'name'}"
 value="The $formfield->{'label'} field was left empty." />]
   : '' ?>
__cmpo__

      'header' => <<'__cmpo__',
<div align="center">
<form
 name="<?=   $sm->{'form'}{'name'}   || ''     ?>"
 action="<?= $sm->{'form'}{'action'} || ''     ?>"
 method="<?= $sm->{'form'}{'method'} || 'post' ?>">
<?= $form->{'hidden'} ?>
   <table
    cellspacing="0"
    cellpadding="0"
    border="0"
    class="greybak"
    summary="Please complete the following form">
      <tr>
         <td
          align="center"
          valign="middle">
            <table
             width="400"
             cellspacing="1"
             cellpadding="3"
             border="0"
             summary="The form begins here">
__cmpo__

      'select-footer' => <<'__cmpo__',
</select><?=
($formfield->{'required'})
   ? qq[<span class="alert"><strong>&#160;*</strong></span>] : ''
?><?=
($formfield->{'required'})
   ? qq[
<input
 type="hidden"
 name="cgi_required_$formfield->{'name'}"
 value="The $formfield->{'label'} field was left empty." />]
   : '' ?>
__cmpo__

      'empty' => <<'__cmpo__',
    <tr>
      <td>
         [ERROR] <?= $sm->{'name'} ?>  didn't get anything from the parsing...
      </td>
   </tr>
__cmpo__

      'title' => <<'__cmpo__',
<div class="big">
   <span class="black">
      <?= $formfield->{'title'} ?>
   </span>
   <div
    align="center">
      <img
       src="/site/images/black.gif"
       width="200"
       height="1"
       alt=""
       border="0" />
   </div>
</div>
__cmpo__

      'hidden' => <<'__cmpo__',
<input
 type="hidden"
 name="<?= $formfield->{'name'} ?>"
 value="<?= $formfield->{'value'} ?>"<?=
 $formfield->{'css'} ?><?=
 $formfield->{'js'} ?> />
__cmpo__

      'footer' => <<'__cmpo__',
            </table>
         </td>
      </tr>
   </table>
   </form>
</div>
__cmpo__

      'checkbox' => <<'__cmpo__',
<?=
($formfield->{'comments'})
   ? qq[ <span class="small"><em>$formfield->{'comments'}</em></span>] : ''
?><input
 type="checkbox"
 name="<?= $formfield->{'name'} ?>"
 value="<?= $formfield->{'value'} ?>"<?=
 $formfield->{'checked'} ?><?=
 $formfield->{'css'} ?><?=
 ($formfield->{'css-class'})
   ? qq[ class="$formfield->{'css-class'}" : ''
 ?><?=
 $formfield->{'js'} ?> /><?=
($formfield->{'required'})
   ? qq[<span class="alert"><strong>&#160;*</strong></span>] : ''
?><?= $formfield->{'label'} ?><?=
($formfield->{'required'})
   ? qq[
<input
 type="hidden"
 name="cgi_required_$formfield->{'name'}"
 value="The $formfield->{'label'} field was left empty." />]
   : '' ?>
__cmpo__

      'password' => <<'__cmpo__',
<?=
($formfield->{'comments'})
   ? qq[ <span class="small"><em>$formfield->{'comments'}</em></span>] : ''
?>
<input
 type="password"
 name="<?= $formfield->{'name'} ?>"
 value="<?= $formfield->{'value'} ?>"
 size="<?= $formfield->{'size'} || 20 ?>"<?=
 ($formfield->{'css-class'})
   ? qq[ class="$formfield->{'css-class'}"
   : q[ class="240px"]
?><?=
($formfield->{'js'}) ? qq[\n$formfield->{'js'}] : '' ?> /><?=
($formfield->{'required'})
   ? qq[<span class="alert"><strong>&#160;*</strong></span>] : ''
?><?=
($formfield->{'required'})
   ? qq[
<input
 type="hidden"
 name="cgi_required_$formfield->{'name'}"
 value="The $formfield->{'label'} field was left empty." />]
   : '' ?>
__cmpo__

      'option.html' => <<'__cmpo__',
<option
 value="<?= $option->{'value'} ?>"<?=
($option->{'selected'}) ? q[ selected="selected"] : ''
 ?>><?= $formfield->{'prefix'} ?><?=
 $option->{'name'} || $option->{'value'}
?></option>
__cmpo__

      'sep' => <<'__cmpo__',
&#160;
__cmpo__

      'radio' => <<'__cmpo__',
<?=
($formfield->{'comments'})
   ? qq[ <span class="small"><em>$formfield->{'comments'}</em></span>]
   : '' ?>
<input
 type="radio"
 name="<?= $formfield->{'name'} ?>"
 value="<?= $formfield->{'value'} ?>"<?=
 $formfield->{'checked'} ?><?=
 ($formfield->{'css-class'}) ? qq[ class="$formfield->{'css-class'}" : ''
 ?><?= $formfield->{'css'} ?><?= $formfield->{'js'} ?> /><?=
($formfield->{'required'})
   ? qq[
<input
 type="hidden"
 name="cgi_required_$formfield->{'name'}"
 value="The $formfield->{'label'} field was left empty." />]
   : ''?>
__cmpo__

      'submit' => <<'__cmpo__',
<span class="small"><em><?= $formfield->{'comments'} ?></em></span>
<input
 type="submit"
 name="<?= $formfield->{'name'} || 'submit' ?>"
 value="<?= $formfield->{'value'} || 'submit' ?>"<?=
 ($formfield->{'css-class'})
   ? qq[ class="$formfield->{'css-class'}"]
   : qq[ class="button"]
 ?><?= $formfield->{'css'} ?><?=
 $formfield->{'js'}  ?> />&#160;&#160;&#160;&#160;
__cmpo__

};


1;