Thank you Juan! This is along the lines of what I am looking for, and
gives me a good place to start from. I will play around with this today
and get back to you (unfortunately dev.catalyst.perl.org is unresponsive
at the moment, but I did get a chance to browse the repo and see the
current C::C::FormBuilder source before it went down).
Once I get something working I will post it here, and I would love to
help come up with something reusable for CPAN to solve this if the code
is general enough.
Thanks again for your help and being so active on the list. Reading
through you other posts in the archive has been quite helpful.
Danny
Juan Camacho wrote:
On 2/11/07, Danny Warren <[EMAIL PROTECTED]> wrote:
Hey all!
I am trying to figure out the most elegant way to build/include multiple
forms in one page using Catalyst::Controller::FormBuilder.
I'm in a bit of rush right now and won't have time to respond today,
so I'm pasting a response I had previously sent to someone else.
Try setting up your own Action class. This is code I had provided
someone else trying to do something similar. You probably don't want
the extra _add_form_to method -- I was simply parroting back some code
I was provided. The general idea is to provide a top level hash key
for each form. I don't necessarily recommend the key name used in
this example -- a better one would be the $formbuilder->name. It
would be a good idea to provide a more generalized approach that can
be released to CPAN as C-C-FormBuilder-MultiForm module. Volunteers
welcome :) Let me know if this helps.
package MyApp::Controller::Base;
use strict;
use base 'Catalyst::Controller::FormBuilder';
__PACKAGE__->config(
'Controller::FormBuilder' => {
action => 'MyApp::Action::FormBuilder',
}
);
package MyApp::Controller::Company;
use base qw/MyApp::Controller::Base/;
sub edit : Local Form {
my ($self, $c) = @_;
$c->stash->{template} = 'books/edit.tt2';
my $form = $self->formbuilder;
if ($form->submitted && $form->validate) {
return $c->forward('/company/save');
}
$c->forward('/company/searchform');
}
sub searchform : Local Form('/searchform') {
my ($self, $c) = @_;
my $searchform = $self->formbuilder;
my $fields = $searchform->fields;
$c->stash->{template} = 'searchresults.tt2';
$c->stash->{search_results} = $c->model('Listings')->search($fields);
}
package MyApp::Action::FormBuilder;
use strict;
use base 'Catalyst::Controller::FormBuilder::Action::TT';
sub setup_template_vars {
my $self = shift;
my ( $controller, $c ) = @_;
$self->SUPER::setup_template_vars(@_);
my $forms = {};
my $name = $self->_attr_params->[0] || $self->reverse;
_add_form_to( $forms, split('/', $name), $c->stash->{FormBuilder} );
$c->stash->{forms} = $forms;
}
sub _add_form_to {
my $href = shift;
my $node_count = scalar @_;
return if !$node_count;
my $node_count = scalar @_;
return if !$node_count;
return shift if $node_count == 1;
my $node = shift;
$href->{$node} = _add_form_to( { }, @_ );
return $href;
}
_______________________________________________
List: Catalyst@lists.rawmode.org
Listinfo: http://lists.rawmode.org/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.rawmode.org/
Dev site: http://dev.catalyst.perl.org/
_______________________________________________
List: Catalyst@lists.rawmode.org
Listinfo: http://lists.rawmode.org/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.rawmode.org/
Dev site: http://dev.catalyst.perl.org/
