processPropertiesFromFormPost to processEditForm

This commit is contained in:
Doug Bell 2010-05-03 16:33:06 -05:00
parent ad96c88a36
commit 3c17dafeb4
32 changed files with 154 additions and 169 deletions

View file

@ -75,7 +75,9 @@ sub toHtml {
for ( my $i = 0; $i < @{$self->tabs}; $i++ ) {
my $tab = $self->tabs->[$i];
$html .= sprintf '<li><a href="#tab%i"><em>%s</em></a></li>', $i, $tab->label;
$html .= '<li' . ( $i == 0 ? ' class="selected"' : '' ) . '>'
. sprintf( '<a href="#tab%i"><em>%s</em></a>', $i, $tab->label )
. '</li>';
}
$html .= '</ul>'