Controller/Form/Output v2

#CNG::Controller::Form::Booking

has "form" => (
        is      => 'rw',
        lazy    => 1,
        builder => '_build_form',
);
sub _build_form {
        my $self = shift;
    warn "USING BUILD for Controller::BookingRequests->_build_form\n";
        return CNG::HTML::FormHandler::Form::BR_Test->new(  );
}
sub get_form {
        my $self = shift;

    warn "Before clearing item: \n";
    $self->form->dump;
    $self->form->clear_item;
    warn "After clearing item: \n";
    $self->form->dump;
    $self->form->clear;
    warn "After clearing form: \n";
    $self->form->dump;

        return $self->form;
}

sub start :Chained('base') :PathPart('booking') :Args(0) : GET {
        my ($self, $c) = @_;
        (my $form = $self->get_form())->process( schema => $c->model('DBIC')->schema );
        $c->stash(
                template => $self->templates->{create},
                form     => $form,
        );
}

sub submit :Chained('base') :PathPart('booking') :Args(0) : POST {
    my ($self, $c) = @_;

    my $item;
  {
    local $ENV{DBIC_NULLABLE_KEY_NOWARN} = 1;
    $item = $c->model('DBIC::BookingRequest')->new_result({});
  }
    unless ($item) {
        $c->detach('/not_found');
    }

    my $form = $self->get_form();

    $c->stash(
        template => $self->templates->{create},
        item     => $item,
        form     => $form,
    );

    if ( $form->process( item => $item, params => $c->request->params, ip_addr => $c->request->address ) ) {
        $c->response->redirect($c->uri_for_action('/bookingrequests/review', [$item->id]));
        $c->detach;
    }
}


#CNG::HTML::FormHandler::Form::BR_Test

package CNG::HTML::FormHandler::Form::BR_Test;

use Moose;
use namespace::autoclean;
use utf8;

use HTML::FormHandler::Moose;

extends qw'HTML::FormHandler';
with   qw'HTML::FormHandler::TraitFor::Model::DBIC
          CNG::HTML::FormHandler::Component::Actions ';

has '+item_class'      => ( default => 'BookingRequest' );

has_field 'group_name' => ( type => 'Text',  label => 'Full Organisation/Church Name',
    inactive => 0,      size => 36,
    required => 1,      maxlength => 120,
);

has_field 'addr_locality_id' => (
    type     => 'Hidden',
    inactive => 0,
    default    => '16633',
    do_wrapper => 0,
);

no HTML::FormHandler::Moose;

__PACKAGE__->meta->make_immutable(inline_constructor => 0);

1;


# output after starting up server

Before clearing item:
USING BUILD for Controller::BookingRequests->_build_form
HFH: ------- fields for form16-------
HFH: -----  group_name -----
HFH: type: Text
HFH: required: 1
HFH: label: Full Organisation/Church Name
HFH: widget: Text
HFH: -----  addr_locality_id -----
HFH: type: Hidden
HFH: required: 0
HFH: label: Addr locality id
HFH: widget: Hidden
HFH: value: $VAR1 = '16633';
HFH: init_value: $VAR1 = '16633';
HFH: fif: $VAR1 = '16633';
HFH: ------- fields for form_actions-------
HFH: -----  save -----
HFH: type: Submit
HFH: required: 0
HFH: label: Save
HFH: widget: Submit
HFH: value: $VAR1 = 'Save';
HFH: -----  cancel -----
HFH: type: Reset
HFH: required: 0
HFH: label: Cancel
HFH: widget: Reset
HFH: value: $VAR1 = 'Cancel';
HFH: ------- end fields -------
HFH: ------- end fields -------
After clearing item:
HFH: ------- fields for form16-------
HFH: -----  group_name -----
HFH: type: Text
HFH: required: 1
HFH: label: Full Organisation/Church Name
HFH: widget: Text
HFH: -----  addr_locality_id -----
HFH: type: Hidden
HFH: required: 0
HFH: label: Addr locality id
HFH: widget: Hidden
HFH: value: $VAR1 = '16633';
HFH: init_value: $VAR1 = '16633';
HFH: fif: $VAR1 = '16633';
HFH: ------- fields for form_actions-------
HFH: -----  save -----
HFH: type: Submit
HFH: required: 0
HFH: label: Save
HFH: widget: Submit
HFH: value: $VAR1 = 'Save';
HFH: -----  cancel -----
HFH: type: Reset
HFH: required: 0
HFH: label: Cancel
HFH: widget: Reset
HFH: value: $VAR1 = 'Cancel';
HFH: ------- end fields -------
HFH: ------- end fields -------
After clearing form:
HFH: ------- fields for form16-------
HFH: -----  group_name -----
HFH: type: Text
HFH: required: 1
HFH: label: Full Organisation/Church Name
HFH: widget: Text
HFH: -----  addr_locality_id -----
HFH: type: Hidden
HFH: required: 0
HFH: label: Addr locality id
HFH: widget: Hidden
HFH: init_value: $VAR1 = '16633';
HFH: ------- fields for form_actions-------
HFH: -----  save -----
HFH: type: Submit
HFH: required: 0
HFH: label: Save
HFH: widget: Submit
HFH: value: $VAR1 = 'Save';
HFH: -----  cancel -----
HFH: type: Reset
HFH: required: 0
HFH: label: Cancel
HFH: widget: Reset
HFH: value: $VAR1 = 'Cancel';
HFH: ------- end fields -------
HFH: ------- end fields -------
Rendering template "booking_requests/new.tt2"



## submit form, then return to `start`

Before clearing item:
HFH: ------- fields for form587-------
HFH: -----  group_name -----
HFH: type: Text
HFH: required: 1
HFH: label: Full Organisation/Church Name
HFH: widget: Text
HFH: value: $VAR1 = 'SCR';
HFH: input: $VAR1 = 'SCR';
HFH: fif: $VAR1 = 'SCR';
HFH: -----  addr_locality_id -----
HFH: type: Hidden
HFH: required: 0
HFH: label: Addr locality id
HFH: widget: Hidden
HFH: value: $VAR1 = '16633';
HFH: input: $VAR1 = '16633';
HFH: fif: $VAR1 = '16633';
HFH: ------- fields for form_actions-------
HFH: -----  save -----
HFH: type: Submit
HFH: required: 0
HFH: label: Save
HFH: widget: Submit
HFH: value: $VAR1 = 'Save';
HFH: input: $VAR1 = 'Save';
HFH: -----  cancel -----
HFH: type: Reset
HFH: required: 0
HFH: label: Cancel
HFH: widget: Reset
HFH: value: $VAR1 = 'Cancel';
HFH: ------- end fields -------
HFH: ------- end fields -------
After clearing item:
HFH: ------- fields for form587-------
HFH: -----  group_name -----
HFH: type: Text
HFH: required: 1
HFH: label: Full Organisation/Church Name
HFH: widget: Text
HFH: value: $VAR1 = 'SCR';
HFH: input: $VAR1 = 'SCR';
HFH: fif: $VAR1 = 'SCR';
HFH: -----  addr_locality_id -----
HFH: type: Hidden
HFH: required: 0
HFH: label: Addr locality id
HFH: widget: Hidden
HFH: value: $VAR1 = '16633';
HFH: input: $VAR1 = '16633';
HFH: fif: $VAR1 = '16633';
HFH: ------- fields for form_actions-------
HFH: -----  save -----
HFH: type: Submit
HFH: required: 0
HFH: label: Save
HFH: widget: Submit
HFH: value: $VAR1 = 'Save';
HFH: input: $VAR1 = 'Save';
HFH: -----  cancel -----
HFH: type: Reset
HFH: required: 0
HFH: label: Cancel
HFH: widget: Reset
HFH: value: $VAR1 = 'Cancel';
HFH: ------- end fields -------
HFH: ------- end fields -------
After clearing form:
HFH: ------- fields for form587-------
HFH: -----  group_name -----
HFH: type: Text
HFH: required: 1
HFH: label: Full Organisation/Church Name
HFH: widget: Text
HFH: -----  addr_locality_id -----
HFH: type: Hidden
HFH: required: 0
HFH: label: Addr locality id
HFH: widget: Hidden
HFH: ------- fields for form_actions-------
HFH: -----  save -----
HFH: type: Submit
HFH: required: 0
HFH: label: Save
HFH: widget: Submit
HFH: value: $VAR1 = 'Save';
HFH: -----  cancel -----
HFH: type: Reset
HFH: required: 0
HFH: label: Cancel
HFH: widget: Reset
HFH: value: $VAR1 = 'Cancel';
HFH: ------- end fields -------
HFH: ------- end fields -------
Rendering template "booking_requests/new.tt2"