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

add extras to FormBuilder

Browse source
This commit is contained in:
Doug Bell 2011-01-05 19:02:00 -06:00
parent d5d7d7ef0b
commit adcec8353a
2 changed files with 23 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/FormBuilder.pm
View file

@ -70,6 +70,14 @@ The name of the form. Not required, but recommended.
has 'name' => ( is => 'rw' );
=head2 extras
Any extra things to add to the <form> tag. Optional.
=cut
has 'extras' => ( is => 'rw', isa => 'Str', default => '' );
=head2 session
A WebGUI::Session object. Required.
@ -152,7 +160,7 @@ sub getHeader {
my @attrs = qw{ action method name enctype };
my $attrs = join " ", map { qq{$_="} . $self->$_ . qq{"} } grep { $self->$_ } @attrs;
my $html = sprintf '<form %s>', $attrs;
my $html = sprintf '<form %s %s>', $attrs, $self->extras;
return $html;
}