--- trunk/lib/Frey/ObjectBrowser.pm 2008/07/15 14:56:28 134 +++ trunk/lib/Frey/ObjectBrowser.pm 2008/07/15 17:14:10 135 @@ -66,7 +66,7 @@ push @w, $w; } - warn "# got $#w elements: ",dump( map { $_->id } @w ), " from total of ", $s->handle->rows; + warn "# got $#w elements: ",dump( map { $_->fey->id } @w ), " from total of ", $s->handle->rows; } my $rows_delimiter = ''; @@ -88,11 +88,12 @@ if ( $layout eq 'columns' ) { # add header to table - my $header = $w[0]->render_iterator( sub { - my ( $name, $field_name, $label, $val ) = @_; + my $header; + foreach my $name ( @{ $w[0]->display_columns } ) { return if $name =~ /^_/; - return qq|$label|; - }); + my $label = $w[0]->field_label( $name ); + $header .= qq|$label|; + }; $form = qq|$header$form
|; }