--- trunk/lib/Frey/ObjectBrowser.pm 2008/07/09 20:47:27 75 +++ trunk/lib/Frey/ObjectBrowser.pm 2008/07/11 17:53:08 98 @@ -26,6 +26,8 @@ use Data::Dump qw/dump/; use Data::Structure::Util qw(unbless); +use Frey::Web::Row; +use Strix::User; #method 'html' => positional( # isa => 'Continuity::RequestHolder', @@ -34,54 +36,93 @@ sub html { my ( $self, $req ) = @_; - my $params = $req->param; - warn "# params = ",dump( $params ); - - use Strix::User; - use Strix::View::User; + my $f = { $req->params }; + my $layout = delete( $f->{layout} ) || 'div'; 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 :-) - ); - $w->_fey( $u ); - warn "# w = ",dump( $w ); + my $w = Frey::Web::Row->new( _fey => $u, _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 = ''; + $rows_delimiter = '