39 |
my $f = { $req->params }; |
my $f = { $req->params }; |
40 |
my $layout = delete( $f->{layout} ) || 'div'; |
my $layout = delete( $f->{layout} ) || 'div'; |
41 |
|
|
|
my $s = $self->fey_class->collection(); |
|
|
warn "# s ",$self->fey_class," = ",dump( $s ) if $self->debug; |
|
|
|
|
42 |
my @w; |
my @w; |
43 |
|
|
|
while ( my $u = $s->next ) { |
|
|
my $w = Frey::Web::Row->new( fey_class => $self->fey_class, fey => $u, layout => $layout ); |
|
|
warn "# w = ",dump( $w ) if $self->debug; |
|
|
push @w, $w; |
|
|
} |
|
|
|
|
44 |
while ( 1 ) { |
while ( 1 ) { |
45 |
|
|
|
warn "# got $#w elements: ",dump( map { $_->id } @w ); |
|
46 |
warn "<<< GOT REQUEST ",dump( $f ); |
warn "<<< GOT REQUEST ",dump( $f ); |
47 |
|
|
48 |
# re-apply (changed?) layout to elements |
# re-apply (changed?) layout to elements |
51 |
warn "# new layout = $layout\n"; |
warn "# new layout = $layout\n"; |
52 |
} |
} |
53 |
|
|
54 |
|
if ( ! @w || $f->{limit} || $f->{offset} ) { |
55 |
|
my $s = $self->fey_class->collection( $f ); |
56 |
|
warn "# s ",$self->fey_class," = ",dump( $s ) if $self->debug; |
57 |
|
|
58 |
|
@w = (); |
59 |
|
|
60 |
|
while ( my $u = $s->next ) { |
61 |
|
my $w = Frey::Web::Row->new( fey_class => $self->fey_class, fey => $u, layout => $layout ); |
62 |
|
warn "# w = ",dump( $w ) if $self->debug; |
63 |
|
push @w, $w; |
64 |
|
} |
65 |
|
|
66 |
|
warn "# got $#w elements: ",dump( map { $_->id } @w ); |
67 |
|
} |
68 |
|
|
69 |
my $rows_delimiter = ''; |
my $rows_delimiter = ''; |
70 |
$rows_delimiter = '<hr/>' if $layout eq 'div'; |
$rows_delimiter = '<hr/>' if $layout eq 'div'; |
71 |
|
|