--- trunk/lib/Frey/ObjectBrowser.pm 2008/07/10 10:28:11 78 +++ trunk/lib/Frey/ObjectBrowser.pm 2008/07/10 20:00:54 89 @@ -34,36 +34,55 @@ sub html { my ( $self, $req ) = @_; - my $params = $req->param; - warn "# params = ",dump( $params ); + my $f = { $req->params }; + my $layout = delete( $f->{layout} ) || 'div'; use Strix::User; use Strix::View::User; my $s = Strix::User->rows(); - warn "# s = ",dump( $s ); + #warn "# s = ",dump( $s ); - my $f = {}; my @w; while ( my $u = $s->next ) { - warn "# u = ",dump( $u ); - my $w = Strix::View::User->new( - #%{ unbless( $u ) }, # FIXME this is cludge - %{ $u } # much better :-) - ); + my $w = Strix::View::User->new( %{ $u } ); $w->_fey( $u ); - warn "# w = ",dump( $w ); + $w->_layout( $layout ); + warn "# w = ",dump( $w ) if $self->debug; push @w, $w; } - push @w, Strix::View::User->new( render_as => 'edit' ); - while ( 1 ) { - warn "# got $#w elements\n"; + warn "# got $#w elements: ",dump( map { $_->id } @w ); + warn "<<< GOT REQUEST ",dump( $f ); + + # re-apply (changed?) layout to elements + if ( defined $f->{layout} ) { + $layout = delete( $f->{layout} ); + warn "# new layout = $layout\n"; + } + + my $rows_delimiter = '