--- trunk/lib/Frey/ObjectBrowser.pm 2008/07/10 10:28:11 78 +++ trunk/lib/Frey/ObjectBrowser.pm 2008/07/16 14:17:46 143 @@ -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,63 +30,60 @@ #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 ); - - use Strix::User; - use Strix::View::User; - - my $s = Strix::User->rows(); - warn "# s = ",dump( $s ); - - my $f = {}; + $self->add_css( 'static/form.css' ); 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 ); - push @w, $w; - } + my $f = { $req->params }; - push @w, Strix::View::User->new( render_as => 'edit' ); + my $pager; while ( 1 ) { - - warn "# got $#w elements\n"; - my $form = join('