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

added some toTemplateVars stuff

Browse source
This commit is contained in:
Doug Bell 2009-11-24 18:01:39 -06:00
parent 38d395e49f
commit 48773136a8
2 changed files with 115 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lib/WebGUI/FormBuilder/Fieldset.pm
View file

@ -66,6 +66,16 @@ sub new {
return $class->SUPER::new( %properties );
}
sub getFooter {
my ( $self ) = @_;
return '</fieldset>';
}
sub getHeader {
my ( $self ) = @_;
return '<fieldset><legend>' . $self->label . '</legend>';
}
#----------------------------------------------------------------------------
=head2 label ( newLabel )
@ -114,11 +124,21 @@ Returns the HTML to render the fieldset.
sub toHtml {
my ( $self ) = @_;
my $html = '<fieldset><legend>' . $self->label . '</legend>';
my $html = $self->getHeader;
$html .= join "", map { $_->toHtml } @{$self->objects};
$html .= '</fieldset>';
$html .= $self->getFooter;
return $html;
}
#----------------------------------------------------------------------------
=head2 toTemplateVars ( )
=cut
sub toTemplateVars {
}
1;