--- trunk/lib/Frey/ObjectBrowser.pm 2008/07/11 12:47:50 96 +++ 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', @@ -37,18 +39,13 @@ 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 ); my @w; while ( my $u = $s->next ) { - my $w = Strix::View::User->new( %{ $u } ); - $w->_fey( $u ); - $w->_layout( $layout ); + my $w = Frey::Web::Row->new( _fey => $u, _layout => $layout ); warn "# w = ",dump( $w ) if $self->debug; push @w, $w; } @@ -74,8 +71,7 @@ if ( $w[ $#w ]->_fey ) { warn "+++ added new item widget\n"; - my $w = Strix::View::User->new( _render_as => 'edit' ); - $w->_layout( $layout ); + my $w = Frey::Web::Row->new( _render_as => 'edit', _layout => $layout ); $form .= $rows_delimiter . $w->process; push @w, $w; }