formbuilder toTemplateVars is now complete and tested

This commit is contained in:
Doug Bell 2011-04-12 21:26:20 -05:00
parent 67918361e6
commit 04a420e0bd
7 changed files with 254 additions and 105 deletions

View file

@ -144,8 +144,13 @@ sub toHtml {
=cut
sub toTemplateVars {
}
around toTemplateVars => sub {
my ( $orig, $self ) = @_;
my $var = $self->$orig();
$var->{ name } = $self->name;
$var->{ label } = $self->label;
$var->{ legend } = $self->label;
return $var;
};
1;