initial edit page work
This commit is contained in:
parent
3ae21d6349
commit
ad96c88a36
9 changed files with 259 additions and 368 deletions
|
|
@ -125,7 +125,14 @@ sub toHtml {
|
|||
my ( $self ) = @_;
|
||||
|
||||
my $html = $self->getHeader;
|
||||
$html .= join "", map { $_->toHtml } @{$self->objects};
|
||||
for my $obj ( @{ $self->objects } ) {
|
||||
if ( $obj->isa('WebGUI::Form::Control') ) {
|
||||
$html .= $obj->toHtmlWithWrapper;
|
||||
}
|
||||
else {
|
||||
$html .= $obj->toHtml;
|
||||
}
|
||||
}
|
||||
$html .= $self->getFooter;
|
||||
|
||||
return $html;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue