26 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
27 |
use Data::Structure::Util qw(unbless); |
use Data::Structure::Util qw(unbless); |
28 |
|
|
29 |
|
use Frey::Web::Row; |
30 |
|
use Strix::User; |
31 |
|
|
32 |
#method 'html' => positional( |
#method 'html' => positional( |
33 |
# isa => 'Continuity::RequestHolder', |
# isa => 'Continuity::RequestHolder', |
39 |
my $f = { $req->params }; |
my $f = { $req->params }; |
40 |
my $layout = delete( $f->{layout} ) || 'div'; |
my $layout = delete( $f->{layout} ) || 'div'; |
41 |
|
|
|
use Strix::User; |
|
|
use Strix::View::User; |
|
|
|
|
42 |
my $s = Strix::User->rows(); |
my $s = Strix::User->rows(); |
43 |
#warn "# s = ",dump( $s ); |
#warn "# s = ",dump( $s ); |
44 |
|
|
45 |
my @w; |
my @w; |
46 |
|
|
47 |
while ( my $u = $s->next ) { |
while ( my $u = $s->next ) { |
48 |
my $w = Strix::View::User->new( %{ $u } ); |
my $w = Frey::Web::Row->new( _fey => $u, _layout => $layout ); |
|
$w->_fey( $u ); |
|
|
$w->_layout( $layout ); |
|
49 |
warn "# w = ",dump( $w ) if $self->debug; |
warn "# w = ",dump( $w ) if $self->debug; |
50 |
push @w, $w; |
push @w, $w; |
51 |
} |
} |
71 |
|
|
72 |
if ( $w[ $#w ]->_fey ) { |
if ( $w[ $#w ]->_fey ) { |
73 |
warn "+++ added new item widget\n"; |
warn "+++ added new item widget\n"; |
74 |
my $w = Strix::View::User->new( render_as => 'edit' ); |
my $w = Frey::Web::Row->new( _render_as => 'edit', _layout => $layout ); |
|
$w->_layout( $layout ); |
|
75 |
$form .= $rows_delimiter . $w->process; |
$form .= $rows_delimiter . $w->process; |
76 |
push @w, $w; |
push @w, $w; |
77 |
} |
} |