31 |
#$Data::Dumper::Deparse = 1; |
#$Data::Dumper::Deparse = 1; |
32 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
33 |
|
|
34 |
use Frey::Web::Row; |
use Frey::Web::Item; |
35 |
use Frey::Web::Links; |
use Frey::Web::Links; |
36 |
|
|
37 |
sub html { |
sub html { |
61 |
@w = (); |
@w = (); |
62 |
|
|
63 |
while ( my $u = $s->next ) { |
while ( my $u = $s->next ) { |
64 |
my $w = Frey::Web::Row->new( fey_class => $self->fey_class, fey => $u, layout => $layout ); |
my $w = Frey::Web::CRUD->new( fey_class => $self->fey_class, fey => $u, layout => $layout ); |
65 |
warn "# w = ",dump( $w ) if $self->debug; |
warn "# w = ",dump( $w ) if $self->debug; |
66 |
push @w, $w; |
push @w, $w; |
67 |
} |
} |
79 |
|
|
80 |
if ( $w[ $#w ]->fey ) { |
if ( $w[ $#w ]->fey ) { |
81 |
warn "+++ added new item widget\n"; |
warn "+++ added new item widget\n"; |
82 |
my $w = Frey::Web::Row->new( fey_class => $self->fey_class, render_as => 'edit', layout => $layout ); |
my $w = Frey::Web::CRUD->new( fey_class => $self->fey_class, render_as => 'edit', layout => $layout ); |
83 |
$form .= $rows_delimiter . $w->process; |
$form .= $rows_delimiter . $w->process; |
84 |
push @w, $w; |
push @w, $w; |
85 |
} |
} |