oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

FormField macro for throwing Form controls directly into templates;

Browse source 
useful for using alternative or improved Form controls without having
to change Asset source code.
This commit is contained in:
Scott Walters 2011-06-29 18:11:46 -04:00
parent 9cc5e2270a
commit 747f439725
4 changed files with 180 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

64
lib/WebGUI/Macro/FormField.pm Normal file
View file

@ -0,0 +1,64 @@
package WebGUI::Macro::FormField;
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2008 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use strict;
=head1 NAME
Package WebGUI::Macro::FormField
=head1 DESCRIPTION
Renders an instance of a Form object.
=head2 process( $session, $type, $field_name [, $default_value, @form_constructor_arguments ] )
C<$type> is one of the L<WebGUI::Form::Control> subclasses in L<WebGUI::Form::>.
C<$field_name> is the name the field will be given in the HTML "name" attribute.
C<$default_value> is the currently selected value to use for the form field if no GET/POST parameter or field of the
current asset of the same name has a value.
A form posted form parameter of the same name as the C<$field_name>, if present, will be used instead of the default.
Failing that, an attribute of the current asset of the same name, if present, will be used instead of the default value.
C<@form_constructor_arguments> get passed to the L<WebGUI::Form> subclass constructor.
=cut
sub process {
my $session = shift;
my $type = shift;
my $name = shift;
my $default_value = shift || '';
my @extras = @_;
my $form_class = "WebGUI::Form::" . ucfirst $type;
my $value = $session->form->get($name);
$value ||= $session->asset->get($name) if $session->asset;
$value ||= $default_value;
my $control = eval { WebGUI::Pluggable::instanciate($form_class, 'new', [ $session, { name => $name, value => $value, @extras } ]) };
if ($@) {
$session->log->warn("FormField Macro could not load class ``$form_class'': $@");
return '';
}
return $control->toHtml;
}
1;