--- trunk/lib/Frey/ObjectBrowser.pm 2008/07/08 12:20:08 60 +++ trunk/lib/Frey/ObjectBrowser.pm 2008/07/13 12:22:14 106 @@ -3,6 +3,13 @@ use MooseX::Method; extends 'Frey'; +with 'Frey::Web'; + +has 'fey_class' => ( + is => 'rw', + isa => 'Str', + required => 1, +); my @callbacks; @@ -21,8 +28,11 @@ } } -use Data::Dumper; -$Data::Dumper::Deparse = 1; +#use Data::Dumper; +#$Data::Dumper::Deparse = 1; +use Data::Dump qw/dump/; + +use Frey::Web::Row; #method 'html' => positional( # isa => 'Continuity::RequestHolder', @@ -31,12 +41,96 @@ sub html { my ( $self, $req ) = @_; - my $params = $req->param; - warn Dumper( $params ); + my $f = { $req->params }; + my $layout = delete( $f->{layout} ) || 'div'; + + my $s = $self->fey_class->collection(); + warn "# s ",$self->fey_class," = ",dump( $s ) if $self->debug; + + my @w; + + while ( my $u = $s->next ) { + my $w = Frey::Web::Row->new( fey_class => $self->fey_class, fey => $u, layout => $layout ); + warn "# w = ",dump( $w ) if $self->debug; + push @w, $w; + } - $req->print( Dumper( $params ) ); + while ( 1 ) { + + 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 = '