--- trunk/lib/Frey/ObjectBrowser.pm 2008/07/09 16:41:00 72 +++ trunk/lib/Frey/ObjectBrowser.pm 2008/07/17 19:11:01 160 @@ -1,8 +1,14 @@ package Frey::ObjectBrowser; use Moose; -use MooseX::Method; extends 'Frey'; +with 'Frey::Web'; + +has 'fey_class' => ( + is => 'rw', + isa => 'Str', + required => 1, +); my @callbacks; @@ -24,60 +30,61 @@ #use Data::Dumper; #$Data::Dumper::Deparse = 1; use Data::Dump qw/dump/; -use Data::Structure::Util qw(unbless); +use Frey::Web::Item; +use Frey::Web::Links; +use Frey::Pager; -#method 'html' => positional( -# isa => 'Continuity::RequestHolder', -# required => 1, -#) => sub { sub html { my ( $self, $req ) = @_; - my $params = $req->param; - warn "# params = ",dump( $params ); + $self->add_head( 'static/form.css' ); + my @w; - use Strix::User; - use Strix::View::User; + my $f = { $req->params }; - my $s = Strix::User->rows(); - warn "# s = ",dump( $s ); + my $pager; - my $f = {}; - my @w; + while ( 1 ) { - 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 ); - push @w, $w; - } + warn "<<< GOT REQUEST ",dump( $f ); - while ( 1 ) { - my $form = join('