--- trunk/lib/Frey/ObjectBrowser.pm 2008/07/11 09:35:32 94 +++ trunk/lib/Frey/ObjectBrowser.pm 2008/07/11 10:29:31 95 @@ -64,8 +64,8 @@ warn "# new layout = $layout\n"; } - my $rows_delimiter = '
'; - $rows_delimiter = '' if $layout eq 'table'; + my $rows_delimiter = ''; + $rows_delimiter = '
' if $layout eq 'div'; my $form = join($rows_delimiter, map { $_->_layout( $layout ); @@ -82,6 +82,16 @@ $form = qq|$form
| if $layout eq 'table'; + if ( $layout eq 'columns' ) { + # add header to table + my $header = $w[0]->render_iterator( sub { + my ( $name, $field_name, $label, $val ) = @_; + return if $name =~ /^_/; + return qq|$label|; + }); + $form = qq|$header$form
|; + } + my $layout_picker = join(' ', qq|
layout:|, map { @@ -90,7 +100,7 @@ } else { qq|$_|; } - } ( 'div', 'table' ), + } ( 'div', 'table', 'columns' ), qq|
|, );